VPF::Отследить запуск чужого приложения

MastaSlash

Дата 28.5.2006, 10:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 26.5.2006

Репутация: нет
Всего: нет

Как узнать если во время работы моей программы запустили конкретное приложение (например prog.exe) ????
И как узнать где оно находится (путь к prog.exe) ??

Nickel

Дата 28.5.2006, 11:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 7.2.2006

Репутация: 2
Всего: 4

Код


uses PsAPI;

Function FindProcess(ExeName:string):string;
var
  PIDArray   : array [0..1023] of DWORD;
  cb         : DWORD;
  I          : Integer;
  ProcCount  : Integer;
  hMod       : HMODULE;
  hProcess   : THandle;
  ModuleName : array [0..1024] of Char;
begin
  Result := '';
  EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);
  ProcCount := cb div SizeOf(DWORD);
  for I := 0 to ProcCount - 1 do
  begin
    hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,False,PIDArray[I]);
    if (hProcess <> 0) then
       begin
          EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);    
          GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName));
          if UpperCase(ExtractFileName(ModuleName))=UpperCase(ExeName) then Result:=ModuleName;
       end;
    CloseHandle(hProcess);
  end
end;

Если prog.exe запущен, то FindProcess('prog.exe') возвращает полный путь к prog.exe, иначе - ''. Просто проверяй по таймеру, если FindProcess возвратит не '', то программа запущена.

BinaryEvil

Дата 28.5.2006, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 4.3.2006

Репутация: -1
Всего: 2

в качестве альтернативы:
хук WH_CBT на HCBT_CREATEWND если у приложения есть окна

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »