Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не могу разобраться [D5, Win95/98]


SERY ©   (2002-08-18 19:25:00) 

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


SERY   (2002-08-19 18:04:00) [1]

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


Юрий Зотов   (2002-08-18 21:44:00) [2]

Ну при чем тут 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-18 20:42:00) [3]

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


SERY   (2002-08-18 20:12:00) [4]

)


SERY   (2002-08-18 19:59:00) [5]

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

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


Юрий Зотов   (2002-08-18 19:35:00) [6]

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


SERY   (2002-08-18 19:35:00) [7]

)


SERY   (2002-08-18 19:31:00) [8]

HELP! HELP!


Наверх

Титульная страница Поиск, карта сайта Написать письмо