Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Nachricht bei Herunterfahren des Systems
24. Mär 2003, 22:53
Delphi-Quellcode:
type
TForm1 = class(TForm)
private
{ Private-Deklarationen }
procedure WMQUERYENDSESSION(var msg: TMessage); message WM_QUERYENDSESSION;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMQUERYENDSESSION(var msg: TMessage);
begin
ShowMessage('Windows wird beendet.');
msg.Result := Integer(TRUE); // TRUE: darf weiter runterfahren; FALSE: nicht runterfahren
end;
[edit=flomei]Wir "räumen auf", daher Titel geändert... Mfg, flomei[/edit]
Michael Ein Teil meines Codes würde euch verunsichern.
|