Notification, wenn Computer gesperrt/entsperrt wird

[DevilsCamp]

Zitat:

Zitat von Heffalump

für die es noch nicht wissen. Ein Winlogon Notification Package ist nichts anderes als eine selbst geschriebene DLL, welche definierte Funktionen exportiert und ein paar definierte Values in der Registry. Die ins Pascal konvertierten Header kann man im überigen hier herunterladen: Graded Conversions Library List. Und wer daraus Windows Botschaften benötigt, kann diese ja aus dieser DLL mit Send- oder Postmessage senden (selbst definierte). Das Package läuft dann übrigens im Winlogonprozess.

Also muss das Package bei jedem Client installiert werden...

[Heffalump]

ja, siehst Du darin ein Problem?

[DevilsCamp]

ja, da ich nicht bei jedem Client dieses Package installieren kann/will

[Luckie]

Tja, da wirst du wohl nicht drumrumkommen.

[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