如何计算从完整文件名开始的进程？

debugcn 发表于 Dev

法布里佐

我正在尝试从可执行的完整文件名开始获取进程计数。

这是我的代码：

function GetPathFromPID(const PID: cardinal): string;
var
  hProcess: THandle;
  path: array[0..MAX_PATH - 1] of char;
begin
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID);
  if hProcess <> 0 then
    try
      if GetModuleFileNameEx(hProcess, 0, path, MAX_PATH) = 0 then
        RaiseLastOSError;
      result := path;
    finally
      CloseHandle(hProcess)
    end
  else
    RaiseLastOSError;
end;

function ProcessCount(const AFullFileName: string): Integer;
var
  ContinueLoop: boolean;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  Result := 0;
  while(ContinueLoop) do
  begin
    if ((UpperCase(GetPathFromPID(FProcessEntry32.th32ProcessID)) = UpperCase(AFullFileName)))
    then Result := Result + 1;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.Caption := IntToStr(ProcessCount(Application.ExeName));
end;

GetPathFromPID功能已从此处获取（Andreas Rejbrand的答案）。

运行该应用程序时，出现EOSError异常（“系统错误。代码：87。”）。如文档所述：

ERROR_INVALID_PARAMETER

87（0x57）

参数错误。

从条件引发异常GetPathFromPID，因为hProcess <> 0条件失败并被RaiseLastOSError执行。

调试我注意到传递了0GetPathFromPID作为PID参数，但是我不明白我的代码有什么问题。

重复直到

OpenProcessERROR_INVALID_PARAMETER当您给它的PID为零时，返回。

但是，ERROR_ACCESS_DENIED如果OpenProcess通过GetPathFromPID函数传递给它的过程需要提升，也可能会得到。

使用此实例，以确保您通过的进程仅具有相同的名称。

  while (ContinueLoop) do
  begin
    if SameText(ExtractFileName(AFullFileName), FProcessEntry32.szExeFile) then
    if ((UpperCase(GetPathFromPID(FProcessEntry32.th32ProcessID)) = UpperCase(AFullFileName)))
     ....
  end;

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。