<wbr id="bl79t"><pre id="bl79t"></pre></wbr>
<video id="bl79t"></video>

    <nav id="bl79t"></nav>

    <form id="bl79t"><legend id="bl79t"></legend></form>

    1. <wbr id="bl79t"></wbr>
      <sub id="bl79t"><table id="bl79t"></table></sub>

      歡迎光臨
      我們一直在努力

      一個設置任意窗口透明度的命令行delphi程序_delphi教程

      建站超值云服務器,限時71元/月

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

      贊(0)
      版權申明:本站文章部分自網絡,如有侵權,請聯系:west999com@outlook.com 特別注意:本站所有轉載文章言論不代表本站觀點! 本站所提供的圖片等素材,版權歸原作者所有,如需使用,請與原作者聯系。未經允許不得轉載:IDC資訊中心 » 一個設置任意窗口透明度的命令行delphi程序_delphi教程
      分享到: 更多 (0)
      韩国三级在线看免费|亚洲撸超碰在线视频|ADC视频在线|成人av免费福利在线

      <wbr id="bl79t"><pre id="bl79t"></pre></wbr>
      <video id="bl79t"></video>

      <nav id="bl79t"></nav>

      <form id="bl79t"><legend id="bl79t"></legend></form>

      1. <wbr id="bl79t"></wbr>
        <sub id="bl79t"><table id="bl79t"></table></sub>