获取上一级目录

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 + '..'));

end;

本文出自 “601880” 博客，转载请与作者联系！