скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Проверить, заблокирована ли рабочая станция



Оформил: DeeCo

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;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook