Показать сообщение отдельно

  #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;
 
Ответить с цитированием