你运气真好!这个不需要用API,用Delphi自带的就可搞定:
..............
var
s : string;
begin
SelectDirectory('请指定路径:','',s) then
ShowMessage(s);
end;
..............小弟这个程序就是这么编的:),欢迎试用,共同提高,请看:
http://202.103.69.33/cnshare/showsoft.php3?id=2586
..............
var
s : string;
begin
SelectDirectory('请指定路径:','',s) then
ShowMessage(s);
end;
..............小弟这个程序就是这么编的:),欢迎试用,共同提高,请看:
http://202.103.69.33/cnshare/showsoft.php3?id=2586
s : string;
begin
if SelectDirectory('请选择文件夹:','',s) then //在 uses 中添加 FileCtrl
edtThePath.Text := s; //其中 edtThePath 为 Edit 控件
end;