| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> delphi >> yi ge she zhi ren yi chuang kou tou ming du de ming ling xing Delphi cheng xu

yi ge she zhi ren yi chuang kou tou ming du de ming ling xing Delphi cheng xu

2008-05-31 00:48:12 编辑來源:互联网 评论
 
 
 
本文为【一个设置任意窗口透明度的命令行Delphi程序】的拼音翻译版
  bi xu shi zai Windows2000 yi xia de xi tong cai zhi chi SetLayeredWindowAttributes zhe ge API, 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 de Text, ye ke yi shi zhao 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【原文】【汉音对照
 
 
 
 
 
 
 
 
 
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
bi xu shi zai Windows2000 yi xia de xi tong cai zhi chi SetLayeredWindowAttributes zhe ge API, 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 de Text, ye ke yi shi zhao 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
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
玉美人_珠联璧合
清纯美女米卡
清新靓丽的早晨
玲子的自信与性感
痞子的甘南日记
疑是银河落九天
雪域坝上四——纯美色
冬日恋歌——西城杨柳弄轻柔
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
 
©2005- 王朝网络 版权所有