去掉多线程

Forms/LoginFrm.pas

@@ -71,8 +71,7 @@ type
 implementation
 
 uses
-  ScUtils, ShellAPI, IniFiles, ScConfig, Md5, PHPWebDm, ConstUnit, DebugUsers,
-  FileDownLoadFrm;
+  ScUtils, ShellAPI, IniFiles, ScConfig, Md5, PHPWebDm, ConstUnit, DebugUsers;
 
 {$R *.dfm}
 
@@ -172,7 +171,6 @@ end;
 
 procedure TLoginFrm.btnLoginClick(Sender: TObject);
 var sInfo, sURL, sMD5PW: string;
-  vFDForm: TFileDownLoadForm;
 begin
   lblHint.Caption := '';
   lblHint.Update;
@@ -208,43 +206,6 @@ begin
       ModalResult := mrNone;
     end;
 
-    ltUpdate:
-  {  begin
-      // 无法对PHP返回的字符串进行排版。这里使用Delphi自身的字符串。
-      sInfo := '尊敬的用户：' + #13#13 +
-               '系统检测出您是通过SmartCost旧版本程序注册了本帐户(' + Trim(cbUser.Text) +
-               ')，因系统升级，为保障您的帐户安全和更好的为您服务，' + #13#13 +
-               '我们需要对您的邮箱进行有效性验证，并需要您重置该帐户的密码以保证您的帐号在新程序上能够正常使用。' + #13#13 +
-               '请点击“确定”按钮打开密码重置页面。';
-      Application.MessageBox(PChar(sInfo), '升级提示', MB_OK + MB_ICONINFORMATION);
-      edtPW.SetFocus;
-      edtPW.SelectAll;
-      ModalResult := mrNone;
-
-      Screen.Cursor := crHourGlass;
-      try
-        sURL := ConfigInfo.OldUserResetPwdURL + '?CheckCode=' + sCheckCode;
-        ShellExecute(Application.Handle, 'open', PChar(sURL), nil, nil, SW_SHOWNORMAL);
-      finally
-        Screen.Cursor := crDefault;
-      end;
-    end;   }
-    // 升级
-    begin
-      if Application.MessageBox(PChar(sInfo), '系统提示', MB_OKCANCEL + MB_ICONQUESTION) = ID_OK then
-      begin
-        vFDForm := TFileDownLoadForm.Create(nil);
-        try
-          vFDForm.URL := sURL;
-          vFDForm.ShowModal;
-        finally
-          vFDForm.Free;
-        end;
-      end;
-
-      ModalResult := mrNone;
-    end;
-
     ltIncomplete:
     begin
       Application.MessageBox(PChar(sInfo), '系统提示', MB_OK + MB_ICONINFORMATION);