Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Вниз
Не могу разобраться Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c