Главная » Компьютерный шпионаж » Уголок злого кодера » Ввод и проверка пароля в Delphi 7

Ввод и проверка пароля в Delphi 7

Ввод и проверка пароля в Delphi 7

Форма ввода логина и пароля

Здравствуйте! Хочу рассказать вам, как поставить пароль на свою программу и так же обо всяких небольших мелочах. Естественно этот способ уже кто то придумывал до меня, но я попытаюсь рассказать об этом вам своими словами и более подробно.

Ввод и проверка пароля в Delphi 7

Для начала создадим две формы. ( File => New => Form)

Положим на Form1 из вкладки Standard:

  • Два Label ‘а
  • Два Edit ‘а
  • Одну Button

В обработчике события Button1 пишем:

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var login, pass: string; // Пишем название переменных
begin // Начало программы
login:='spy-soft.net'; // Присваиваем значение переменной login, значение -spy-soft.net
pass:='12345'; // Присваиваем значение переменной pass, значение - 12345
if (Edit1.Text=login) and (Edit2.Text=pass) then Form2.Show else Form1.Close //  Если(Edit1.Text=переменной login) и (Edit2.Text=переменной pass) значит Форму2.Показать иначе Форму1.Закрыть
end;  // Конец

Все, теперь при запуске программы будет выскакивать окошко просящие у нас логин и пароль, если все введено верно она откроет форму программы, если нет – форма закроется.

Мелочи для тех кто только начинает изучать Delphi 7

Чтобы зафиксировать форму нужно в её свойстве Constraints обозначить максимальную и минимальную ширину и размер формы.

Чтобы при вводе пароля он был скрытен, т.е. вводился звездочками нужно зайти в параметры Edit ‘а текст которого хотите скрыть в PasswordChar и поставить символ которым вводимый текст будет заменяться.

Чтобы поменять шрифт/размер текста нужно зайти в параметры Edit ‘а Font.

Чтобы сделать в программе красивые кнопочки как в Windows, нужно в самом коде программы, после строки {$R *.dfm} (отмечена зеленым) вставить: {$R Windows.res}

Что бы поменять прозрачность формы нужно в настройках формы: AlphaBlend сделать значение true, теперь в AlphaBlendValue поставить прозрачность например 220.

Если вы интересуетесь Delphi, советую скачать Иллюстрированный самоучитель по Delphi

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *