Как перехватить программно смену пользователя

[ale_krolik]

Знравствуйте.Мною написана прграмма которыа управляеться службой (Ну, типа открываеться, закрываеться). При перезагрузке системы все нормально работает, служба точно знает что программа не запущена. Но при смене пользователя, служба не перезапускаеться и в итоге она не знает, запущена ли программа или нет. Когда пользователь сам закрывает данную программу, она сообщает службе что мол я закрываюсь, а при смене пользователя ничего не происходит. Так вот, вопрос. Либо два решения, не заню какое легче и выгоднее. Как мне перехватить смену пользователя и послать запрос на закрытие программы или как мне из службы узнать, закрылась ли программа или нет. Заранее всем спасибо.

[rpy3uH]

чтобы узнать закрылась или нет то вот так

  var
   hpr:thandle;
  ....
  hpr:=OpenProcess(PROCESS_TERMINATE,false,ProcessID);
  if hpr=0 then 
     begin
       //процесса не существует следовательно он закрыт
     end;

если не знаешь как получить ID процесса по его имени
то вот так

function GetProcessID(ProcessName:string):DWORD;
var
  Snap: dword;
  Process: TPROCESSENTRY32;
begin
  Result := 0;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
      Process.dwSize := SizeOf(TPROCESSENTRY32);
      if Process32First(Snap, Process) then
         repeat
          if lstrcmpi(Process.szExeFile, pchar(ProcessName)) = 0 then
             begin
              Result := Process.th32ProcessID;
              CloseHandle(Snap);
              Exit;
             end;
         until not Process32Next(Snap, Process);
      Result := 0;
      CloseHandle(Snap);
     end;
end;