作者：ccrun    

本文是ccrun(老妖)根据互联网上搜集来的资料整理而成.非原创.▲0. 初始化环境和OLE对象#include <utilcls.h>#include <shlobj.h>// 初始化COM环境CoInitialize(NULL);// 创建Shell对象Variant vShellOLE = Variant::CreateObject("Shell.Application");▲1. 层叠窗口Function CascadeWindows("CascadeWindows");vShellOLE.Exec(CascadeWindows);▲2. 横向平铺窗口Function TileHorizontally("TileHorizontally");vShellOLE.Exec(TileHorizontally);▲3. 纵向平铺窗口Function TileVertically("TileVertically");vShellOLE.Exec(TileVertically);▲4. 最小化所有窗口Function MinimizeAll("MinimizeAll");vShellOLE.Exec(MinimizeAll);▲5. 撤消全部最小化Function UndoMinimizeALL("UndoMinimizeALL");vShellOLE.Exec(UndoMinimizeALL);▲6. 设置时间Function SetTime("SetTime");vShellOLE.Exec(SetTime);▲7. 查找计算机Function FindComputer("FindComputer");vShellOLE.Exec(FindComputer);▲8. 查找文件Function FindFiles("FindFiles");vShellOLE.Exec(FindFiles);▲9. 帮助Function Help("Help");vShellOLE.Exec(Help);▲10. 运行文件Function FileRun("FileRun");vShellOLE.Exec(FileRun);▲11. 任务栏属性Function TrayProperties("TrayProperties");vShellOLE.Exec(TrayProperties);▲12. 挂起Function Suspend("Suspend");vShellOLE.Exec(Suspend);▲13. 关闭WindowsFunction ShutdownWindows("ShutdownWindows");vShellOLE.Exec(ShutdownWindows);▲14. 打开目录对话框int SpecFolder[17] =// 本文转自 C++Builder研究 - http://www.ccrun.com/article.asp?i=614&d=4cwe33{    ssfDESKTOP, ssfPROGRAMS, ssfCONTROLS, ssfPRINTERS, ssfPERSONAL, ssfFAVORITES,    ssfSTARTUP, ssfRECENT, ssfSENDTO, ssfBITBUCKET, ssfSTARTMENU, ssfDESKTOPDIRECTORY,    ssfDRIVES, ssfNETWORK, ssfNETHOOD, ssfFONTS, ssfTEMPLATES};Function BrowseForFolder("BrowseForFolder");Variant ppsdf;int nIndex = 2;// 以选定的系统目录为根目录ppsdf = vShellOLE.Exec(BrowseForFolder << short(Handle) << "BrowseForFolder method" <<BIF_BROWSEINCLUDEFILES << Variant(SpecFolder[nIndex]));// 以指定的目录为根目录String strPath("C://123");ppsdf = vShellOLE.Exec(BrowseForFolder << short(Handle) << "BrowseForFolder method" <<BIF_BROWSEINCLUDEFILES << Variant(strPath));▲15. 浏览指定目录int SpecFolder[17] ={    ssfDESKTOP, ssfPROGRAMS, ssfCONTROLS, ssfPRINTERS, ssfPERSONAL, ssfFAVORITES,    ssfSTARTUP, ssfRECENT, ssfSENDTO, ssfBITBUCKET, ssfSTARTMENU, ssfDESKTOPDIRECTORY,    ssfDRIVES, ssfNETWORK, ssfNETHOOD, ssfFONTS, ssfTEMPLATES};Function Explore("Explore");// 浏览指定系统特殊目录int nIndex = 2;vShellOLE.Exec(Explore << Variant(SpecFolder[nIndex]));// 浏览指定磁盘目录String strPath("C://123");vShellOLE.Exec(Explore << Variant(String strPath));▲16. 运行控制面板程序Function ControlPanelItem("ControlPanelItem");String strCplFile("D://Winnt//System32//appwiz.cpl");BSTR FPath = TStringConverter<BSTR>::AnsiToOLESTR(strCplFile.c_str());vShellOLE.Exec(ControlPanelItem << FPath);▲17. 在退出程序时将Shell对象付空值vShellOLE = Unassigned;CoUninitialize();