在程序中如何屏蔽win98的任务栏？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass, 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass, nil);
  ShowWindow(wndHandle, SW_HIDE);
end;procedure TForm1.Button2Click(Sender: TObject);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass, 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass, nil);
  ShowWindow(wndHandle, SW_RESTORE);
end;

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); // 隐藏
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_NORMAL); // 恢复
end;

Answer 2

定义一个过程:
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;