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

必须是在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

· 把年龄相仿的狮虎熊放一起,谁更厉害?结果出人意料

很多人都想知道狮子、老虎和熊打起来谁最厉害,于是便有好事之人把这三种动物关在一起...

· 湖北宜昌三峡坝区水面惊现神秘动物

近日,湖北宜昌,一段视频在当地热传:有网友在三峡坝区拍到神秘动物,体型硕大数米长...

· 什么是语段?语段的类型以及和句群、段落的区别与联系是什么?

句群是最高级的语言单位。 段落(自然段)是章法单位...

 
在WEB程序中设置个性化,容错提示窗口
首先设计一个容错提示的窗口图像为如下:关键HTML文本如下:“原因:<%=content[Int32.Parse(Request.QueryString["ms"])]%>”然后在代码编辑窗口中添加如下不分:public class WebForm1 : System.W...查看完整版>>在WEB程序中设置个性化,容错提示窗口
 
在WEB程序中设置个性化,容错提示窗口
首先设计一个容错提示的窗口图像为如下:关键HTML文本如下:“原因:<%=content[Int32.Parse(Request.QueryString["ms"])]%>”然后在代码编辑窗口中添加如下不分:public class WebForm1 : System.W...查看完整版>>在WEB程序中设置个性化,容错提示窗口
 
怎样编写一个类Spy++的搜索窗口程序
怎样编写一个类Spy++的搜索窗口程序 湛江海洋大学 计算机系2000软件5班 http://hosen.yeah.net 大家都用过Vc自代的工具Spy++,它可以通过鼠标来捕...查看完整版>>怎样编写一个类Spy++的搜索窗口程序
 
Delphi 程序窗口动画及正常排列平铺的实现
注:此文已有更好的方法,稍后发布2004年9月16日   Delphi的确是功能非常强的RAD工具,所以我下面要说的不算是“缺陷”的一个小问题丝毫不会影响它在程序员心目中的地位,相反,大家会发现,它的确是不愧...查看完整版>>Delphi 程序窗口动画及正常排列平铺的实现
 
在DELPHI程序中自动设置ODBC数据源
摘要:在DELPHI程序中自动设置ODBC数据源在DELPHI数据库应用程序中,我们访问数据库通常有两种方法.一种是通过BDE数据库搜索引擎,即利用DELPHI自带的数据库驱动程序,这种方法的优点是速度快,但应用范围有限,当数...查看完整版>>在DELPHI程序中自动设置ODBC数据源