Не могу разобраться

← →
SERY (2002-08-18 19:25) [0]

Здравствуйте, мне надо закрыть свою прогу до завершения Windows,
т.е. когда пользователь выключает комп или перегружает его, то
пограмма должна перед этим зарыться
Что неправельно ?
procedure TfmMain.WMGetSysCommand(var Message : TMessage);
begin
message.LParam:=ENDSESSION_LOGOFF;
message.Result:=1;
MainForm.Close;
inherited;
end;

← →
SERY (2002-08-18 19:31) [1]

HELP! HELP!

← →
Юрий Зотов (2002-08-18 19:35) [2]

То же самое, но только с WM_QUERYENDSESSION.

← →
SERY (2002-08-18 19:35) [3]

)

← →
SERY (2002-08-18 19:59) [4]

> Юрий Зотов
Спасибо за ответ!
Чего-то не хочет работать

Procedure TfmMain.WMGetSysCommand(var Message : TMessage);
message.LParam:=WM_QUERYENDSESSION;
message.Result:=1;
TfmMain.Close;
inherited;
end;

пишет ошибка: UMain.pas(620):This form of metod call only allowed for class methods

← →
SERY (2002-08-18 20:12) [5]

)

← →
SERY (2002-08-18 20:42) [6]

Вернее работает, но тогда перестает работать отлавливание кнопки
закрытия приложения
Помогите товарищи !!!

← →
Юрий Зотов (2002-08-18 21:44) [7]

Ну при чем тут SysCommand? И зачем менять LParam? И что за странная строка TfmMain.Close?

type
TForm1 = class(TForm)
private
procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
end;

procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
inherited;
Close
end;

И все.

← →
SERY (2002-08-19 18:04) [8]

> Юрий Зотов
ВСЕ работает теперь!
Огромное спасибо Юрий,воистину вы настоящий Мастер,
не бросили.

Не могу разобраться Найти похожие ветки