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

最新推荐文章于 2020-09-22 03:14:42 发布

原创最新推荐文章于 2020-09-22 03:14:42 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#windows #command #winapi #function #vb #任务

本文介绍如何在Win7系统中通过调用dwmapi中的未公开API实现AeroPeek功能，即让所有打开窗口变为透明仅显示边框的效果，并提供了VB6示例代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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效果的系统上执行才可有效。。。