开发学院软件开发Delphi 一个设置任意窗口透明度的命令行Delphi程序 阅读

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

 2007-02-17 14:41:24 来源:WEB开发网   
核心提示:必须是在Windows2000以下的系统才支持SetLayeredWindowAttributes这个API,原理就是先找到窗口句柄,然后设置窗口属性PRogram opacity;{$APPTYPE CONSOLE}uses SysUtils, Windows;varhandle,AStyle:integer;b

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

Tags:一个 设置 任意

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接