Delphi7通过进程ID获取句柄

在 Delphi7 中，可以通过 `OpenProcess` 函数来获取进程句柄。以下是一个示例代码：

function GetProcessHandle(ProcessID: DWORD): THandle;
begin
  Result := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID);
end;

其中，`PROCESS_ALL_ACCESS` 参数表示获取进程句柄的访问权限，False 表示不继承句柄。调用该函数时，传入进程的 ID 即可获取对应进程的句柄。获取到句柄后，就可以使用其他 API 函数进行操作了。