怎么样调出目录选择对话框,就是可以选路径的那个目录浏览的对话框。
是不是有什么函数,函数各参数是什么意思?
uses FileCtrl;
const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := C:\MYDIR;
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;