如何在DELPHI应用程序里使任务栏隐藏起来(40分)

Y

yage

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-09

• #1

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-09

• #2

将窗体的风格设置为WS_EX_TOOLWINDOW
就可以了

 

M

MicroZeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-09

• #3

这样可以吗?
procedure TMainForm.CutTaskBar;
var hWnd : Integer;
begin
hWnd := FindWindow('Shell_TrayWnd', '');
if hWnd <> 0 then
ShowWindow(hWnd, SW_HIDE);//干掉Task Bar;
end;

procedure TMainForm.UndoTaskBar;
var hWnd : Integer;
begin
hWnd := FindWindow('Shell_TrayWnd', '');
if hWnd <> 0 then
ShowWindow(hWnd, SW_SHOW);//恢复Task Bar;
end;

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-09

• #4

把自己注册为dll就可以了

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-09

• #5

好象理解错误, 是想让win的任务栏隐藏吧?
procedure SetTaskbar(ShowHide: Boolean);
//False--隐藏
//True --恢复
const
SW_Info: array[Boolean] of Word = (SW_HIDE, SW_RESTORE);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin

StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_Info[ShowHide]);
end;

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-09

• #6

如果是想用自己的程序代替explore，可是有更好的办法。

 

Y

yage

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-12

• #7

多人接受答案了。