PC Ausschalten mit NOT-AUS-Knopf

[Luckie]

Wenn du 2000 und höher hast, könnte das gehen:

Delphi-Quellcode:

Function LastInput: boolean; 
 var LInput : tagLASTINPUTINFO; 
 const TIMELIMIT = 10000; 
 begin 
   result := false; 
   LInput.cbSize := SizeOf(tagLASTINPUTINFO); 
   GetLastInputInfo(LInput); 
   if (GetTickCount - LInput.dwTime) > TIMELIMIT then result := true; 
end;