隐藏任务栏

Question

procedure TfrmUiMain.FormCreate(Sender: TObject);
var
  i : integer;
  Hnd : Thandle;
begin
  // 隐藏任务栏
  Hnd := FindWindow('Shell_TrayWnd', '');
  if Hnd <> 0 then
  ShowWindow(Hnd, SW_HIDE);
end;
以上代码在win2000 能够隐藏任务栏。
那位朋友装win98 或者 winXP 的帮忙测试一下，谢谢了~~~~~~~

Answer 1

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;以上代码Windows XP中可以