Форум: "Основная";
Текущий архив: 2005.08.28;
Скачать: [xml.tar.bz2];
Вниз
Защита программы паролем Найти похожие ветки
← →
TerminalHead © (2005-08-08 06:44) [0]Мне надо сделать чтобы в ходе работы программы появлялось окно с вводом пароля, и если его не введешь то некоторые функции программы небыли доступны. Мне не нужна какая-нибудь навороченная защита, просто поле для ввода пароля, и чтобы пароль скрывался звездочками. Я знаю что такую защиту можно взломать с помощью блокнота :), но это не важно. Я это делаю так:
var
right_pass: string;
request: string;
begin
right_pass:="pass";
request:=InputBox("enter","password","");
if request <> "" then begin check:=0;
if request <> right_pass then check:=0;
end else begin
Application.Terminate
end;
if request = "pass" then check:=8765;
В принципе меня это устраивает, кроме того что пароль не скрывается звездочками.
Как мне реализовать скрытие вводимого пароля звездочками ?
← →
Думкин © (2005-08-08 07:42) [1]есть Password dialog
и есть TEdit.PasswordChar
← →
evvcom © (2005-08-08 08:14) [2]
> Я знаю что такую защиту можно взломать с помощью блокнота
> :),
Ну, эт ты загнул. Такие защиты вскрываются усилием мысли и воли. :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.08.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.039 c
