Thema: Delphi System aus Standby holen

Einzelnen Beitrag anzeigen

Loni

Registriert seit: 31. Mär 2007
77 Beiträge
 
#1

System aus Standby holen

  Alt 4. Mai 2007, 20:39
Hi ich habe nach einer Möglichlkeit gesucht den PC aus dem Standby zu holen und habe im Internet was gefunden was ich aber nicht ganz verstehe wenn jemand ein paar Komentare anfügen könnte oder es komplett erläutern könnte wäre ich dankbar. Wenn jemand nen eingenen Code hat der das bewirkt wäre natürlich noch besser.

CODE AUS DEM INTERNET :


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;
  Mit Zitat antworten Zitat