怎样用代码设置任务栏为自动隐藏?

Question

rt

Answer 1

//隐藏任务栏
procedure TForm1.button1click(sender:Tobject);
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 TForm1.button2click(sender:Tobject);
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

Procedure TForm1.FormCreate(Sender.....)
Begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
End;给分吧

Answer 3

人家说的是自动隐藏，Windows的一项设置，不是隐藏