Notification, wenn Computer gesperrt/entsperrt wird

[Jelly]

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