[Redddd]

Получилось так:

Код:

var
  dPID: dWord;
  hHandle,hWnd: THandle;
  Result:String;
begin
  hWnd:=FindWindow(nil,'Wasppacer');
  GetWindowThreadProcessId(hWnd, @dPID);
  SetLength (Result, MAX_PATH);
  hHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, True, dPID);
  if GetModuleFileNameEx (hHandle, 0, PChar (Result), MAX_PATH) > 0 then
    SetLength (Result, StrLen (PChar (Result)));

Может пригодится кому.