请问?delphi中怎样设置windows任务栏的属性为自动隐藏??

Question

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; /////////////////////////////////////////////procedure HideTaskBar; 
var 
  hApp: HWND; 
  rcWork: TRect; 
begin 
  { get the taskbar handle } 
  hApp := FindWindow('Shell_TrayWnd', ''); 
  if hApp <> 0 then begin 
    { hide taskbar } 
    ShowWindow(hApp, SW_HIDE); 
    { set workarea to full screen } 
    FullScreenArea; 
  end; 
end; 
procedure ShowTaskBar; 
var 
  hApp: HWND; 
  rcApp, rcWork: TRect; 
begin 
  { get the taskbar handle } 
  hApp := FindWindow('Shell_TrayWnd', ''); 
  if hApp <> 0 then begin 
    { restore taskbar } 
    ShowWindow(hApp, SW_RESTORE); 
    { set workarea excluding taskbar } 
    StandardArea; 
  end; 
end;