Блокирование рабочей станции Windows+L

[sysyman]

Здравствуйте! Кто знает как определить совершил ли юзер вход в систему после блокирование рабочей станции по Windows+L ? Сначала думал, что система оповещает программы при входе и выходе пользователя(имеется в виду по Windows+L, а не завершение сессии), искал по сообщениям системы. С помощью проги мониторинга сообщений системы пытылся выделить данное сообщение, результат- система не посылает никаких сообщений. Затем пытался определить название окна-заставки при блокирование рабочей станции, опять же написал прогу мониторинга всех открытых окон системы, результат- никакого нового окна не появляется при блокировании. Поиск по нету тоже ничего не дал. Кто знает подскажите.

[BARNEY]

нашёл код как заблокировать.... может вам это поможет ..по крайней мере куда копать.

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   LockWorkStation;
 end;

 { Loading LockWorkStation dynamically}

 function LockWS: Boolean;
 // by Thomas Stutz, SDC 
type
   TLockWorkStation = function: Boolean;
 var
   hUser32: HMODULE;
   LockWorkStation: TLockWorkStation;
 begin
   // Here we import the function from USER32.DLL 
  hUser32 := GetModuleHandle('USER32.DLL');
   if hUser32 <> 0 then
   begin
     @LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');
     if @LockWorkStation <> nil then
     begin
       LockWorkStation;
       Result := True;
     end;
   end;
 end;