Delphi遍历进程-Win32API

unit Uuitls;

interface

uses
  TlHelp32, Winapi.Windows;

function GetPidByProName(proname: string): DWORD;

implementation

function GetPidByProName(proname: string): DWORD;
var
  hwd: THandle; //句柄
  RocessEntry: TProcessEntry32; //结构类型的变量
  found: Boolean; //返回一个布尔值（用来判断是否找到进程信息）
  processid: dword; //储存找到的进程ID
  Pname: string; //储存找到的进程名称end;
begin
  Result := 0;
    //获得进程快照句柄
  hwd := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  //给TProcessEntry32结构的第一个参数赋值（也可以理解为把这个结构的第一个参数初始化）
  RocessEntry.dwSize := sizeof(RocessEntry);
  //使用Process32First函数取得第一个进程的信息
  found := Process32First(hwd, RocessEntry);
  //如果Process32First函数执行成功也就是说找到进程列表里的第一个进程时开始循环
  while found = true do
  begin
  //取得第下一个进程信息
    found := Process32Next(hwd, RocessEntry);
    Pname := RocessEntry.szExeFile;

    if Pname = proname then
    begin
      //把找到的进程显示出来

      Result := RocessEntry.th32ProcessID;
      Break
    end;

  end;

end;

end.

unit UBaseTools;

interface

uses
  Generics.Collections, psapi, Variants, Winapi.Windows, Winapi.Messages, TLHelp32, Vcl.StdCtrls, System.SysUtils, Vcl.Dialogs;



{*------------------------------------------------------------------------------
  枚举游戏进程，获取所有的PID

  @param ProName
  @return
-------------------------------------------------------------------------------}
function ListPids(ProName: string): TListCardinal>;

function StrToDword(Value: string): DWORD;

 // DwordToStr() : Converts a DWORD to a 4 byte string
function DwordToStr(Value: dword): string;

implementation

function ListPids(ProName: string): TListCardinal>;
var
  ContinueLoop: BOOL;       //是否继续循环
  FSnapshotHandle: THandle; //进程快照句柄
  FProcessEntry32: TProcessEntry32; //进程入口的结构体信息
  pids: string;
  pid: Integer;
  hProcess: THandle;
  ProcessFullPathName: string;
  buf: array[0..MAX_PATH] of Char;
  buf1: array[0..MAX_PATH] of Char;
var
  List: TListCardinal>;  {定义一个泛型 TList 类, 这指定了要用于 string}
begin
  List := TListCardinal>.Create;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
//CreateToolhelp32Snapshot函数得到进程快照
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32); //初始化
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
//Process32First 得到一个系统快照里第一个进程的信息

  while ContinueLoop do
  begin
   //进程ID
    pid := FProcessEntry32.th32ProcessID;

    hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, pid);
    if hProcess  0 then
    begin
      if StrPas(FProcessEntry32.szExeFile) = ProName then
      begin
        List.Add(FProcessEntry32.th32ProcessID);
      end;

    end;

    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
  Result := List;
end;