Windows neu starten

[SaFu]

Kann mir vielleicht einer sagen ob das damit funktionieren würde

habe gelesen das es gehen soll vorausgesetzt der rechner ist nur in den Standbymodus gefahren

Delphi-Quellcode:

var 
liDuTime:LARGE_INTEGER; 
weckzeit,uhrzeit:SYSTEMTIME; 
ftime:FILETIME; 
fitime:FILETIME; 
begin 
 weckzeit.wYear:=strtoint(edit1.text); 
 weckzeit.wMonth:=strtoint(edit2.text); 
 weckzeit.wDayOfWeek:=strtoint(edit4.text); 
 weckzeit.wDay:=strtoint(edit3.text); 
 weckzeit.wHour:=strtoint(edit5.text); 
 weckzeit.wMinute:=strtoint(edit6.text); 
 weckzeit.wSecond:=0; 
 weckzeit.wMilliseconds:=0; 
 SystemTimeToFileTime(weckzeit,ftime); 
 LocalFileTimeToFileTime(ftime,fitime); 
 liDuTime.LowPart:=fitime.dwLowDateTime; 
 liDuTime.HighPart:=fitime.dwHighDateTime; 
 hTimer:=CreateWaitableTimer(NIL,TRUE,NIL); 
 CancelWaitableTimer(htimer); 
 SetWaitableTimer(hTimer,lidutime.quadpart,1000,NIL,NIL,true); 
 SetSuspendState(true,true,false); 
end;

gruss sascha