SelectDirectory 函数的一些问题(50分)

请问：SelectDirectory 函数怎么使用，有没有示例？
在SaveBtn控件对应的Objict Inspector 窗口的Event页面中双击OnClick事件
添加如下代码，用于设置文件存储路径。
procedure TForm1.SaveBtnClick(sender:Tobject);
var
path:string;
begin

path:=ExtractFilePath(Application.ExeName);
ifSelectDirectory(path,[sdAllowCreate,sdPerformCreate,sdPrompt],
1000) then
begin

if path<>''then
begin

if copy(path,Length(path),1)<>'/'then

path:=path+'/';
Label2.Caption:=path;
Richedit1.Lines.Add(DateToStr(Date)+''+
TimeToStr(time)+'==>>'+'文件存储路径设置为：'+path);
end;

end;

end;

谢谢帮忙，十万火急！

var
Dir: string;
begin

Dir := 'C:/MYDIR';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then

Label1.Caption := Dir;

if SelectDirectory('请选择操作目录','', s) then

showMessage(s);

uses fileCtrl
////
copyfile('f:/abc.txt','d:/efg.txt',true);
//
更名魔法师 V2.0
http://www.skycn.net/soft/16431.html