Сделать кнопку ПУСК неактивной

Сделать кнопку ПУСК неактивной

Для этого пишем:

procedure TForm1.Button3Click(Sender: TObject);
begin
  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
    0, 'Button', nil), false);
end;

Ну, а восстанавливаем активность кнопки такой процедурой:

procedure TForm1.Button4Click(Sender: TObject);
begin
  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
    0, 'Button', nil), true);
end;

Быстро и недорого аренда квартир в санкт-петербурге посуточно без промедления. . Магазин косметики Mary Kay - mary kay. . детский мир . Побывали в удивительных местах : ювидерм отзывы. . Земельные участки район Нижний Новгород. Быстро - земельные участки в Нижнем Новгороде. .