In welchem Pfad läuft ein Prozess?

[Marco Steinebach]

Und nochmal,
Wenn man in Michaels Code

Code:

if GetModuleFileNameEx (myHandle, 0, PChar(fullPath), MAX_PATH) > 0 then}

durch

Code:

var
  fLen: cardinal;
   ...
  fLen := max_path;
  if QueryFullProcessImageName (myHandle, 0, PChar(fullPath), @len) then

ersätzt, geht das ganze auch für 64-Bit-Prozesse, die von einem 32-Bit-Programm abgefragt werden.
Dazu noch

Code:

function QueryFullProcessImageName( hProcess: THandle;
    dwFlags: DWORD;
    lpExeName: PChar;
    nSize: PDWORD): BOOL; stdcall;
    external kernel32 name 'QueryFullProcessImageNameA';

in die Unit einfügen.

Viele Grüße
Marco