Пример создания пароля на Delphi с помощью PasswordDlg, чтобы программу нельзя было открыть. Сперва добавь к проекту PasswordDlg из File -> New -> Other -> Dialogs. У формы Password Dialog в Object Inspector -> OnCloseQuery:
procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
const p='password'; // Указываем пароль для программы
begin
if Password.Text = p then CanClose:=true
else Application.Terminate;
end; // Если пароль совпадает с константой p - появится главная форма, если нет - программа закончит работу
В главной форме Form1:
procedure TForm1.FormShow(Sender: TObject);
begin
PasswordDlg.ShowModal;
end;
Теперь программа будет запускаться только тогда когда будет введён правильный пароль, иначе программа закроется
| 
