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

Включить (отключить) кнопку Пуск Windows

PDF Печать
Статьи
Кнопка Пуск Windows



Иногда может потребоваться разрешить или запретить пользователю нажимать кнопку Пуск Windows. Чтобы реализовать это, поместите две кнопки на форму и запишите этот код:


procedure TForm1.Button1Click(Sender: TObject);
begin
  // Запретить:
   EnableWindow(FindWindowEx(FindWindow
    ('Shell_TrayWnd', nil), 0,'Button',nil),FALSE) ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // Разрешить:
   EnableWindow(FindWindowEx(FindWindow
    ('Shell_TrayWnd', nil), 0,'Button',nil),TRUE) ;
end;

 

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


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