在delphi中如何选择文件夹？

Posted 2023-04-01

在delphi中有opendialog，但是怎么调出选择文件夹的对话框？网上有人说用selectdirectory，但是要用什么其它的库吗？现在都被搞迷茫了，希望高人详细指导。

uses FileCtrl；  
  
function SelectDirectory(var Directory: string; // 英文对话框  
  Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;  
function SelectDirectory(const Caption: string; // 中文对话框  
 const Root: WideString;  
  var Directory: string): Boolean; overload;  
  
//以下是Delphi帮助的Demo:  
  
uses FileCtrl;  
  
const  
  SELDIRHELP = 1000;  
procedure TForm1.Button1Click(Sender: TObject);  
var  
  Dir: string;  
begin  
  Dir := \'C:/MYDIR\';       // 缺省为C:/MYDIR  
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then  
    Label1.Caption := Dir; // Dir返回选择的文件夹  
end; 参考技术A 在uses里面添加filectrl
procedure TForm1.Button1Click(Sender: TObject);
var ii:string;
begin
if selectdirectory('请指定文件夹','',ii) then Label1.Caption:=ii;
end;本回答被提问者和网友采纳 参考技术B 一般这样用：
if opendialog.Execute then
begin

end; 参考技术C http://www0.ccidnet.com/tech/guide/2000/08/24/58_1097.html
看看，比较详细~