wie wäre es damit?
Delphi-Quellcode:
function GetProcessExeName(hProcess: THandle): String;
var
ModuleEntry: TModuleEntry32;
hModuleEntry: THandle;
ProcessId: Cardinal;
begin
if hProcess = INVALID_HANDLE_VALUE then Exit;
ProcessId := GetWindowThreadProcessId(hProcess);
hModuleEntry := CreateToolHelp32Snapshot(TH32CS_SNAPMODULE, ProcessId);
ModuleEntry.dwSize := SizeOf(TModuleEntry32);
Module32First(hModuleEntry, ModuleEntry);
Result := MOduleEntry.szExePath;
CloseHandle(hModuleEntry);
end;
Edit: ah ne, diese funktion ließt nur aus dem eigenen Prozess aus