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

Question

隐藏——
ShowWindow(FindWindow('Shell_TrayWnd', ''), SW_HIDE);
显示——
ShowWindow(FindWindow('Shell_TrayWnd', ''), SW_SHOW);或者：
procedure hideTaskbar; //隐藏varwndHandle : THandle;wndClass : array[0..50] of Char;beginStrPCopy(@wndClass[0], 'Shell_TrayWnd');wndHandle := FindWindow(@wndClass[0], nil);ShowWindow(wndHandle, SW_HIDE);　End;

Answer 1

隐藏和显示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;

Answer 2

varwndHandle : THandle; wndClass : array[0..50] of Char; begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd'); 
wndHandle := FindWindow(@wndClass[0], nil); 
ShowWindow(wndHandle, SW_HIDE);//************这样就okself.Width :=screen.Width ;
self.Height:=screen.Height ;

Answer 3

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

Answer 4

form的BorderStyle设为bsNone
form的windowstate设为wsMaximized会覆盖widows状态栏