Luckies Code funktioniert unter der gesamten 9x-Reihe und in der NT-Reihe ab 2k.
BTW: es gibt eine
API GetModuleFileNameEx bei der man auch die Process-ID angeben kann... Sakuras Funktion müsste demnach so ausschaun:
Delphi-Quellcode:
function GetProcessPath(
Handle: Cardinal):
String;
stdcall;
var
TheFileName :
array[0..MAX_PATH]
of char;
begin
FillChar(TheFileName, sizeof(TheFileName), #0);
GetModuleFileNameEx(
Handle, 0, TheFileName, sizeof(TheFileName));
Result := TheFileName;
end;