Ist der Computer gesperrt?

[Delphi Star]

Mit dieser Funktion kann man überprüfen ob der Computer gesperrt ist.

Delphi-Quellcode:

function IsLocked: boolean;
begin
  Result := false;
  try
    Mouse.CursorPos.X;
  except
    Result := true;
  end;
end;

Die Funktion geht nach der Methode "Try and Error" vor, indem sie auf eine Eigenschaft zugreift, bei deren Zugriff es eine Exception gibt, wenn der Computer gerade gesperrt ist. Allerdings gibt es eine WinAPI-kompatible Lösung, die sich in Beitrag #2 befindet (siehe unten).

[edit=Chakotay1308]Code-Style! Hinweis angefügt. Mfg, Chakotay1308[/edit]

[DevilsCamp]

da finde ich diese Funktion aber besser:

Delphi-Quellcode:

function StationLocked: 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;