function GetProcessByEXE(exename: string): THandle;  //нахождение процесса
var
  hSnapshoot: THandle;
  pe32: TProcessEntry32;
begin
  Result:= 0;                      //обнуление результата
  hSnapshoot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);  //список всех процессов
  if (hSnapshoot = 0) then Exit;               //проверка на наличае процессов
  pe32.dwSize:= SizeOf(TProcessEntry32);       //передача размера
  if (Process32First(hSnapshoot, pe32)) then   //нахождение нужного процесса
    repeat
      if (pe32.szExeFile = exename) then
      begin
        Result:= pe32.th32ProcessID;
        exit;
      end;
    unt