Programm nach keiner Benutzeraktion nach 10 min schließen

[Jens Hartmann]

Wie wäre es den mit folgender Lösung...

Delphi-Quellcode:

function LastInput: DWord;
var LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

//Aufruf über TTimer
try
  if Lastinput > CancelTime then  //CancelTime bei 10min 1000*60*10
    UserCancelling;
except
  //
end;

Gruß Jens

[Bummi]

DELETED

EDIT:
nimm die Routine von Jens Hartmann

[itblumi]

Danke an alle die mir geholfen haben. Die Funktion ist echt Klasse, Danke Jens.