把任务栏设置为自动隐藏(100分)

G

guoyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-25

• #1

我想通过程序把任务栏设置为自动隐藏，以下是原程序
不知是那里错了，总是不行。

uses shellapi

var ABData : TAppBarData;

begin
ABData.cbSize := Sizeof(ABData);
Abdata.hWnd:= FindWindow('Shell_TrayWnd', nil);
Abdata.uEdge:=ABE_BOTTOM
SHAppBarMessage(ABM_GETSTATE,Abdata);
ABData.uCallbackMessage:=0;
Abdata.lParam:=1;
SHAppBarMessage(ABM_SETAUTOHIDEBAR,Abdata);
end;

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-25

• #2

<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=108385">here</a>

 

邹

邹光先

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-30

• #3

在程序员大本营中有原码!

 

G

guoyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-31

• #4

邹光先:
快告诉我在那里，或直接把原代码贴出来
谢谢！！！

 

茶

茶叶蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-01

• #5

看一看这里吧：
<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=108385">任务栏的秘密</a>

 

茶

茶叶蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-01

• #6

对不起，CJ，没注意看你的连接。

 

W

wwwwww

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-01

• #7

以下源程序我试过了，没问题
procedure hideTaskbar; //隐藏
var wndHandle : THandle; wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
End;
procedure showtaskbar;
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_Show);
end;

 

Y

yifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-01

• #8

你这个不是设置taskbar的状态,而是暂时隐藏或者显示

 

L

liukeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-16

• #9

; Taskbar_hwnd:= FindWindow('Shell_traywnd', '');
//得到任务条的窗口 句柄
SetWindowPos(Taskbar_hwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW);

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-21

• #10

多人接受答案了。