Status Arbeitsstation gesperrt oder nicht abfragen...

[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;