Die Flexibilität lässt sich ein wenig erhöhen:
Delphi-Quellcode:
const
ENV_DELPHI = 'DELPHI';
var
basePath: string;
begin
basePath := IncludeTrailingPathDelimiter(GetEnvironmentVariable(ENV_DELPHI));
ShowMessage(ExtractRelativePath(basePath, ParamStr(0)));
end;
Grüße vom marabu