很好玩的东西！可以让任务栏透明！哈哈！小屏幕的朋友有富了！ (0分)

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #1

发信人: lauhy (木头), 信区: Delphi <br><br>标 &nbsp;题: 令任务栏透明 <br><br>发信站: BBS 水木清华站 (Mon Oct 22 16:56:03 2001) <br><br>&nbsp; <br><br>2K下运行通过。 <br><br>var hd : HWND; <br><br>begin <br><br>&nbsp; <br><br>hd :=FindWindow('Shell_TrayWnd', ''); <br><br>SetWindowLong(hd,GWL_EXSTYLE,GetWindowLong(hd,GWL_EXSTYLE) or <br><br>WS_EX_LAYERED); <br><br>SetLayeredWindowAttributes(hd,RGB(0,0,0),128+64,LWA_ALPHA); <br><br>&nbsp; <br><br>end; <br><br>&nbsp; <br><br>-- <br><br>&nbsp; <br><br>※ 修改:·lauhy 於 Oct 22 19:14:35 修改本文·[FROM: &nbsp; 202.118.68.26] <br><br>※ 来源:·BBS 水木清华站 smth.org·[FROM: 202.118.68.26]

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #2

呵呵。

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #3

我的15寸有富了！：〉

 

C

Celestial dog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #4

用到什么单元呀？？

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #5

none

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #6

WS_EX_LAYERED和LWA_ALPHA都说没有定义啊？少了什么单元？Delphi帮助中都没有这两个<br>东东。

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #7

win98能不能用.

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #8

我再winxp里面成功！<br><br>unit Unit1;<br><br>interface<br><br>uses<br>&nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br>&nbsp; Dialogs, StdCtrls;<br><br>type<br>&nbsp; TForm1 = class(TForm)<br>&nbsp; &nbsp; Button1: TButton;<br>&nbsp; &nbsp; procedure Button1Click(Sender: TObject);<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; end;<br><br>var<br>&nbsp; Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.Button1Click(Sender: TObject);<br><br>var hd : HWND;<br>begin<br><br>hd :=FindWindow('Shell_TrayWnd', '');<br>SetWindowLong(hd,GWL_EXSTYLE,GetWindowLong(hd,GWL_EXSTYLE) or<br>WS_EX_LAYERED);<br>SetLayeredWindowAttributes(hd,RGB(0,0,0),128+64,LWA_ALPHA);<br><br>end;<br><br>end.

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #9

Variants是什么单元？

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #10

15寸？<br>真丢人。

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #11

我用的也是15寸，之前在大学里一直用14寸

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #12

》》可以让任务栏透明<br><br>我用了你的源码 &nbsp; &nbsp;没有透明 &nbsp; 只是变得朦胧了 &nbsp;也没有隐藏～<br><br>就象D6中设置form的 AlphaBlendValue 一样～ &nbsp; &nbsp; &nbsp;为何？<br>BTW，俺的是17吋～

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #13

偶从99年开始，每半年更新换代一次显示器，每次都是19寸的，真是不好意思。

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #14

奢侈的家伙！[8D]

 

C

Celestial dog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #15

原来是要用d6<br>跟jrq一样,变暗了点<br>

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #16

的确是变暗了，不过也透明阿！

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #17

是半透明 &nbsp; ：P

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #18

大哥！不用这么限制了吧！还“半？”

 

H

hnzgf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #19

怎么编译不过去？

 

D

dittw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #20

SetLayeredWindowAttributes是什么函数？