就是用SelectDirectory,用法如下;
procedure TForm1.Button1Click(Sender:TObject);
var
path:string;
begin
SelectDirectory('请选择目录','',path);//path就是你选择的目录,如果不为空的话;
end;
就是selectDirectory了,不过要uses FileCtrl.
用法如下:
procedure TForm1.Button1Click(Sender:TObject);
var
path:string;
begin
selectDirectory('请选择目录','',path);//path就是你选择的目录,如果不为空的话
end;
一个实用的函数
var thefilename:string;
procedure TFormsetpara.ButtonNavigateClick(Sender: TObject);
var dlg:TOpenDialog;
begin
dlg:=TOpenDialog.Create(self);
if dlg.Execute then
begin
thefilename:=dlg.FileName;
VoiceFileName.Text:=dlg.FileName;
end;
end;