Delphi 编写的程序中，如何让程序实现像Windows7一样的毛玻璃效果？

Posted 2023-04-03

Delphi 编写的程序中，如何让程序实现像Windows7一样的毛玻璃效果？ 要能够随着窗体的移动变换看到的背景，比如我的程序在桌面上运行，我拖动程序窗口时，能够透过毛玻璃看见桌面。 请提供源代码，或者是可用的源代码素材。一经采用，悬赏提升至100分或更高。

窗体的移动变换时改变其透明度，无动作时恢复。。。 参考技术A 2010,窗体有个glass属性。D7没发现。 参考技术B alphablendvalue :0-255

Delphi编写的程序在Win7以上提升权限（以管理员身份运行）

Delphi程序要实现在win7下以管理员身份运行，必须潜入一个res文件，操作步骤如下：

1） 首先编辑一个文本文件，命名为*.manifest (例如uac.manifest)

 
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> 
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel level="requireAdministrator"/>
      </requestedPrivileges>
    </security>
</trustInfo>
</assembly>

保存为UAC.manifest，这里文件是随意的。特别注意红色的“requireAdministrator”，这个表示程序需要管理员（Administrator）才能正常运行。

2）然后新建一个文本文件，命名为*.rc（例如为uac.rc），内容如下所示：

1 24 UAC.manifest

其中：
1-代表资源编号
24-资源类型为RTMAINIFEST
UAC.manifest-前面的文件名称

3）将rc文件加入到项目中

    将rc文件增加到项目中；（在项目文件上点击右键，然后选择add，加入rc文件）

4）build项目，生成文件在win7下，就会看程序图标下面显示UAC盾牌标志了；

    此时运行程序，就会出现询问对话框了。