Не выключается комп с запущеной программой

[KORN]

Всем доброго дня... сталкнулся с такой проблемой: при выключении компьютера он не может завершить мою программу и комп продолжает работать... уже весь код перерыл и не могу понять что не так... если кто нить встречался с такой траблой подскажите что делать...

[Altera]

Используй GetMessage(), в качестве HWND окна пиши NULL.
Если в очереде сообщений следущее WM_QUIT, то функция фозвращает FALSE.
Если ты пишешь прогу для win32, то запихни это в отдельный поток, организующий выход из програмы.

[KORN]

нет так на других то прогах все норм... а тут касяк вылазит... такое ощющение что система посылает команду закрытия а прога толи ее не успевает обработать то ли че...

[Altera]

Ну а ты проверь, доходит сообщение или нет
В главной форме напиши:

private
    { Private declarations }
    procedure onClose (var msg: tMessage); message wm_close;

.....

procedure Ttest_form1.onClose(var msg: tMessage);
begin
   close; {если тут написать что-то другое, например showMEssage('dafs'), то прога не будит никак закрываться}
end;

[Terran]

Программа может не закрываться в том случае, если у вас в оброботчике события

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
end;

CanClose:=False;

Или можно ещё зделать так:

public
    { Public declarations }
     procedure WMQueryEndSession(var Message: TMessage); message WM_QUERYENDSESSION;
-----------------------
procedure TForm1.WMQueryEndSession(var Message: TMessage);
begin
Message.Result:=1;
Halt;
//PostMessage(Application.Handle, wm_Quit, 0, 0);
end;

[KORN]

неа не канает... я уже снес все что выполняется на OnClose там только осталось application.terminate; halt так же не помогает...

[Stilet]

Ну и где твой код?