Включить (отключить) кнопку Пуск 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;

 

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


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