Einzelnen Beitrag anzeigen

Benutzerbild von Jens Hartmann
Jens Hartmann

Registriert seit: 11. Jan 2009
Ort: Wilnsdorf
1.439 Beiträge
 
Delphi XE2 Professional
 
#1

Automatisch abmelden von Benutzer nach Zeit ohne Handlung

  Alt 14. Sep 2009, 20:10
Hallo,

kann ich es irgendwie einfach realisieren, das ein Programmbenutzer, automatisch abgemeldet wird, wenn er nach Voreingestellter Zeit keine Handlung mehr durchgeführt hat.

Soll heißen, mein Benutzer hat sich in meinem Programm angemeldet, hat irgendwas durchgeführt und verlässt den Arbeitsplatz. Jetzt soll nach voreingestellter Zeit ohne Maus Bewegung etc automatisch alle Freigeschalteten Programmrechte wieder gesperrt werden und der Anmeldebildschirm erscheinen.

Mein Lösungsansatz, wäre mit einem Timer. Ich weiß nur nicht genau, wie ich den Starte. Wie kann ich den Auswerten, das keine aktivität mehr vorhanden ist. Allerdings nur User Aktivität. Das Programm selber führt gewisse Sachen aus, die sollen weiterlaufen.

Außerdem suche ich das Ereignis, welches mir eine neue Aktivität angibt. Dann wäre die Lösung so denke ich ganz einfach.


Delphi-Quellcode:
Keine Aktivität mehr

TimerAutoAbmelden.Enabled := true;

Erneute Aktivität


TimerAutoAbmelden.Enabled := false;


procedure TForm1.AutoAbmeldenTimer(Sender: TObject);
begin
  Abmelden;
end;
Danke schon mal für Eure antworten.

Gruß Jens
Jens Hartmann
Das Leben selber ist zu kurz, also nutze jeden Tag wie er kommt.
  Mit Zitat antworten Zitat