如题。

解决方案 »

  1.   

    定位到目录用SelectDirectory试试:
    uses FileCtrl;var path:string;
    begin
      if SelectDirectory('','',path) then
        ShowMessage(path);
    end;
      

  2.   

    var
      APath:String;
    begin
      if SelectDirectory('abcd','',APath) then
      ShowMessage(APath);
    end;算你狠和我的一模一样。天变量命名都一样。
      

  3.   

    SelectDirectory('','',path)弹出一个浏览窗口啊,openDialog也弹出一个,这样以来就弹出两个了啊!我不要弹出两个,我只需要能在opendialog的窗口中能选中目录。
      

  4.   

    OpenDialog是用来获取文件名的,不用它就行了。