概要:exit;end;if Wsz_IfFirst thenbeginfile://处理第一次登录的用户名和口令if Application.MessageBox("您是第一次使用本软件,请记住您的用户名和口令,以便下次登录。现在进入系统吗?","系统提示",MB_OKCANCEL + MB_ICONQUESTION) = IDOK thenbeginfile://保存Wsz_SaveUser(suser,spass);endelsebeginedituser.SetFocus ;exit;end;end elsebeginif not Wsz_CheckUser(suser,spass) thenbeginApplication.MessageBox("对不起,用户名和口令输入不正确!", "系统提示",MB_OK + MB_ICONINFORMATION);edituser.setfocus ;exit;end;end;file
用注册表给应用程序加口令,标签:电脑技巧大全,电脑技术,http://www.laixuea.comexit;
end;
if Wsz_IfFirst then
begin
file://处理第一次登录的用户名和口令
if Application.MessageBox(
"您是第一次使用本软件,请记住您的用户名和口令,
以便下次登录。现在进入系统吗?",
"系统提示",
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;