登录时检测新版本,自动下载、运行。

DataModules/PHPWebDm.pas

@@ -198,7 +198,8 @@ begin
     end;
     2:
     begin
-      AInfo := vArr[0];
+//      AInfo := vArr[0];
+      AInfo := '版本有更新，请点击“确定”下载新版本。';
       ANewExeURL := vArr[1];
       Result := ltUpdate;
     end;

Forms/FileDownLoadFrm.dfm

@@ -35,7 +35,7 @@ object FileDownLoadForm: TFileDownLoadForm
     Left = 24
     Top = 64
     Width = 417
-    Height = 41
+    Height = 35
     ForeColor = clBlue
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clBlack

Forms/LoginFrm.pas

@@ -71,7 +71,8 @@ type
 implementation
 
 uses
-  ScUtils, ShellAPI, IniFiles, ScConfig, Md5, PHPWebDm, ConstUnit, DebugUsers;
+  ScUtils, ShellAPI, IniFiles, ScConfig, Md5, PHPWebDm, ConstUnit, DebugUsers,
+  FileDownLoadFrm;
 
 {$R *.dfm}
 
@@ -171,6 +172,7 @@ end;
 
 procedure TLoginFrm.btnLoginClick(Sender: TObject);
 var sInfo, sURL, sMD5PW: string;
+  vFDForm: TFileDownLoadForm;
 begin
   lblHint.Caption := '';
   lblHint.Update;
@@ -206,6 +208,20 @@ begin
       ModalResult := mrNone;
     end;
 
+    ltUpdate:
+    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;
+    end;
+
     ltIncomplete:
     begin
       Application.MessageBox(PChar(sInfo), 'ϵͳÌáʾ', MB_OK + MB_ICONINFORMATION);