Delphi - Windows NT munkaállomás lezárása (lock) programból

forráskód letöltése
Ha szükségünk lenne arra, hogy programból zárjuk le (Ctrl + Alt + Del, majd Lock Workstation) egy Windows NT munkaállomást, akkor a mellékelt példából megtudhatjuk ennek igen egyszerű módját.

Így például készíthetünk olyan alkalmazást, mely figyeli, hogy a felhasználó ténylegesen dolgozik-e a géppel, vagy mondjuk épp elment ebédelni, de nem zárta le a gépet, így ahhoz bárki hozzáférhet. Ekkor a program, ha mondjuk már öt perce nem érzékel semmilyen felhasználói tevékenységet, akkor lezárhatja a munka állomást. Windows 2000 alatt létezik egy olyan függvény, melynek LockWorkStation a neve. A kívánt hatás elérésének érdekében nincs más teendőnk, mint meghívni ezt a függvényt.

A függvény persze csak akkor fog hiba nélkül futni, ha már van bejelentkezett felhasználó.