Question

delphi 给一个小程序添加密码

我写了个小程序，怎么填加密码。就是点击程序是会要求输入密码，只要求输入密码的？？求代码！详细..急

Answer 1

procedure Form1.Create(Sender: TObject);
begin
Form2 := TForm2.Create(Application);
Form2.ShowModal;
end;

然后在Form2添加一个Edit控件, 两个Button控件..
Button1.Caption := '确认';
Button1.Caption := '退出';

Button1的 OnClick事件增加代码..
begin
if Edit1.Text = 'password' then
begin
ModalResult := mrOK;
Close;
end;
end;

Button2的 OnClick事件增加代码
begin
ModalResult := mrNone;
Application.Terminate;
end;

Answer 2

你的意思是: 给EXE程序写密码保护? 这个有点难度呢..呵呵

Answer 3

你创建2个窗体不就行了吗

追问

我想问下，现在我窗体2添加了 密码，也可以用了。打开程序出现输入密码框是，我可以输入密码进去，也可以直接把密码窗口给关了，密码都不需要输入就进去了，怎样避免这个问题，可以把窗口2的关闭（x）给取消了吗？或者别的办法？？ 添加密码的代码是上面给的代码