VPF::ProcessID по имени процесса - Форум программистов

a.S.d

Дата 9.3.2005, 21:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как можно получить ProcessID по имени процесса?

p0s0l

Дата 9.3.2005, 23:11 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Юзай поиск! И качай DRKB...
http://forum.vingrad.ru/index.php?showtopi...ll&hl=processid

--------------------

С уважением, г-н Посол.

Bes

Дата 10.3.2005, 08:53 (ссылка)

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

Загрузка ...

Опытный

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

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

Я так пользую:

Код


Procedure GetExeList(List: TStrings);
Var
     MyProcList: TstringList;
     i:integer;
begin
     List.Clear;
     MyProcList := TStringList.Create;
     try
          GetProcessList1(MyProcList);
          if MyProcList = nil then Exit;
          for i := 0 to MyProcList.Count - 1 do
          List.Add(MyProcList.Strings[i]);
     finally
          MyProcList.Free;
     end;
end;


procedure GetProcessList1(var List: TstringList);
var  
  ovi: TOSVersionInfo;  
begin  
  if List = nil then Exit;  
  ovi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);  
  GetVersionEx(ovi);
  case ovi.dwPlatformId of  
    VER_PLATFORM_WIN32_WINDOWS: CreateWin9xProcessList(List);
    VER_PLATFORM_WIN32_NT: CreateWinNTProcessList(List);  
  end  
end;



procedure CreateWin9xProcessList(List: TstringList);
var  
  hSnapShot: THandle;  
  ProcInfo: TProcessEntry32;  
begin  
  if List = nil then Exit;  
  hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);  
  if (hSnapShot <> THandle(-1)) then  
  begin  
    ProcInfo.dwSize := SizeOf(ProcInfo);
    if (Process32First(hSnapshot, ProcInfo)) then  
    begin  
      List.Add(ProcInfo.szExeFile);  
      while (Process32Next(hSnapShot, ProcInfo)) do  
        List.Add(ProcInfo.szExeFile);  
    end;  
    CloseHandle(hSnapShot);  
  end;  
end;

procedure CreateWinNTProcessList(List: TstringList);
var  
  PIDArray: array [0..1023] of DWORD;  
  cb: DWORD;  
  I: Integer;  
  ProcCount: Integer;  
  hMod: HMODULE;  
  hProcess: THandle;
  ModuleName: array [0..300] of Char;  
begin  
  if List = nil then Exit;  
  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));  
      List.Add(ModuleName);  
      CloseHandle(hProcess);  
    end;
  end;  
end;

Откуда взял не помню, но работает.

Это сообщение отредактировал(а) Bes - 10.3.2005, 08:54

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