Delphi InputBox()

[BanzoO]

Ввод пароля по алгоритму: компьютер выдает три числа в диапазоне 0 - 999, надо в ответ ввести удвоенное значение наибольшего из них. Программа до-пускает 2-х кратный неправильный ввод, после чего программу невозможно запустить повторно в течение 5 мин.

Через InputBox() при нажатие cancel >пишет неправельный пароль и открывается.
И подскажите как сделать

Программа до-пускает 2-х кратный неправильный ввод, после чего программу невозможно запустить повторно в течение 5 мин.

[BanzoO]

Up нуждаюсь в помощи.

[SERG1980]

Используйте InputQuery

procedure TForm1.FormCreate(Sender: TObject);
var p:string;
begin
 if not InputQuery('Ввод пароля','Введите пароль в окно',p) then
 application.Terminate//или чё хотите
 else
 begin
   //ваши действия по обработке пароля который находится в переменной "р"
 end;
end;

[BanzoO]

Спасибо, есть ещё вопрос как можно сделать

программу невозможно запустить повторно в течение 5 мин.

[UnderwooD]

Добавляешь на форму компонент Timer. При активации формы(событие OnActivate) присваиваешь полю Enabled значение FALSE. Потом, если пароль введен неправильно, это поле меняешь на TRUE. И игнорируешь ввод пароля, пока таймер 5 минут не насчитает.

[BanzoO]

Сообщение от UnderwooD

Добавляешь на форму компонент Timer. При активации формы(событие OnActivate) присваиваешь полю Enabled значение FALSE. Потом, если пароль введен неправильно, это поле меняешь на TRUE. И игнорируешь ввод пароля, пока таймер 5 минут не насчитает.

Не понял.
Если таймер будет выключаться при OnActive, то после 2х раз ввода идёт блокировка формы(запуском таймера), а после форма активируется и сразу же вырубает таймер.

А нет ли команды от разрабочиков? блокировать прогу на определённое время.

[UnderwooD]

Ну так после того, как пять минут натикают, таймер просто опять деактивируешь и все. А команды от разрабов такой нет, насколько я знаю.

ЗЫ: может, можно в OnCreate засунуть..