Was soll ProcessName sein? Der Klassenname eines Prozesses?
Das hier sollte für den Dateinamen klappen:
Delphi-Quellcode:
Function PIDtoEXEName ( const PID : Integer ) : String;
var
szExeFile: array[0..MAX_PATH - 1] of Char;
hnd : Integer;
begin
HND := OpenProcess( PROCESS_ALL_ACCESS, FALSE, PID );
if HND <> 0 then
begin
if GetModuleFileNameEx(HND, 0, szExeFile, SizeOf(szExeFile)) = 0 then StrPCopy(szExeFile, '');
Result := szExeFile;
CloseHandle(HND);
end;
end;