订阅本文为【一个设置任意窗口透明度的命令行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
【原文】
