윈도우 화면보호기 상태확인

윈도우 화면보호기 상태확인

 

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;