概要:Application.MessageBox("用户名和口令都必须输入!", "系统提示", MB_OK + MB_ICONINFORMATION); edituser.SetFocus ; exit; 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
运用注册表给系统应用程序加口令,标签:电脑技巧大全,电脑技术,http://www.laixuea.comApplication.MessageBox("用户名和口令都必须输入!",
"系统提示",
MB_OK + MB_ICONINFORMATION);
edituser.SetFocus ;
exit;
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;