блин, если там есть то о чём я грю то давай, а то у всех пайпы не ждут ответа от серва
Добавлено через 18 минут
пля
delphi Код:
hTh:cardinal;
procedure Test;
begin
hTh:=GetCurrentThread;
SuspendThread(GetCurrentThread);
MessageBox(0, 'Resumed', '', 0);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
c:Cardinal;
begin
CreateThread(nil, 0, @Test, nil, 0, c);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ResumeThread(hTh);
end;
почему жму на кнопку и нет месаджа?