桌面图标隐藏和显示问题————在线等待！！？？

Question

大家好：
      请问：用Delphi怎么实现桌面图标隐藏和显示问题？
            请指教：

Answer 1

var
hDesktop : Thandle;
begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_HIDE);
end;

Answer 2

//隐藏桌面图标
Procedure TForm1.ShowDesktop(bleShow:Boolean);
var
  hDesktop:THandle;
begin
hDesktop:=FindWindow('Progman',nil);
if hDesktop<>0 then
   if bleShow then
      ShowWindow(hDesktop,SW_SHOWNORMAL)
   else
      ShowWindow(hDesktop,SW_HIDE);
end;//隐藏任务栏
Procedure TForm1.Taskbar(bleShow:Boolean);
var
  hTaskbar:THandle;
begin
hTaskbar:=FindWindow('Stray_ShellWnd',nil);
if hTaskbar<>0 then
   if bleShow then
      ShowWindow(hTaskbar,SW_SHOWNORMAL)
   else
      ShowWindow(hTaskbar,SW_HIDE);
end;