function GetModuleFileNameEx(hProcess: HINST; hModule: HINST; lpFilename: PChar;
  nSize: DWORD): DWORD; stdcall;

  function GetModuleFileNameEx; external 'psapi.dll' name 'GetModuleFileNameExA';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer: array[0..254] of Char;
  hWindow: HWND;
  ProcID: Cardinal;
  hProcess: Cardinal;
begin
  hWindow := FindWindow(nil, PChar('标题'));//得到窗口句柄的一句，你自己搞
  if hWindow <> 0 then begin
    GetWindowThreadProcessId(hWindow, ProcID);
    hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, ProcID);
    if hProcess <> 0 then begin
      GetModuleFileNameEx(hProcess, 0, @Buffer, 255);
      ShowMessage(Buffer);
    end;
  end;
end;