必须是在Windows2000以下的系统才支持SetLayeredWindowAttributes这个API,原理就是先找到窗口句柄,然后设置窗口属性
program opacity;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
var
handle,AStyle:integer;
begin
try
if ParamCount<2 then
begin
Writeln('parameter must');
exit;
end;
handle:=findwindow(nil,pchar(ParamStr(1)));//目前是找窗口的Text,也可以是找ClassName
AStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, AStyle or WS_EX_LAYERED);
if SetLayeredWindowAttributes(Handle, 0, strtoint(ParamStr(2)),LWA_ALPHA) then
Writeln(ParamStr(1)+' update successed to '+ParamStr(2))
else
Writeln('Opacity update failed');
except
Writeln('parameter error');
end;
end.
分享到:
相关推荐
delphi 命令行编译程序实例
Delphi命令行运行程序
delphi 实现多个浮动透明窗口,多个窗口相互独立,可以自由拉动,模拟迅雷浮动窗口。程序启动时显示主窗口,关闭时显示5个浮动透明窗口
拖动滑块改变窗体透明度的Delphi源程序..rar
delphi命令行编译 delphi命令行编译 delphi命令行编译
做的一个小程序,objlib文件为动态链接库文件,包含一个设置窗口,该设置窗口返回一个对象,包含颜色,透明度,高度,宽度等数据。 通过调用该设置窗口可以达到修改窗口属性的目的。 objlib.dll文件已生成。直接...
用DELPHI工具开发的调用子窗口DLL模块实例
比如:Delphi32.exe /ns /hm(起动一个没有splash窗口,并监控内存的例子) Delphi32.exe –sd c:\test\source -d c:\test\myprog.exe -td (起动IDE环境并加载‘ c:\test\myprog.exe’进行调试同时 引 引用‘c:\test...
delphi cmd 命令行 操作 delphi cmd 命令行 操作
内容简介:Delphi是一种深受广大程序开发人员喜爱的快速开发工具,其简单、高效、灵活的特点使它得到了广泛的应用。《Delphi 2007程序设计教程》以Delphi 2007 for Win32为开发平台,对Delphi开发做了较全面的介绍。...
一个Delphi程序录入窗口【源码】,是一个供用户向数据库中输入数据的用户界面,很多数据库系统都需要类似的界面,本例比较基础,面向Delphi初学者。核心代码: procedure TForm1.Edit4Exit(Sender: TObject); ...
Delphi程序间消息传递 使用该消息涉及一个TcopyDataStruct结构类型的指针。该结构中有三个成员: dwData 是一个32位的附加参数 cbData 表示要传递的数据区的大小 lpData 表示要传递的数据区的指针 下面举个例子。该...
Delphi 用的透明panel, 不遮挡下面 可以当控件容器, 控制控件的位置
在Delphi编程中创建一个启动闪现窗口 如何用Delphi编ScreenSaver Delphi里如何计算日期 delphi怎样调用外部EXE文件 Win95/98下监控运行的其他程序 控制面板应用大全 避免一个程序二次运行 转换WINDOWS壁纸 ...
Delphi命令行参数,通过下面的介绍,你将清楚的了解怎样从命今建入Delphi的IDE环境,并了解其详细...以下你可能通过它来使用所有的参数 比如:Delphi32.exe /ns /hm(起动一个没有splash窗口,并监控内存的例子)
delphi嵌入外部程序 注意 必须知道原始程序名称
又一个进程与枚举和窗口的Delphi程序实例,可实现适时刷新Windows所有进程以及枚举出当前所有打开的窗口名称等。
在Delphi编程中创建一个启动闪现窗口 如何用Delphi编ScreenSaver Delphi里如何计算日期 delphi怎样调用外部EXE文件 Win95/98下监控运行的其他程序 控制面板应用大全 避免一个程序二次运行 转换WINDOWS壁纸 ...
我的第一个Delphi7程序 新手联系程序
Delphi使用滑块改变窗口透明度,程序运行后在托盘处显示图标,双击该图标会弹出滑动窗口,不过之前应右键点击该图标,选择需要控制的窗口,然后再操作滑块,如示例截图所示,PhotoShop的窗口已被透明化处理。