Не могу выключить прогу

← →
Thick (2003-12-12 13:38) [0]

Пишу прогу на API и при завершении она не выключаеться
вот код со всеми сообщениями о закрытии
ID_ClOSE:
begin
HDll:=LoadLibrary("Module");
@Ab:=GetProcAddress(HDll,PChar("Auto"));
Ab;
FreeLibrary(hdll);
SendMessage(hWnd, WM_DESTROY, 0, 0);
end;

WM_DESTROY:
begin
TaskBarDeleteIcon(hWnd, 0);
SendMessage(FindWindow("TMes","Mes"),WM_CLOSE,0,0);
SendMessage(FindWindow("MyKalOfForm","Simple Program"),WM_CLOSE,0,0);
PostQuitMessage(0);
Exit;
end;

А это код основной процедуры

begin
FillChar(WndClass, SizeOf(WndClass), 0);
with WndClass do
begin
hInstance := SysInit.hInstance;
lpszClassName := ClassName;
lpfnWndProc := @WindowProc;
end;
RegisterClass(WndClass);
hWnd := CreateWindow(ClassName, "", 0, 0, 0, 0, 0, 0, 0, hInstance, NIL);
SetTimer(hwnd,0,1000,nil);
TreyCreated := RegisterWindowMessage("TaskbarCreated");
CreateIcon;
while GetMessage(Msg, hWnd, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
Halt(Msg.wParam);
end.

← →
Cobalt (2003-12-13 22:32) [1]

Попробуй вести журнал (англ. log) ВСЕХ сообщений, которые приходят в очередь сообщений и твоей оконной процедуре - может, отладишь...

← →
JibSkeart (2003-12-14 12:30) [2]

а что для сообщений нелзя использовать чтоли
тот Хендл уже созданного окна ?

Не могу выключить прогу Найти похожие ветки