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

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
;

Другое по теме:

• Определение системной информации
• Как передать при создании нити (Tthread) ей некоторое значение
• Частичная блокировка и разблокировка функций клавиатуры и мышки