delphi - 如何从窗口句柄中获取可执行文件名？

Question

我有这个代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: THandle;
begin
  MyHandle:=FindWindow(nil, 'Delphi');
  SendMessage(MyHandle, WM_CLOSE, 0, 0);
 // Here will be a message like ' title found and it's test.exe that has 'Delphi' Title
end;

例如，它是test.exe具有'Delphi'标题的进程，我想通过使用窗口句柄来获取该进程的 EXE 文件名。那可能吗？如果是这样，我可以做一些参考吗？

标签： delphiwinapi

Answer 1

给定任何有效HWND的 ，您可以执行以下操作：

• 用于GetWindowThreadProcessId()获取创建它的进程 ID。
• 然后使用 OpenProcess()打开HANDLE该进程。
• 然后使用GetModuleFileNameEx(), GetProcessImageFileName(), 或QueryFullProcessImageName()（取决于操作系统版本）获取创建该进程的 EXE 的文件路径。