Статьи
|

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