Статьи
|

Иногда может потребоваться разрешить или запретить пользователю нажимать кнопку Пуск 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;
|