Status Arbeitsstation gesperrt oder nicht abfragen...

[Murmeltier]

Hallo,

ich bastel gerade einen Messenger, der eine Abwesenheitsfunktion enthalten soll... Sobald der Benutzer die Arbeitsstation sperrt (STRG+ALT+ENTF, Computer Sperren), soll entsprechend reagiert werden. WIE bekomme ich raus, ob die gerade gesperrt ist oder nicht ?

Danke & Gruß,

Robert

[toms]

Hi,

Probier's mal damit:

Delphi-Quellcode:

function IsDesktopLocked: Boolean;
var
 hDesktop: HDESK;
begin
 Result := False;
 hDesktop := OpenDesktop('default',
      0, False,
      DESKTOP_SWITCHDESKTOP);
 If hDesktop <> 0 Then
 begin
   Result := not SwitchDesktop(hDesktop);
   CloseDesktop(hDesktop);
 end;
end;