Versuch mal folgende Funktion, nicht getestet. Übergib der den ProcessHandle des Explorers.
Delphi-Quellcode:
function GetProcessPath(
Handle: Cardinal):
String;
stdcall;
var
TheFileName :
array[0..MAX_PATH]
of char;
begin
FillChar(TheFileName, sizeof(TheFileName), #0);
GetModuleFileName(
Handle, TheFileName, sizeof(TheFileName));
Result := TheFileName;
end;
...
...