如题

解决方案 »

  1.   

    用控件面版Win3.1里面的TDirectoryListBox和TDriveComboBox就可以了.
    用法你就看一下帮助吧!
      

  2.   

    用用SelectDirectory,很好用的^^
    uses FileCtrl;const
      SELDIRHELP = 1000;
    procedure TForm1.Button1Click(Sender: TObject);
    var
      Dir: string;
    begin
      Dir := 'C:\';
      if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
        Label1.Caption := Dir;
    end;
      

  3.   

    安装JEDI,用TJvDirectoryEdit来选择目录
    要取它的值,用edtRespDir.Text即可