启用或禁用桌面图标

以下代码演示如何启用或禁用桌面上的所有对象：

{Disable:}
EnableWindow(FindWindowEx(FindWindow('Progman', nil), HWND(0), 'ShellDll_DefView', nil), FALSE) ;

{Enable:}
EnableWindow(FindWindowEx(FindWindow('Progman', nil), HWND(0), 'ShellDll_DefView', nil), TRUE) ;

原文名称：Enable/Disable Desktop icons
原文地址：http://delphi.about.com/cs/adptips2000/a/bltip1000_5.htm