用Shell对象控制Windows系统

用Shell对象控制Windows系统2008-01-050. 初始化环境和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）;