原理：桌面也是一个窗口，将其设置为不可见即可达到隐藏桌面图标的目的。 

Var hDesktop:THandle; 

Begin 

hDesktop:= FindWindow(′Progman′, nil); 

{获取桌面窗口句柄} 

ShowWindow(hDesktop, SW_HIDE);{隐藏} 

End