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