没有对应控件!可以程序实现
首先递归搜索目录
搜索目标程序的所在目录tmpstr;
然后shellexecute(null,'explore',..,tmpstr,0,0,SW_Maxisize)即可!shellexecute语法自己察吧
首先递归搜索目录
搜索目标程序的所在目录tmpstr;
然后shellexecute(null,'explore',..,tmpstr,0,0,SW_Maxisize)即可!shellexecute语法自己察吧
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
DirectoryStr: String ;
begin
if SelectDirectory('选择图片文件路径', ' ', DirectoryStr) then
EdtPath.Text := DirectoryStr ;
end;