Tray

← →
Alibaba © (2002-03-07 16:40) [0]

Всем привет!
Нарисовал прогу, которая при запуске делает Application.ShowMainForm:=False, потом ставит иконку в Tray (что-бы показать что прога жывая) и чего-то делает.
Все класно. Но есть одно "НО".
Когда я говорю Виндам - ShutDown - закриваются все програмы, которые сейчас открыты - кроме моей! И, соответственно, никакого SutDown-а не происходит. Надо сначала закрывать мою прогу а потом делать ShutDown.

Это происходит потому, что когда Винда делает ShutDown - она разсылает message WM_QUIT все окнам. Но у моей проги нет активного окна во время работы!!! Поэтому моей проге, получается, нечем отловить это сообщение.

Я попытался отловить это сообщение самостоятельно:

const
CM_OK = WM_USER+$1100;

type
TfrmMain = class(TForm)
...
public
procedure OK(var message: TMessage); message CM_OK;
end

procedure TfrmMain.OK(var message: TMessage);
var ms: MSG;
begin
GetMessage(ms,0,0,0);
if ms.message = WM_QUIT then frmMain.Close;
end;

не работает...
Подскажите, может кто знает, куда бежать?

← →
Ketmar © (2002-03-07 20:15) [1]

смотри WM_QUERYENDSESSION и компанию.

Satanas Nobiscum!

7/Mar/XXXVII A.S.

Tray Найти похожие ветки