在程序中使用Windows 7的Aero Peek效果

Win7开始微软给系统加入了一个新的Aero特性“Aero Peek”，就是鼠标移动到任务栏右下角的那个小方块后，桌面上的所有窗口透明只剩边框。

然后我无聊就把这个功能的调用挖出来了，让我们在自己的程序中也能使用。

说实话，太无聊了

这个功能的实现是dwmapi中一个未公开的113号api

HRESULT WINAPI DwmEnableAeroPeek(
  DWORD dwStatus,
  DWORD dwUnknown1,
  DWORD dwUnknown2,
  DWORD dwUnknown,
);

下面给VB6的代码：

Private Declare Function DwmEnableAeroPeek& Lib "dwmapi" Alias "#113" (ByVal bStatus&, ByVal Unknown1&, ByVal Unknown2&, Optional ByVal bUsed& = 1)

Private Sub Command1_Click()
Me.Caption = DwmEnableAeroPeek(1, 0, 0, 1)
End Sub

Private Sub Command2_Click()
Me.Caption = DwmEnableAeroPeek(0, 0, 0, 1)
End Sub

Command1就是开启透明，Command2就是关闭透明。。。最后一个参数必需为1，中间2个null就行了，第一个参数就是控制开启关闭状态。

这段代码必需在开启Aero效果的系统上执行才可有效。。。