Как закрыть приложение при выключение Winsows

[pro100-delphi]

Я пишу программу которая может сворачиваться в трей-иконку, которая может добавиться в автозапуск и наоборот. Я думаю многие знают, что все программы с такими функциями умею сами закрываться по нажатию кнопки "выключение" .

ВОПРОС. Как сделать так что бы программа сама закрывалась при выключение? И будет ли это работать в других версиях Windows?(у меня Windows XP)

[Stilet]

Как сделать так что бы программа сама закрывалась при выключение?

Сделать ее оконной и ловить сообщение...
Впрочем чего я говорю - вот смотри: http://www.programmersforum.ru/showt...UERYENDSESSION

[pro100-delphi]

Stilet, я посмотрел в этой теме - http://www.programmersforum.ru/showt...UERYENDSESSION
нифига не пашет!!!
пишет несколько ошибок здесь:

procedure TMainForm.WMOFF(var Msg: TWMQueryEndSession);
begin
//здесь ваши действия
inherited;
end;

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

________
да и ещё я объявил это в разделе private:

procedure WMOFF(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;

и добавил вместо //здесь ваши действия строку application.terminate;.
в итоге когда запускаю компилирую пишет что ошибка в этой строчке:

procedure TMainForm.WMOFF(var Msg: TWMQueryEndSession);

[apocalypce]

Сообщение от pro100-delphi

Stilet, я посмотрел в этой теме - http://www.programmersforum.ru/showt...UERYENDSESSION
нифига не пашет!!!
пишет несколько ошибок здесь:

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

все работает!

это наверное забыли прописать???:

private
 procedure WMOFF(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;

а для формы можно например написать:

procedure TMainForm.WMOFF(var Msg: TWMQueryEndSession);
begin
Form1.Close; //или просто Close;
inherited;
end;

TMainForm - название вашей формы (Form1 - тоже самое - название Вашей формы)

только для формы имеется ввиду прописываем после

mplementation
{$R *.dfm}

это в unit

[pro100-delphi]

это наверное забыли прописать???:
Код:
private
procedure WMOFF(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;

не забыл я это прописать. я же писал что не забыл!!!))

[pro100-delphi]

может после

implementation

[pro100-delphi]

блин!!! да не пашет оно нифига

[apocalypce]

Сообщение от pro100-delphi

блин!!! да не пашет оно нифига

на фот держи исходник и скажи что еще не работает!

[pro100-delphi]

- вот ошибка

[apocalypce]

Сообщение от pro100-delphi

- вот ошибка

ну так правильно будет ошибка! у вас главная форма называеться Form1 , а в процедуре написанно TMainForm!

Надо это:

procedure TMainForm.WMOFF(var Msg: TWMQueryEndSession);

переименовать в вот это:

procedure TForm1.WMOFF(var Msg: TWMQueryEndSession);