如何判断任务栏是否自动隐藏～(25分)

K

kidman520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-25

• #1

在程序中如何判断windows的任务栏是否为自动隐藏的设置呢，哪位大哥知道，指点下，多谢～

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-25

• #2

http://free1.ripplehost.com/~rh978/book/1/1/53.html

 

K

kidman520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-25

• #3

function IsTaskbarAutoHideOn : boolean;
var
ABData : TAppBarData;
begin
ABData.cbSize := sizeof(ABData);
Result := (SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE) > 0;
end;

这段代码我在delphi里编译不过去啊，总说TAppBarData和SHAppBarMessage这些没有定义啊～

 

扬

扬扬

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-27

• #4

加入shellapi单元，
然后：
procedure TForm1.Button1Click(Sender: TObject);
var
TMydata: Tappbardata;
num:integer;
begin

TMydata.cbSize := sizeof (TMydata);
num := SHAppBarMessage ( ABM_GETSTATE,TMydata );
showmessage ( inttostr (num));
{ 0: 自动隐藏和总在顶端没设定
1: 总在顶端没设定，自动隐藏设定
2: 总在顶端设定，自动隐藏没设定
3: 总在顶端设定，自动隐藏设定
}
end;

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-25

• #5

uses shellApi;

 

K

kidman520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-25

• #6

多人接受答案了。