Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

как узнать запущен ли процесс с определенным именем?   Найти похожие ветки 

← →
GIL ©   (2004-11-05 16:33) [0]

собсно см тему.

---

← →
ssk ©   (2004-11-05 16:48) [1]

выдрал из фака совет, как убить процесс по ЕХЕ-имени и немного переделал:


function IsEXERunning(EXEFileName: string): boolean;
var
 ContinueLoop: BOOL;
 FSnapshotHandle: THandle;
 FProcessEntry32: TProcessEntry32;
begin
 Result := False;
 FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
 ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
 while Integer(ContinueLoop) <> 0 do
   begin
     if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
          UpperCase(ExeFileName)) or
         (UpperCase(FProcessEntry32.szExeFile) =
          UpperCase(ExeFileName))) then Result := True;
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
   end;
 CloseHandle(FSnapshotHandle);
end;


---

Страницы: 1 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.046 c