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;