全屏显示窗体，并自动隐藏任务栏？

[whislter]

全屏显示窗体，并自动隐藏任务栏？

[cobi]

隐藏——
ShowWindow(FindWindow('Shell_TrayWnd', ''), SW_HIDE);
显示——
ShowWindow(FindWindow('Shell_TrayWnd', ''), SW_SHOW);

或者：
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;

[ilang]

up

[whislter]

不行，隐藏后的任务栏位置，窗体还是不能占满？？

[jimhuo]

隐藏和显示Windows的任务条:调用以下过程：

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_RESTORE);
end;

[lyhold]

var

wndHandle : THandle;

wndClass : array[0..50] of Char;

begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);

//************这样就ok

self.Width :=screen.Width ;
self.Height:=screen.Height ;

[whislter]

win98 可已win2000不行。

[Jerry529]

BorderStyle改为bsSizeToolWin
================================================================

曾经有一碗热辣辣的烧猪手面放在我面前，我没有珍惜，等到晾凉了之后才后悔莫及。

[oracle_lover]

form的BorderStyle设为bsNone
form的windowstate设为wsMaximized

会覆盖widows状态栏