ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
02.01.2009, 21:31
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Не подскажите как организовать работу с ресурсами, что бы Программа 1 при нажатии на кнопку создавала в этой же папке Программу 2
|
|
|
03.01.2009, 10:39
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от ZET36
Не подскажите как организовать работу с ресурсами, что бы Программа 1 при нажатии на кнопку создавала в этой же папке Программу 2
https://forum.antichat.ru/showpost.php?p=1032334&postcount=20
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
03.01.2009, 12:16
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
W!z@rD спасибо, разобрался
|
|
|
|
04.01.2009, 02:05
|
|
Участник форума
Регистрация: 18.02.2008
Сообщений: 125
Провел на форуме:
562108
Репутация:
107
|
|
Как мне сохранить содержимое Image1 на жесткий диск в формате джпег
|
|
|
|
04.01.2009, 03:47
|
|
Участник форума
Регистрация: 16.11.2006
Сообщений: 230
Провел на форуме:
599789
Репутация:
227
|
|
Image1.Picture.SaveToFile('c:\1.jpg');
|
|
|
|
04.01.2009, 03:58
|
|
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
Провел на форуме:
467372
Репутация:
212
|
|
Сообщение от o3,14um
Image1.Picture.SaveToFile('c:\1.jpg');
Не прокатит  С таким же успехом можно сохранять:
Image1.Picture.SaveToFile('c:\1.exe');
В дельфе для этого есть спец-модуль JPEG, который неплохо бы прописать в Uses, а после добавить что то вроде:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJpegImage;
begin
jpg:=TJpegImage.Create;
jpg.Assign(image1.picture.graphic);
jpg.CompressionQuality:=значение от 1 до 100;
jpg.Compress;
jpg.SaveToFile('D:\first.jpg');
jpg.free;
end;
|
|
|
|
04.01.2009, 14:05
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Есть библиотека с которой работает моя программа, но Касперский её обнаруживает как HackTool.Win32.Hidd.b
как мне этого избежать?
исходник библиотеки
http://www.rapidshare.ru/877908
Последний раз редактировалось ZET36; 04.01.2009 в 14:19..
|
|
|
|
04.01.2009, 17:52
|
|
Новичок
Регистрация: 27.09.2007
Сообщений: 22
Провел на форуме:
10910
Репутация:
0
|
|
Как сделать проверку нескольких условий?
То есть
If StrToInt(Edit2.Text)<=16 and StrToInt(Edit2.Text)>1 then
Это, разумеется неправильно, но суть, думаю понятна  |
|
|
|
04.01.2009, 17:56
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
110
|
|
В скобки каждое условие
|
|
|
|
04.01.2009, 18:24
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 99
Провел на форуме:
613745
Репутация:
51
|
|
Код:
If (StrToInt(Edit2.Text)<=16) and (StrToInt(Edit2.Text)>1) then
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид