解决方法
FileCtrl.pas中有两个称为SelectDirectory的重载例程
要获得现代外观,请使用第二种形式,使用sdNewUI
var
dir : string;
begin
dir := 'C:\temp';
FileCtrl.SelectDirectory('Select','C:\',dir,[sdNewFolder,sdNewUI],Self);
end;
注意：sdNewFolder,sdNewUI等仅可从D2006获得