Карта сайтаСсылкиКонтакты

Хостинг


Включить (отключить) иконки на Рабочем Столе

PDF Печать
Статьи
Desktop



Здесь показано, как можно включить или отключить доступ к иконкам на Рабочем Столе 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;

 

Добавить комментарий


Защитный код
Обновить