ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
сейчас доступен на antichat.xyz.
 |
|
[Delphi] Вывести много MessageBox'ов |
30.06.2008, 21:56
|
|
Новичок
Регистрация: 27.06.2008
Сообщений: 24
Провел на форуме:
60495
Репутация:
3
|
|
[Delphi] Вывести много MessageBox'ов
Уважаемы, античатовцы.
Прошу помочь с написанием, программы. При запуски, которой будут бесконечно открываться окна с заданным текстом. У меня получилось написать только на открытия окна, и при нажатии “окей” открывается новое, а надо, чтобы постоянно открывались окна. Желательно чтобы в процессах программа не отображалась.
Пока написал только это:
“form1.Hide;
while true do showmessage('ТЕКСТ');” (на дельфи).
Заранее огромное вам спасибо.
|
|
|
30.06.2008, 21:57
|
|
Постоянный
Регистрация: 18.01.2008
Сообщений: 383
Провел на форуме:
9332138
Репутация:
476
|
|
бесконечный цикл тебе в помощь))
|
|
|
|
30.06.2008, 22:01
|
|
Новичок
Регистрация: 27.06.2008
Сообщений: 24
Провел на форуме:
60495
Репутация:
3
|
|
Так я знаю, может выложите исходник? 
|
|
|
|
30.06.2008, 22:32
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Все дело в функции - она отображается не более одного раза, создай собственный диалог и в цикле ShowWindow(SW_SHOW,..)
|
|
|
|
30.06.2008, 22:34
|
|
Участник форума
Регистрация: 26.02.2006
Сообщений: 209
Провел на форуме:
2418438
Репутация:
93
|
|
в событии formcreate что-ли ставишь свой цикл! мошешь sleep понаписывать!!и всё! невидимость в процесах описаана в книге "Делфи глазами хацкера"
|
|
|
|
01.07.2008, 22:51
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Прошу помочь с написанием,
============
Так я знаю, может выложите исходник?
Ты оп ределись чего хочешь, помощи в написании, или готовый код....
Выложи, что сделал глянем что именно у тебя не получается...ну или в ПМ....
|
|
|
|
01.07.2008, 23:02
|
|
Участник форума
Регистрация: 03.09.2007
Сообщений: 119
Провел на форуме:
425358
Репутация:
21
|
|
самое простое написать батник, в котором прописать запуск какойнить проги и этогоже батника, оператива в миг заканчивается)))
|
|
|
|
02.07.2008, 10:07
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
вообще юзай типа потоков или таймера.
А если заюзаешь мультимедийный таймер то окошек будет просто ппц. потому что он вызает обработчик, но недожидается окончание его исполнения и в этоге накапливается огромное число сообщений у тебя. главное со скоростью не переборщить
а так этого хватит
Код:
procedure TimerProc(wnd:hwnd;uMsg,idEvent:uint;dwTime:DWORD);
begin
MessageBox(0, 'HEllo', 'Hello', MB_ICONWARNING or MB_OK);
end;
settimer(0,1,1000,@TimerProc);// 1000 - повторить через 1000 мс = 1 с
Последний раз редактировалось slesh; 02.07.2008 в 10:12..
|
|
|
|
07.07.2008, 01:36
|
|
Новичок
Регистрация: 21.12.2007
Сообщений: 10
Провел на форуме:
46260
Репутация:
12
|
|
Procedure Mess;
begin
MessageBox(0,'Good','Fucking',0);
end;
Procedure FuckingUserMessages;
var
Tr:Cardinal;
begin
While True do
begin
CreateThread(nil,0,@Mess,nil,0,Tr);
Sleep(1);
end;
end;
|
|
|
|
07.07.2008, 10:48
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 JuliaSmit o_O ТОгда комп стопорнется быстрее чем вылетят окошки
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
