Форум: "Начинающим";
Текущий архив: 2006.11.12;
Скачать: [xml.tar.bz2];
Внизpassword Найти похожие ветки
← →
crunk (2006-10-24 17:31) [0]здраствуйте, подскажите пожалуйста как сделать, чтобы при входе в программу запрашивался пароль (который сам задашь), т.е. если неправильно ввёл, то пишется что не правильно, а если правильно то входит в программу
← →
Джо © (2006-10-24 17:35) [1]
program Project1;
uses
Forms,
Dialogs,
Unit1 in "Unit1.pas" {Form1};
{$R *.res}
var
S: string;
begin
InputQuery("Введи пароль","Пароль сюда!",S);
if S <> "12345" then
Halt;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
← →
azot (2006-10-24 17:36) [2]огромное спасибо!
← →
crunk (2006-10-24 17:37) [3]пасибо!
← →
Джо © (2006-10-24 17:40) [4]Как вас много...
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.108 c