枚举进程for in

最新推荐文章于 2024-06-07 12:29:36 发布

转载最新推荐文章于 2024-06-07 12:29:36 发布 · 53 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/Jekhn/archive/2011/08/16/2140331.html

本文介绍了一种使用Delphi获取指定进程ID的方法。通过调用Windows API函数CreateToolhelp32Snapshot和Process32First等，遍历当前系统中运行的所有进程，并能够根据进程名称查找并返回对应的进程ID。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//use Tlhelp32

function GetProcessIDEx(List:TStrings; ProcessName: string = ''): TProcessEntry32;
var
  ret: Boolean;
  processID: Cardinal;
  _processName: string;
  FSnapshotHandle: HWND;
  FProcessEntry32: TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ret := Process32First(FSnapshotHandle,FProcessEntry32);
  while ret do
  begin
    _processName := ExtractFileName(FProcessEntry32.szExeFile);
    if (ProcessName = '') then
    begin
      processID := FProcessEntry32.th32ProcessID;
      List.Add(Format('%-20s%d',[_processName,processID]));
    end
    else if (AnsiCompareText(_processName,ProcessName)=0) then
    begin
      processID := FProcessEntry32.th32ProcessID;
      List.Add(Format('%-20s%d',[_processName,processID]));
      Result := FProcessEntry32;
      Break;
    end;
    ret := Process32Next(FSnapshotHandle,FProcessEntry32);
  end;
end;

function GetProcessID(const ProcessName: string): Integer;
var
  ret: Boolean;
  processID: Cardinal;
  _processName: string;
  FSnapshotHandle: HWND;
  FProcessEntry32: TProcessEntry32;
begin
  Result := -1;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ret := Process32First(FSnapshotHandle,FProcessEntry32);
  while ret do
  begin
    _processName := ExtractFileName(FProcessEntry32.szExeFile);
    if (AnsiCompareText(_processName,ProcessName)=0) then
    begin
      processID := FProcessEntry32.th32ProcessID;
      Result := processID;
      Break;
    end;
    ret := Process32Next(FSnapshotHandle,FProcessEntry32);
  end;
end;

function IsDestProcess: Integer;
type
  TExeNameEnum = (exeNotepad=1,exeTest=2,exeBds=3);
const
  K_ExeName: array [TExeNameEnum] of string = (
  ('Notepad1.exe'),('Test.exe'),('bds.exe')
  );
var
  ExeName: TExeNameEnum;
  //ExeName: exeNotepad..exeBds;
begin
  Result := -1;
  //for in 高版本才可以用如D2007
  for ExeName in [Low(TExeNameEnum)..High(TExeNameEnum)] do
  //for ExeName in [exeNotepad..exeBds] do
  begin
    ShowMessage(K_ExeName[ExeName]);
    Result := GetProcessID(K_ExeName[ExeName]);
    if Result > 0 then Break;
  end;
end;

转载于:https://www.cnblogs.com/Jekhn/archive/2011/08/16/2140331.html