去掉多线程2

Dprs/Pro/Measure_Cloud.dpr

@@ -203,7 +203,6 @@ uses
   DbTreeImport in '..\..\Units\DbTreeImport.pas',
   DbTreeDm in '..\..\DataModules\DbTreeDm.pas' {DbTreeData: TDataModule},
   DebugUsers in '..\..\Units\DebugUsers.pas',
-  FileDownLoadFrm in '..\..\Forms\FileDownLoadFrm.pas' {FileDownLoadForm},
   OtherMeasurePhaseDm in '..\..\DataModules\OtherMeasurePhaseDm.pas' {OtherMeasurePhaseData: TDataModule},
   OtherMeasureOnceDm in '..\..\DataModules\OtherMeasureOnceDm.pas' {OtherMeasureOnceData: TDataModule},
   OMPhaseRecord in '..\..\Units\DataRecord\OMPhaseRecord.pas',
@@ -218,7 +217,6 @@ uses
 var
   Mutex: THandle;
   IPForm: TIPForm;
-  vFDForm: TFileDownLoadForm;
   sInfo, sURL, sName: string;
 
 begin
@@ -267,20 +265,6 @@ begin
             Application.Terminate;
           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;
-
           ltDisCon:
           begin
             Application.MessageBox('网络错误，请稍后重试！', '操作提醒', MB_OK + MB_ICONWARNING);

Dprs/Pro/Measure_GuangDong_Cloud.dpr

@@ -203,7 +203,6 @@ uses
   DbTreeImport in '..\..\Units\DbTreeImport.pas',
   DbTreeDm in '..\..\DataModules\DbTreeDm.pas',
   DebugUsers in '..\..\Units\DebugUsers.pas',
-  FileDownLoadFrm in '..\..\Forms\FileDownLoadFrm.pas' {FileDownLoadForm},
   OtherMeasurePhaseDm in '..\..\DataModules\OtherMeasurePhaseDm.pas' {OtherMeasurePhaseData: TDataModule},
   OtherMeasureOnceDm in '..\..\DataModules\OtherMeasureOnceDm.pas' {OtherMeasureOnceData: TDataModule},
   OMPhaseRecord in '..\..\Units\DataRecord\OMPhaseRecord.pas',