任务栏的秘密(50分)

G

guoyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-14

• #1

我想通过程序把任务栏设置成自动隐藏，
这该怎么做？

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-14

• #2

right click taskbar--propertise---auto hide
a macro perhaps could help you.

from some site:

用下面的函数可以检查Win95的状态条是否处于自动隐藏状态。

============
uses ShellAPI;

(*
若状态条为自动隐藏状态，则返回值为 TRUE

if(IsTaskBarautoHideOn)then
begin

// auto hide is ON

end;

*)

function IsTaskbarAutoHideOn : boolean;
var
ABData : TAppBarData;
begin

ABData.cbSize := sizeof(ABData);

Result := (SHAppBarMessage(ABM_GETSTATE, ABData) and
ABS_AUTOHIDE) > 0;

end;

 

W

WebBar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-15

• #3

唉，你们真嘛烦，发给我你的email地址，我给个控件，不就全解决了...

 

D

D4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-15

• #4

一句话在 TForm.Active事件中加入
ShowWindow(Application.Handle, SW_HIDE);
万事大吉.开开心心.

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-15

• #5

use CJ's instruction to get the current AppBar state. After that, you
can use following code to change it:

ABData.uCallbackMessage:=nil;
ABData.lParam:=1;//AutoHide 0=Stay on top.
ReturnValue := SHAppBarMessage(ABM_SETAUTOHIDEBAR, ABData);
if ReturnValue > 0 then
showmessage('SetAutohide is successful')
else ('Con not SetAutohide').

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-22

• #6

请提问者继续讨论此问题，如两天内无回应，此问题将结束！

 

M

merlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-22

• #7

我有完整的程序，如果需要的话mail给我

kug@990.net

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-22

• #8

D4的办法简单可行！

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-21

• #9

多人接受答案了。