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

Здесь показано, как можно включить или отключить доступ к иконкам на Рабочем Столе Windows.

Для проверки работы кода поместите две кнопки (Button1 и Button2) на форму (Form1). Далее запишите этот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // запретить доступ к рабочему столу
  EnableWindow(FindWindowEx(FindWindow
   ('Progman', nil), HWND(0), 'ShellDll_DefView', nil),
   FALSE) ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // разрешить доступ к рабочему столу
  EnableWindow( FindWindowEx( FindWindow
   ('Progman', nil), HWND(0), 'ShellDll_DefView', nil),
   TRUE) ;
end;