Программирование Delphi

Вот пример, как включить / отключить все объекты на Рабочем Столе:

{ Отключить :}
EnableWindow(FindWindowEx(FindWindow
   ('Progman', nil), HWND(0), 'ShellDll_DefView', nil),
    FALSE) ;

{ Включить:}
    EnableWindow( FindWindowEx( FindWindow
    ('Progman', nil), HWND(0), 'ShellDll_DefView', nil),
TRUE) ;