HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

[Delphi] Вывести много MessageBox'ов
  #1  
Старый 30.06.2008, 21:56
Input
Новичок
Регистрация: 27.06.2008
Сообщений: 24
С нами: 9406461

Репутация: 3
Smile [Delphi] Вывести много MessageBox'ов

Уважаемы, античатовцы.
Прошу помочь с написанием, программы. При запуски, которой будут бесконечно открываться окна с заданным текстом. У меня получилось написать только на открытия окна, и при нажатии “окей” открывается новое, а надо, чтобы постоянно открывались окна. Желательно чтобы в процессах программа не отображалась.

Пока написал только это:

“form1.Hide;
while true do showmessage('ТЕКСТ');” (на дельфи).

Заранее огромное вам спасибо.
 
Ответить с цитированием

  #2  
Старый 30.06.2008, 21:57
Ergoproxy
Постоянный
Регистрация: 18.01.2008
Сообщений: 383
С нами: 9638148

Репутация: 476
По умолчанию

бесконечный цикл тебе в помощь))
 
Ответить с цитированием

  #3  
Старый 30.06.2008, 22:32
0verbreaK
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
С нами: 9489537

Репутация: 136
По умолчанию

Все дело в функции - она отображается не более одного раза, создай собственный диалог и в цикле ShowWindow(SW_SHOW,..)
 
Ответить с цитированием

  #4  
Старый 30.06.2008, 22:34
ToniKapuchon
Участник форума
Регистрация: 26.02.2006
Сообщений: 209
С нами: 10633766

Репутация: 93
По умолчанию

в событии formcreate что-ли ставишь свой цикл! мошешь sleep понаписывать!!и всё! невидимость в процесах описаана в книге "Делфи глазами хацкера"
 
Ответить с цитированием

  #5  
Старый 01.07.2008, 22:51
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
С нами: 9655526

Репутация: 1821


По умолчанию

Цитата:
Прошу помочь с написанием,
============
Цитата:
Так я знаю, может выложите исходник?
Ты оп ределись чего хочешь, помощи в написании, или готовый код....
Выложи, что сделал глянем что именно у тебя не получается...ну или в ПМ....
 
Ответить с цитированием

  #6  
Старый 01.07.2008, 23:02
Духъ
Участник форума
Регистрация: 03.09.2007
Сообщений: 119
С нами: 9835038

Репутация: 21
По умолчанию

самое простое написать батник, в котором прописать запуск какойнить проги и этогоже батника, оператива в миг заканчивается)))
 
Ответить с цитированием

  #7  
Старый 02.07.2008, 10:07
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами: 10097606

Репутация: 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..
 
Ответить с цитированием

  #8  
Старый 07.07.2008, 01:36
JuliaSmit
Новичок
Регистрация: 21.12.2007
Сообщений: 10
С нами: 9679037

Репутация: 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;
 
Ответить с цитированием

  #9  
Старый 07.07.2008, 10:48
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами: 10097606

Репутация: 3349


По умолчанию

2 JuliaSmit o_O ТОгда комп стопорнется быстрее чем вылетят окошки
 
Ответить с цитированием

  #10  
Старый 07.07.2008, 14:40
Irdis
Участник форума
Регистрация: 06.02.2006
Сообщений: 177
С нами: 10661593

Репутация: 88
По умолчанию

дак вы прежде чем выдать другое окошко
напишите чё нить в таком духе типо
i:=0;
while i<10000 do
inc(i);
и будет вам задержка времени))))
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
много много ящиков... loginrl__103 Болталка 5 10.06.2008 18:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.