[delphi] CanClose := False Jak zeby sie dalo wylaczyc komputer ?

Witam :)

Mam problem, otoz chce zeby mojej aplikacji nie dalo sie zamknac.

No dobrze, dodaje taka linijke w OnCloseQuery Formy:

[...]CanClose := False;[...]

I niestety nie da sie zamknac systemu (z wiadomych oczywiscie powodow).

Jak zrobic, zeby aplikacja wykrywala probe wylaczenia komputera i wykonywala procedure:

[...]Application.Terminate;[...] ??

Pozdrawiam.
Użytkownik Shooter edytował ten post 08 styczeń 2006, 19:59

---

Czytasz to: http://forum.ks-eksp...showtopic=46776 i wykonujesz Application.Terminate w razie otrzymania komunikatu.

BTW po co wykonywać Application.Terminate, jak i tak to zostanie wywołane? :rolleyes:

procedure TForm1.WndProc(var Message: TMessage); begin  if Message.Msg = WM_QUERYENDSESSION then    begin       zamknij := True;       Application.Terminate;    end;  inherited WndProc(Message); end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin  CanClose :=  zamknij; end;

zamknij = globalny boolean
Użytkownik Bełdzio edytował ten post 08 styczeń 2006, 23:32
Mam tak:

procedure WndProc(var Message: TMessage); begin if Message.Msg = WM_QUERYENDSESSION then   begin      zamknij := True;      Application.Terminate;   end; inherited WndProc(Message); end;

Daje blad na inherited WndProc(Message); :

This form of method call only allowed in methods of derived types

Co jest zle ?

---

Spróbuj bez tej linijki :)

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl