procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:string;
begin
a:=ExtractFilePath(paramstr(0));
b:=copy(a,1,length(a)-1);
showmessage(ExtractFilePath(b + '..'));
var
a,b,c:string;
begin
a:=ExtractFilePath(paramstr(0));
b:=copy(a,1,length(a)-1);
showmessage(ExtractFilePath(b + '..'));
end;
转载于:https://blog.51cto.com/zsqztg/189440