Process-lokation

Prøv den her :

  function ProcessFileName(const PID: DWORD; const FullPath : Boolean): string;
  var
    Handle: THandle;
  begin
    Result := '';
    Handle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID);

    if Handle <> 0 then
    try
      SetLength(Result, MAX_PATH);

      if FullPath then
      begin
        if GetModuleFileNameEx(Handle, 0, PChar(Result), MAX_PATH) > 0 then
          SetLength(Result, StrLen(PChar(Result)))
        else
          Result := '';
      end
      else
      begin
        if GetModuleBaseName(Handle, 0, PChar(Result), MAX_PATH) > 0 then
          SetLength(Result, StrLen(PChar(Result)))
        else
          Result := '';
      end;
    finally
      CloseHandle(Handle);
    end;
  end;


sådan lidt frit fra leveren ...

Jens B

Super duper, ja tænkte slet ikke på at bruge PID'et videre. Men selvfølgelig :)