Новый вопрос №83062

Четверг, 01 Января 1970 г. 03:00 + в цитатник

доброе время суток может кто подскажет, есть ли функция определения наличия блокировки системы (win 7/8/8.1)? пользуюсь нижеприведённым кодом. он работает, но чувствую это не самый удачный вариант

code:
function IsLockWorkstation: Boolean;
var
  Desktop: Cardinal;
begin
  Desktop := OpenDesktop('Default', 0, False, DESKTOP_SWITCHDESKTOP);
  Result := not SwitchDesktop(Desktop);
  CloseDesktop(Desktop);
end;

...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83062