Защита программы паролем

← →
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

> Я знаю что такую защиту можно взломать с помощью блокнота
> :),

Ну, эт ты загнул. Такие защиты вскрываются усилием мысли и воли. :)

Защита программы паролем Найти похожие ветки