Mein erstes Projekt: Windows-Timer

[3_of_8]

Nimm einen Timer mit Interval 1000 oder 10000.

Kopiere folgende Funktion unter das {R *.dfm} in deiner Unit: http://www.dsdt.info/tipps/?id=200.

Dann klicke doppelt auf den Timer, darauf wird ein OnTimer Ereignis geschrieben. Schreibe dort rein: ExWindows(EWX_POWEROFF or EWX_FORCEIFHUNG); EDIT: Sollte dann so aussehen:

Delphi-Quellcode:

procedure Timer1OnTimer(Sender: TObject);
begin
zeit:=zeit-1     //Das ist die Zeit die vergehen soll, bis Windows runtergefahren werden soll in Sek.
if zeit<=0 then
ExWindows(EWX_POWEROFF or EWX_FORCEIFHUNG);
end;