Скачать: CL | DM;

Как отловить перезагрузку или выключение Win2000   Найти похожие ветки 

← →
Alex*   (2004-04-30 14:43) [0]

Subj

---

← →
Игорь Шевченко ©   (2004-04-30 14:44) [1]

WM_QUERYENDSESSION

---

← →
Alex*   (2004-04-30 14:48) [2]

Не работает. В программе при появлении команды перезагрузки должно выполняться функция сохранения параметров. На WM_QUERYENDSESSION не реагирует

---

← →
Игорь Шевченко ©   (2004-04-30 14:49) [3]

Alex*   (30.04.04 14:48)

Обычно работает. Может, код неправильный ?

---

← →
Alex*   (2004-04-30 14:52) [4]

procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
var frmClose:TCloseAction;
begin
//  frmClose:=caFree ;
 case Msg.LParam of
   WM_LBUTTONDOWN: Form1.Visible:=true;
   WM_RBUTTONDOWN: Form1.Visible:=false;
   WM_QUERYENDSESSION: SaveIni; //FormClose(self, frmClose);
{ Народное творчество. точнее ипробованные варианты
   WM_CLOSE: SaveIni; //FormClose(self, frmClose);
   WM_ENDSESSION: SaveIni;
   WM_DESTROY: SaveIni;
   WM_KILLFOCUS: SaveIni;
   WM_CHILDACTIVATE: SaveIni;
   WM_IME_ENDCOMPOSITION: SaveIni;
   WM_DEVICECHANGE: SaveIni;}

 end;
//  if Msg.LParam == WM_ACTIVATE
end;

Код взят из форума

---

← →
Alex*   (2004-04-30 14:53) [5]

Рука дрогнула. И немного модифицирован

---

← →
clickmaker ©   (2004-04-30 15:07) [6]

А WMTRAYICONNOTIFY в ответ на что приходит ?

---

← →
Игорь Шевченко ©   (2004-04-30 15:08) [7]

>Код взят из форума

Наверное, лучше у автора кода спросить ? Я пока не вижу, почему именно в этот метод должно приходить сообщение WM_QUERYENDSESSION

---

← →
Alex*   (2004-04-30 15:20) [8]

> clickmaker ©   (30.04.04 15:07) [6]

Мысль понял. В процедуре procedure TForm1.FormCreate(Sender: TObject). Тока как ее FormClose воткнуть.

---

← →
Alex*   (2004-04-30 15:21) [9]

> Игорь Шевченко ©   (30.04.04 15:08) [7]

Немого. Взят из архива.

---

← →
Alex*   (2004-04-30 15:40) [10]

УРА!!! Все получилось

> Игорь Шевченко ©   (30.04.04 15:08) [7]

Огромное Спасибо за подсказки

> clickmaker ©   (30.04.04 15:07) [6]
> А WMTRAYICONNOTIFY в ответ на что приходит ?

Особенное Огромное Спасибо за правельно заданный вопрос.

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.981 c