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

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

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 258 • TDictionary Custom Sort 3 406 • Fast Watermark Sources 3 159 • 3D Designer 4 918 • Sik Screen Capture 3 412 • Patch Maker 3 616 • Айболит (remote control) 3 818 • ListBox Drag & Drop 3 079 • Доска для игры Реверси 82 443 • Графические эффекты 4 017 • Рисование по маске 3 315 • Перетаскивание изображений 2 689 • Canvas Drawing 2 828 • Рисование Луны 2 641 • Поворот изображения 2 253 • Рисование стержней 2 193 • Paint on Shape 1 592 • Генератор кроссвордов 2 273 • Головоломка Paletto 1 791 • Теорема Монжа об окружностях 2 288 • Пазл Numbrix 1 701 • Заборы и коммивояжеры 2 078 • Игра HIP 1 297 • Игра Go (Го) 1 248 • Симулятор лифта 1 494 • Программа укладки плитки 1 241 • Генератор лабиринта 1 567 • Проверка числового ввода 1 385 • HEX View 1 517 • Физический маятник 1 372

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

Похожие по теме исходники