求助:
我们需要得到文件路径时,可以单击一个浏览安钮,然后可以一级一级,找到这个文件,得到这个文件的路径,这是怎么做的啊?
(比如,就是当我们安装软件时,可以单击浏览按钮,可把路径得到)
谢谢!

解决方案 »

  1.   

    在控件页“Dialogs”中有一个“OpenDialog”控件,用这个应该就可以实现,仔细看看帮助,那里有具体的帮助吧
      

  2.   

    谢谢 gulf1234 大哥procedure TForm1.Button1Click(Sender: TObject);
    var
         ss:string ;
    begin
         if   OpenDialog1.Execute  then
              begin
                    ss:=OpenDialog1.FileName;
              end;      showmessage(ss);
    end;我需要的是直到文件夹,而 OpenDialog1.FileName  是文件了啊?是不是我做错了?谢谢!
      

  3.   

    OpenDialog1.FileName本来返回的就是路径+文件名啊;
    如果只要路径:
    ExtractFilepath(OpenDialog1.FileName)
    如果只要文件名:
    ExtractFileName(OpenDialog1.FileName)
      

  4.   

    uses filectrlif SelectDirectory('','',Path) then