потоки [D6, XP]
Страницы:
<
1
2
>
Альберт © (2007-10-07 23:06:00)
создаю окно. делаю 2 потока
procedure createMainWindow;
...
begin
...
Handle:=CreateWindowEx ( ... )
end;
procedure WaitMainWindow(Param: Integer); stdcall;
begin
While GetMessage(Mesg,0,0,0) do
begin
TranslateMessage(Mesg);
DispatchMessage(Mesg);
messagebox(0,0,0,0);
end;
end;
procedure WaitAnotherWindow(Param: Integer); stdcall;
begin
...
end;
var hThread: array [1..2] of THandle;
dwThreadId: array [1..2] of Cardinal;
...
createMainWindow;
hThread[1]:= CreateThread(nil,0,@
WaitMainWindow,0,0, dwThreadId[1]); .. НЕ работает
hThread[2]:= CreateThread(nil,0,@WaitAnotherWindow,0,0,
dwThreadId[2]); // работает
WaitForMultipleObjects(MAX_THREADS,@hThread,FALSE,INFINITE);
CloseHandle(hThread[1]);
CloseHandle(hThread[2]);
подскажите, плз, почему сообщения не обрабатываются?
DVM (2007-10-07 23:13:00) [21]
MessageBox убери
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
