//声明:
SetLayeredWindowAttributes(
Hwnd: THandle; {窗口句柄}
crKey: COLORREF; {透明色}
bAlpha: Byte; {Alpha 值}
dwFlags: DWORD {LWA_COLORKEY(=1)表示使用透明色; LWA_ALPHA(=2)表示使用 Alpha 值}
): Boolean; {是否成功设置}
//举例(控制外部程序的透明度, 用计算器举了个例子):
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{设定计算器的 Alpha 透明}
procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
FormStyle: Integer;
begin
h := FindWindow('SciCalc', nil);
FormStyle := GetWindowLong(h, GWL_EXSTYLE);
SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);
SetLayeredWindowAttributes(h, 0, 128, LWA_ALPHA);
end;
{设定计算器中的白色透明}
procedure TForm1.Button2Click(Sender: TObject);
var
h: HWND;
FormStyle: Integer;
begin
h := FindWindow('SciCalc', nil);
FormStyle := GetWindowLong(h, GWL_EXSTYLE);
SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);
SetLayeredWindowAttributes(h, clWhite, 255, LWA_COLORKEY);
end;
end.
分享到:
相关推荐
用于C,C++开发,调用win32 api函数,包含完整的win32 api 库文件,缺少相关文件的可以从这里下载
4)....Fixed: Range-check error when closing WinAPI dialog EurekaLog 7.3 Hotfix 1 (7.3.1.0), 2-October-2015 1)....Fixed: Long startup time on terminal services servers EurekaLog 7.3 (7.3.0.0), 24-...
winapi-kmd-rs:用Rust编写的Windows内核模式驱动程序
/* 注意:如果单纯开启窗口透明层效果,在Windows系统中必须设置, 其他系统可忽略。 */ setAttribute(Qt::WA_TranslucentBackground); 第二步: 重写paintEvent事件并使用QPainter画透明层。 void paintEvent...
使用工具栏代替原窗口中的菜单(暂不对VB窗口提供支持)。 功能: 1、工具栏替代原来系统默认的菜单栏 2、菜单拥有阴影 3、菜单自绘,不是系统默认的样式 …… …… 使用方法: 编写代码的时候,把 MenuBar.lib 和...
winapi-rs:与Windows API的Rust绑定
winapi-utf8 UTF-8 <-> UTF-16转换函数,主要与WinAPI一起使用。 发展 使用CMake构建。 取决于Boost.Test。 该项目仅适用于Windows,因此需要使用MSVC或MinGW-w64进行构建。 有一个带有有用快捷方式的Makefile...
QBinder - 一个开源的 Windows 键盘绑定器,用 C/++ 编码,使用 WINAPI 版本:1.1.0 特征: Listens for: Key combinations (shift, alt, ctrl); Media keys; Common keys; Projects: You can now save/load...
想看到回调函数如何被调用,可以在VC++下面,调试模式下,在回调函数内部设置断点,再查看调用栈的方式,可以看到回调函数会被哪些函数调用,这也是提高认识回调函数,WinAPI运行机制的一种方法!
- :ZIP文件的虚拟文件系统抽象 目前,这只是桥接和 。... 但是,间接依赖项确实包含一些unsafe -包括但不限于: 箱版bzip2 0.3.3 crc32fast 1.2.0 Flat2 1.0.14 同步1.0.39 时间0.1.44 Winapi 0.3.9M
是TXT文档格式,别用记事本打开,太慢! 讲的那些讲的都比较详细,可以做为编程时的一个不错的参考资料。
资源管理的革命:Library,计算机能有今天这样的成就,能让如此多的开发人员协同工作,能让终端用户不必需要过多的专业知识就能轻松使用,很大程度上要归功于层次化结构的设计。计算机系统被分为若干个层次,而每一...
在Notepad ++(https://sourceforge.net/projects/karel-3d/)中,从JavaScript no GL版本手动重写了用于编译器MinGWx64的C ++ WinAPI版本5。 ZIP包含源代码,仅包含一个EXE文件,无需安装即可直接运行KAREL-3D(在...
由 jNizM 编写的 AutoHotkey、WinAPI 和 DllCall AHK --> DllCall --> WinAPI当前的剪贴板功能[CloseClipboard](src/Clipboard Functions/CloseClipboard.ahk) [EmptyClipboard](src/Clipboard Functions/...
Winapi的RPG 2D
winapi,而不是使用工具包,并且是用 Rust 编写的。 主要原因是我们可以针对绩效; winapi 具有用于 Direct2D 渲染的 api,与通过工具包访问相比,它可以实现显着更低的延迟和更平滑的滚动。 承担这个项目的部分原因...
WinApi WinAPI基本操作准则
WinAPI挂钩演示 有关如何使用导入地址表(IAT)挂钩winapi函数的小示例 常问问题 这是如何运作的? 从Windows动态库(DLL)导出的函数存储在可移植可执行(PE)标头中,然后直接映射到进程内存。 然后,当某些代码...