Delphi: заметки программиста. Часть 1
Листинг 4
program Password;
uses
Forms,
Dialogs, // В этом модуле определена функция InputQuery
Unit1 in 'Unit1.pas' {MainForm};
{$R *.RES}
var
Passwrd: String;
begin
// Запрашиваем пароль:
if InputQuery('Окно ввода пароля','Введите пароль:',Passwrd) then
// Проверяем его:
if Passwrd = 'Delphi' then
begin // Все в порядке, пароль верен
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end else
ShowMessage('Пароль не верен!');
end.
