一个设置任意窗口透明度的命令行Delphi程序

上一帖《lucene并行建索引解决方案》  下一帖《应用程序上屏蔽FLASH控件的右键菜单并获得左键消》

　　网上购物、在线购物、购物搜索 欢迎光临本站购买图书、影视、音乐、数码、百货，手机等商品。

　　必须是在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.
　　http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx

必须是在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. http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx

 

标签: Delphi  一个  任意  命令  度的  程序  窗口  设置  透明  

上一帖《lucene并行建索引解决方案》  下一帖《应用程序上屏蔽FLASH控件的右键菜单并获得左键消》

 

 

相关文章

• Illustrator教程：如何用网格工具绘制花瓣(2)
• Illustrator渐变网格初学实例:叶片制作(2)
• Illustrator cs教程：打造3D效果玻璃杯(2)
• Illustrator教程：教你绘制烟灰缸(2)
• Photoshop调出照片个性的青红色(2)
• Photoshop教程：运用滤镜制作魔方背景变形金刚壁纸(2)
• Photoshop给侧光图片的简单调色及美化(2)
• Illustrator教程：如何用网格工具绘制花瓣(1)
• Illustrator渐变网格初学实例:叶片制作(1)
• Illustrator教程：渐变网格工具绘玫瑰花