So
Delphi-Quellcode:
var
s: String;
begin
s := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
end;
Alternativ auch ohne IncludeTrailingPathDelimiter() dann musst du aber selbst gucken ob bereits ein \ ans ende gestellt wurde oder nicht
mfg phlux