Подскажите, как пользоваться Password Dialog в Delphi - Помощь студентам

Grigoriy7 · 30.09.2007, 11:23

Народ, Помогите пожалуйста. Короче, написал прогу и хочу, чтобу при закрытии она требовала пароль. Если пароль верный, то она выключается, а если нет, то продолжает работать.
Заранее спасибо.

SERG1980 · 01.10.2007, 08:16

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var pass,pass1:string;
begin
pass1:='www';// просто имитация пароля
Pass:=InputBox('Ввод пароля','Введите пароль для завершения програмы','');
CanClose:=Pass=pass1;
end;

Grigoriy7 · 01.10.2007, 09:19

Большое спасибо.

30.09.2007, 11:23	#1
Grigoriy7 Новичок Джуниор Регистрация: 30.09.2007 Сообщений: 2	Подскажите, как пользоваться Password Dialog в Delphi Народ, Помогите пожалуйста. Короче, написал прогу и хочу, чтобу при закрытии она требовала пароль. Если пароль верный, то она выключается, а если нет, то продолжает работать. Заранее спасибо. Последний раз редактировалось Grigoriy7; 30.09.2007 в 19:22.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как пользоваться классами на С++	madmax08	Общие вопросы .NET	4	15.07.2008 23:59
Как пользоваться компонентом PrintDialog?	Bill Gates	Общие вопросы Delphi	1	30.12.2007 20:15
Что значит эта ошибка (password dialog)	мазер	Помощь студентам	4	05.01.2007 13:11

01.10.2007, 08:16	#2
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var pass,pass1:string; begin pass1:='www';// просто имитация пароля Pass:=InputBox('Ввод пароля','Введите пароль для завершения програмы',''); CanClose:=Pass=pass1; end;

01.10.2007, 09:19	#3
Grigoriy7 Новичок Джуниор Регистрация: 30.09.2007 Сообщений: 2	Большое спасибо.