隱藏系統的任務(wù)欄、桌面圖標

//--------Flag 為全局變量，初始化為false
//--------Shell_TrayWnd 為系統任務(wù)欄窗口的類(lèi)名

//------這里是隱藏任務(wù)欄的---------------------
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為桌面窗口的類(lèi)名----------

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;