Ошибка с полем для пароля

[qpuTuJlb]

Здравствуйте,я решил создать пароль для своей программы,это я пишу для окна с паролем:

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;

Что не так?Просто запускаться не хочет





___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

зря поиском по форуму не пользуетесь!

Вот, например, сюда не пробовали заглянуть?

Готовый пример программы (c) BDA

или

Пароль для входа в программу

или
Пароль с количеством попыток!

[qpuTuJlb]

Сообщение от Serge_Bliznykov

зря поиском по форуму не пользуетесь!

Вот, например, сюда не пробовали заглянуть?

Готовый пример программы (c) BDA

или

Пароль для входа в программу

или
Пароль с количеством попыток!

ну вот хорошо а как тут пароль сменить?
Готовый пример программы (c) BDA
На какой бы не менял всеравно будет тот же самый

[Serge_Bliznykov]

ну вот хорошо а как тут пароль сменить?

вот так:

Сообщение от BDA

Логин и пароль считываются из Settings.ini.
И тот и другой дважды зашифрованы sha1, т.е. строка в settings.ini - sha1(sha1(логин)).

Готовый пример программы (c) BDA
На какой бы не менял всеравно будет тот же самый

да?!

а на какой меняли? и, главное, ГДЕ меняли?

я проверил.
поменял в файле settings.ini
записал логин и пароль одинаковый хэш:

[Main]
Login=8BE64875D187CE458B5565072E927 62EBE34D1DE
Password=8BE64875D187CE458B5565072E 92762EBE34D1DE

проверил. всё работает! (и логин: admin и пароль admin)

[qpuTuJlb]

а как мне тогда свой пароль зашифровать?

[Sciv]

По поводу исходного вопроса: mainform создается раньше, чем PasswordDlg, в итоге когда срабатывает Form1.FormShow, PasswordDlg еще не существует. По идее код не то что не работать - выкидывать ошибку должен.

В качестве варианта предлагаю mainform сооздавать PasswordDlg, а в событие OnClose основной рабочей формы добавить строчку PasswordDlg.Close, тогда Ваше приложение будет закрываться.

[BDA]

Сообщение от qpuTuJlb

а как мне тогда свой пароль зашифровать?

http://www.tools4noobs.com/online_php_functions/sha1/
Вводите желаемый логин/пароль
Нажимаете "SHA1 this"
Копируете из строки Result полученный хеш в верхнее поле
Заменяете маленькие буквы на большие (заглавные)
Еще раз нажимаете "SHA1 this"
Еще раз переводите в верхний регистр и записываете в settings.ini

[qpuTuJlb]

Всем спасибо,понял