So habs gefunden...
Ein Timer fragt jede 10 Sec. die "LastInputInfo" ab wenn dieser wert 240 Sec. überschreitet wird die procedure ausgeführt ist der wert unter 240 Sec dann else procedure
Delphi-Quellcode:
function SecondsIdle: DWord;
var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(liInfo) ;
Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;
procedure TForm1.Timer1Timer(Sender: TObject) ;
begin
Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;
Mfg, Steve