Hallo,
wie kann ich in einem Dienst prüfen, ob die Arbeitsstation gesperrt ist oder nicht?
dieser Code funktioniert nur in einer Anwendung nicht aber in einem Dienst!!
Delphi-Quellcode:
function IsWorkstationLocked: 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;