Программирование Delphi

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