Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#15

Re: Notification, wenn Computer gesperrt/entsperrt wird

  Alt 7. Jul 2007, 14:38
Aus Besagtem habe ich eine einfache Delphi Komponente erstellt, welche 2 Events besitzt (OnLock und OnUnlock), die eintreten, wenn der Benutzer den Rechner sperrt bzw. entsperrt.

Den eigentlichen Code habe ich von den Schweizern hier gefunden.

Da die ganze Geschichte auf Windows Botschaften basiert, brauchte ich ein Handle. Um die Sache aber so bequem als nur möglich zu halten (also ohne Codeanpassung im eigenen Programm), ist die TComputerLock Komponente keine unsichtbare Komponente sondern von TCustomControl abgeleitet. Somit hat die Komponente selbst ein Handle und kann unabhängig die Botschaften empfangen.

Kleine Demo ist angehängt.

Wie bereits erwähnt weiter oben im Thread, läuft die Komponente nur ab WindowsXP. Vista konnte ich leider nicht testen, deshalb kann eventuell einer Feedback hierrüber geben.

Unten angehängt die Komponente als ZIP. Die jeweils aktuelleste Version gibts unter meiner Homepage
Angehängte Dateien
Dateityp: zip computerlocker10_210.zip (27,4 KB, 12x aufgerufen)
  Mit Zitat antworten Zitat