|
[Delphi] Вывести много MessageBox'ов
Уважаемы, античатовцы.
Прошу помочь с написанием, программы. При запуски, которой будут бесконечно открываться окна с заданным текстом. У меня получилось написать только на открытия окна, и при нажатии “окей” открывается новое, а надо, чтобы постоянно открывались окна. Желательно чтобы в процессах программа не отображалась. Пока написал только это: “form1.Hide; while true do showmessage('ТЕКСТ');” (на дельфи). Заранее огромное вам спасибо. |
бесконечный цикл тебе в помощь))
|
Так я знаю, может выложите исходник? :)
|
Все дело в функции - она отображается не более одного раза, создай собственный диалог и в цикле ShowWindow(SW_SHOW,..)
|
в событии formcreate что-ли ставишь свой цикл! мошешь sleep понаписывать!!и всё! невидимость в процесах описаана в книге "Делфи глазами хацкера"
|
Цитата:
Цитата:
Выложи, что сделал глянем что именно у тебя не получается...ну или в ПМ.... |
самое простое написать батник, в котором прописать запуск какойнить проги и этогоже батника, оператива в миг заканчивается)))
|
вообще юзай типа потоков или таймера.
А если заюзаешь мультимедийный таймер то окошек будет просто ппц. потому что он вызает обработчик, но недожидается окончание его исполнения и в этоге накапливается огромное число сообщений у тебя. главное со скоростью не переборщить а так этого хватит Код:
procedure TimerProc(wnd:hwnd;uMsg,idEvent:uint;dwTime:DWORD); |
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; |
2 JuliaSmit o_O ТОгда комп стопорнется быстрее чем вылетят окошки
|
| Время: 15:52 |