Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

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

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
4-96011
MVova
2002-06-25 16:30
2002.08.29
Как растянуть текст?


1-95801
Lord BDV
2002-08-16 20:16
2002.08.29
Выше 64 MB на Windows 98 не прыгнешь !?!


1-95794
AL2002
2002-08-19 19:40
2002.08.29
SpinEdit по Enterу


1-95797
^Sanya
2002-08-20 00:11
2002.08.29
WinXP Processes


4-96022
HighWay
2002-06-25 20:13
2002.08.29
Как вызвать событие в другом приложении?