Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.026 c
3-1098518072
TALLA
2004-10-23 11:54
2004.11.21
связь с MySQL: почему ZeosLib работает, а через механизм ADO -нет


8-1092646933
shvez_igor
2004-08-16 13:02
2004.11.21
Робота с графикой в Делфи


1-1099929213
PURGEN
2004-11-08 18:53
2004.11.21
Моргания..


6-1095235552
SashkoSoft
2004-09-15 12:05
2004.11.21
Передача данных php-скрипту


14-1099839594
Vlad Oshin
2004-11-07 17:59
2004.11.21
Лучше. Рассказ