functionIsWorkstationLocked: 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
;