| 用注册表给应用程序加口令 |
|
作者：佚名 文章来源：onegreen.net 点击数： 更新时间：2008-5-13 0:12:28  |
"您是第一次使用本软件，请记住您的用户名和口令，
以便下次登录。现在进入系统吗？",
"系统提示",
MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
begin
file://保存
Wsz_SaveUser(suser,spass);
end
else
begin
edituser.SetFocus ;
exit;
end;
end else
begin
if not Wsz_CheckUser(suser,spass) then
begin
Application.MessageBox
("对不起，用户名和口令输入不正确！", "系统提示",
MB_OK + MB_ICONINFORMATION);
edituser.setfocus ;
exit;
end;
end;
file://全局变量
GB_Wsz_User := suser;
GB_Wsz_PASS := spass;
Close;
end;
file://窗体的Show事件
procedure TWszLoginForm.FormShow(Sender: TObject);
begin
if Wsz_IfFirst then
begin
Application.MessageBox(
"您是第一次使用本软件，您可以随便输入用户名和口令。",
"系统提示",
MB_OK + MB_ICONINFORMATION);
end;
end;
上一页 [1] [2] |
| 文章录入：onegreen 责任编辑：onegreen |
|
上一篇文章： 用VB函数轻松访问系统注册表
下一篇文章： MS－DOS方式下对注册表的编程 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
