隐藏桌面图标:<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> deskhandle:THandle;<br>begin<br> deskHandle:=Findwindow('progman',nil);<br> if deskhandle<>0 then<br> showwindow(deskhandle,sw_hide);<br>end;<br>重新显示桌面图标:<br>procedure TForm1.Button2Click(Sender: TObject);<br>var<br> deskhandle:THandle;<br>begin<br> deskHandle:=Findwindow('progman',nil);<br> if deskhandle<>0 then<br> showwindow(deskhandle,sw_show);<br>end;