ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
26.06.2009, 17:13
|
|
Banned
Регистрация: 12.06.2009
Сообщений: 8
Провел на форуме:
26426
Репутация:
1
|
|
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=true;
Timer1.Interval :=60;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := ProgressBar1.Position + 1;
end;
1)подскажите как сделать, чтобы по оканчанию загрузки TProgressBar выполнялась команда MessageBox ?
2)Есть Label, Button. Как сделать, чтобы при нажатии на батон, происходила проверка текста в лейбле? ну если в лейбле например введен определённый текст, который я ввёл в коде проги, то при нажатии на батон, вылетит сообщение "Верно", а если текст иной, то вылетит "Не верно" ?
Последний раз редактировалось Vish; 26.06.2009 в 17:42..
|
|
|
26.06.2009, 17:53
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от Nizhegorodets
как сэмулировать нажатие на клавишу Enter?
вот например нажимаем на Tab
keybd_event(VK_TAB, 0, 0, 0);
а какой код для enter?
VK_RETURN
>>1)подскажите как сделать, чтобы по оканчанию загрузки TProgressBar выполнялась команда MessageBox ?
это не команда
вот код в таймере:
PHP код:
ProgressBar1.StepIt;
if (ProgressBar1.Position = ProgressBar1.Max) then ShowMessage('a');
>>2)Есть Label, Button. Как сделать, чтобы при нажатии на батон, происходила проверка текста в лейбле? ну если в лейбле например введен определённый текст, который я ввёл в коде проги, то при нажатии на батон, вылетит сообщение "Верно", а если текст иной, то вылетит "Не верно" ?
PHP код:
if (Label1.Caption = 'abc') then ShowMessage('true') else ShowMessage('false');
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
Последний раз редактировалось W!z@rD; 26.06.2009 в 18:06..
|
|
|
|
26.06.2009, 18:31
|
|
Banned
Регистрация: 12.06.2009
Сообщений: 8
Провел на форуме:
26426
Репутация:
1
|
|
PHP код:
ProgressBar1.StepIt;
if (ProgressBar1.Position = ProgressBar1.Max) then ShowMessage('a');
если добавляю такой код в таймер, то ProgressBar начинает бегать с другой скоростью + доходит до конца и начинается всё с начала + сообщение 'a' вылетает постояно, не возможно закрыть =**
как это исправить? нужно чтобы просто ProgressBar дошёл до конца и вылетело сообщение и всё |
|
|
|
27.06.2009, 00:24
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Вопрос по отправке файла на FTP!
Я использую такую функцию для отправки файла на FTP:
Код:
procedure TForm1.DownloadToFtp(host,login,pass,path,name:string);
var
handal:DWORD;
conn_param,inet_open : hinternet;
begin
inet_open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
conn_param := internetconnect(inet_open,Pchar(host),21,Pchar(login),Pchar(pass),INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
ftpputfile(conn_param,Pchar(path),Pchar(name),FTP_TRANSFER_TYPE_UNKNOWN,0);
internetclosehandle(conn_param);
internetclosehandle(inet_open);
end;
Всё работает хорошо... на первый взгляд хорошо.
Один файл нормально отпарвляется, но если следом отправить ещё один, то вот тут и ошибки... На сервере создаётся пустой файл.
я так понимаю это из за того что нету функции дисконнекта от фтп, если кто знает как исправить ошибку в коде то плиз подскажите как сделать дисконнект если он вообще нужен...
Последний раз редактировалось Nightmarе; 27.06.2009 в 18:01..
|
|
|
|
27.06.2009, 00:53
|
|
Новичок
Регистрация: 04.10.2008
Сообщений: 24
Провел на форуме:
177802
Репутация:
2
|
|
Почему не работает код из этой статьи: http://www.xakep.ru/magazine/xA/050/052/2.asp
У меня не работает вот эта строка
Код:
lbAddConnect.Items.Add(AThread.Connection.Binding.PeerIP); // определение IP подсоединившегося
|
|
|
|
27.06.2009, 08:47
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от Vish
PHP код:
ProgressBar1.StepIt;
if (ProgressBar1.Position = ProgressBar1.Max) then ShowMessage('a');
если добавляю такой код в таймер, то ProgressBar начинает бегать с другой скоростью + доходит до конца и начинается всё с начала + сообщение 'a' вылетает постояно, не возможно закрыть =**
как это исправить? нужно чтобы просто ProgressBar дошёл до конца и вылетело сообщение и всё шедевр, а Timer1.Enable:=False; добавить никак?
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
27.06.2009, 09:59
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
Провел на форуме:
1035284
Репутация:
52
|
|
всем привет! есть парочка вопросов!
1. возможно ли в программе сделать горячии клавиши типа cntrl+a+s+e или cntrl+win+f+i
2. если создавать форму на winapi то как или чем создать ресурс с формой и компонентами на ней?
3. есть ли api для работы с процессами(чтоб узнать инфу о процессе)?
4. вопрос неоднакратно поднимался но ответов ненаходил, как безепасно отключить НУЖНОЕ USB устройство в частности флешку! желательно без использования реестра!
всем ответившим заранее спасибо!
|
|
|
|
27.06.2009, 10:16
|
|
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
Провел на форуме:
813785
Репутация:
314
|
|
Сообщение от transserg
всем привет! есть парочка вопросов!
1. возможно ли в программе сделать горячии клавиши типа cntrl+a+s+e или cntrl+win+f+i
2. если создавать форму на winapi то как или чем создать ресурс с формой и компонентами на ней?
3. есть ли api для работы с процессами(чтоб узнать инфу о процессе)?
4. вопрос неоднакратно поднимался но ответов ненаходил, как безепасно отключить НУЖНОЕ USB устройство в частности флешку! желательно без использования реестра!
всем ответившим заранее спасибо!
1 - да
2 - блокнот
3 - есть
4 - хз 
|
|
|
|
27.06.2009, 10:26
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
Провел на форуме:
1035284
Репутация:
52
|
|
s0l_ir0n
улыбнуло . а можно по подробней?
|
|
|
|
27.06.2009, 14:14
|
|
Новичок
Регистрация: 04.10.2008
Сообщений: 24
Провел на форуме:
177802
Репутация:
2
|
|
1) Насчёт горячих клавиш. У пунктов меню MainMenu есть такое свойство: ShortCut. Вот там и выбираешь горячие клавиши. Можно ещё в св-ве Caption перед нужной буквой поставить знак &. Тогда при нажатии Alt+той буквы(которая идёт после &) будет вызываться эта команда. Вот сделал исходник: http://webfile.ru/3739845
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
