//--------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;