moin,
ich bin mir jetzt nicht ganz sicher, aber probier das mal so, sollte klappen
Delphi-Quellcode:
function GetModuleName: string;
var
szFileName: array[0..MAX_PATH] of Char;
begin
FillChar(szFileName, SizeOf(szFileName), #0);
GetModuleFileName(hInstance, szFileName, MAX_PATH);
Result := szFileName;
end;
mfg Jonny