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]