Zitat von
ims:
ich weiss schon wie ich mit ExtractFilePath umgehen muss
Sorry, habe ich überlesen.
Falls Du Dich nicht scheust,
reguläre Ausdrücke einzusetzen, sollte das funktionieren:
Delphi-Quellcode:
function GetParentDirectory(const ADirectory: string): string;
begin
with RegExpr('(.*\\).+') do
Result:= Replace(ADirectory, '$1', True);
end;
Vielleicht klappt aber auch etwas in der Art?
Code:
c:\absolutePath\myDir\..\anotherDir\myFile
also zB
myName:= ExtractFilePath(ParamStr(0))+\..\db\foo.db';