一个设置任意窗口透明度的命令行Delphi程序
来源:互联网 发布:手机淘宝6.8.0版本安装 编辑:程序博客网 时间:2024/05/18 01:17
必须是在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程序
- 设置窗口的透明度
- 设置窗口的透明度
- 如何设置sublime Text的窗口透明度
- MFC 设置窗口透明度
- 设置窗口透明度
- MFC 设置窗口透明度
- QT 设置窗口透明度
- android popupwindow设置任意透明度
- div 背景透明度如何设置一个div的背景透明度
- 设置窗口透明度 SetLayeredWindowAttributes函数
- 窗口透明度的设定
- 一个制件任意窗口的方法
- Android 设置图片 Bitmap任意透明度
- Android 设置图片 Bitmap任意透明度
- Android 设置图片 Bitmap任意透明度
- Qt设置无边框窗口,窗口透明度
- 题目:使用命令行参数编写一个程序,其功能是将任意一个正整数m变换为指定的n 进制数串输出。命令行的格式为:
- 杂谈计算机图书翻译
- Windows 2000与Web应用开发者
- 在范型中接口和实例间转换的问题Why No? .net 2.0 Generic cast Type From Instance to Interface
- hashCode 初步学习
- 转贴:网友【原创·教程】 SRT外挂字幕时间轴调整及合并中英文同步字幕制作方法
- 一个设置任意窗口透明度的命令行Delphi程序
- 让你的Winform应用在运行时可自由拖放控件位置
- .NET的两种反射方式
- C#开发可穿透代理服务器的WinForm应用
- ClickOnce DIY全自动更新下载升级的自我实现
- MS AzMan(Authorization Manager)心得小记
- 上周五的MS一道面试题
- 涅槃的火鸟-Pascal前世今生之二(风生水起-Pascal承接衣钵)
- 一、探索需求--找得到用户的期望