难道就没有能回答任务栏问题的吗?(50分)

L

libaoliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #1

用delphi开发的应用软件，
要求进入该系统后windows的任务栏立即自动隐藏，
应用系统占满全屏幕，包括原来的任务栏区域，
当退出系统后，立即恢复任务栏
代码越简单越好，谁能告诉我

 

X

xiao_min

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #2

进入程序将任务栏HIDE，退出再SHOW出来
占满只要将ALIGN设为ALCLIENT即可

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #3

http://www.delphibbs.com/delphibbs/dispq.asp?lid=655785

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #4

上午你问的那个同样的问题，你去看了答案没有？
非要任务栏隐藏吗？

 

L

libaoliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #5

jrq
你给的代码我看了，
也试过了，有错误，没办法才又提出问题的

 

Y

yu3418

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #6

我用这个来隐藏任务栏：
ShowWindow(FindWindow('Shell_TrayWND',nil),SW_HIDE);
全屏:
Height := screen.height;
Width := screen.width;
Position :=poScreenCenter;

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #7

这样不行吗？
procedure TForm1.FormCreate(Sender: TObject);
var
h: hwnd;
begin
h := FindWindow('Shell_TrayWND',nil);
ShowWindow(h, SW_HIDE);
WindowState := wsMaximized;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
h: hwnd;
begin
h := FindWindow('Shell_TrayWND',nil);
ShowWindow(h, SW_show);
end;

 

A

apple_ge

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #8

没有作过，不过以前作过一个控制程序启动后，图标显示在系统栏上的小程序。
上面大家的意见去试试看。借鉴，学习！

 

R

ReStart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #9

用3控件啦

 

L

libaoliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-16

• #10

多人接受答案了。