| 订阅 | 在线投稿

分享

2008-05-31 00:48:12  编辑来源:互联网  宽屏版  评论

 

 

本文为【一个设置任意窗口透明度的命令行Delphi程序】的汉字拼音对照版显示拼音

　　必bi须xu是shi在zaiWindows2000以yi下xia的de系xi统tong才cai支zhi持chiSetLayeredWindowAttributes这zhe个geAPI,原yuan理li就jiu是shi先xian找zhao到dao窗chuang口kou句ju柄bing,然ran后hou设she置zhi窗chuang口kou属shu性xing

　　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)));//目mu前qian是shi找zhao窗chuang口kou的deText,也ye可ke以yi是shi找zhaoClassName

　　 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