Давайте попробуем создать пароль на Дельфи с использованием 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;

И вот уже теперь программка только запускатся будет в случае введения правильно набранного пароля, в любом другом случае она полностью закроется.

Спонсор поста: еще не знаете где именно купить 1С предприятие с целью автоматизации бизнеса? Заходите на веб-сайт mjrc.ru и с помощью продуктов 1С начните тратить меньше, а зарабатывать больше!