隐藏系统的任务栏、桌面图标

//--------Flag 为全局变量，初始化为false
//--------Shell_TrayWnd 为系统任务栏窗口的类名

//------这里是隐藏任务栏的---------------------
procedure TForm2.Button3Click(Sender: TObject);
var
  h: HWND;
begin
  h := FindWindow('Shell_TrayWnd', nil);
  if (h <> 0) and  (flag = False)   then
  begin
    ShowWindow(h, SW_SHOW);
    flag := True
  end
  else  begin
    showwindow(h, SW_HIDE);
    flag := False;
  end;
end;

//---------这里是隐藏桌面图标的----------

//------progman为桌面窗口的类名----------

procedure TForm2.Button4Click(Sender: TObject);
var
  h: HWND;
begin
  h :=  FindWindow('progman', nil);
  if (h <> 0) and (Dflag =  false) then
  begin
    ShowWindow(h, SW_SHOW);
    Dflag := True;
  end
  else begin
    ShowWindow(h, SW_HIDE);
    Dflag := False;
  end;
end;