Текущий архив: 2006.11.12;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.041 c