在Delphi中选Project ->Import Type Library,在对话框中选Import Microsoft Shell Controls And Automation类型库,点Install后,在Delphi的ActiveX控件板上就多了TShellFolderItem,TShellLinkObject,TShellFolderView,TShell,TSearchCommand等几个组件,其中TShell组件可以调出大部分系统对话框。如运行对话框:Shell1.FileRun; 其它还有不少功能,慢慢发掘吧。
其它还有不少功能,慢慢发掘吧。