delphi 打开文件夹对话框
要使用打开文件夹对话框，只需要写入以下代码：
1 procedure TForm1.Button1Click(Sender: TObject);
2 var
3 s:string;
4 begin
5 if SelectDirectory('Select Directory', '', S) then
6 ShowMessage(s);
7 end;
浙公网安备 33010602011771号
浙ICP备2021040463号-3
要使用打开文件夹对话框，只需要写入以下代码：
1 procedure TForm1.Button1Click(Sender: TObject);
2 var
3 s:string;
4 begin
5 if SelectDirectory('Select Directory', '', S) then
6 ShowMessage(s);
7 end;
