[delphi]判断应用程序是否成功升级的问题

2008-05-31 09:28:21 101 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Radar2006 墨衍会员 · AI 创作全网分发关注 + 加入社区

用Delphi 向量算法判断点是否在线上用Delphi 向量算法判断点是否在线上Delphi 10.2 有一个向量数学单元周贵云提供了一个向量公式用于判断点与线的关系，非常简洁使用他提供的公式，用delphi的向量单元，可以构建一个非常简洁的判断函数经过测试OK Delphi 10.2 有一个向量数学单元 uses math.vector 就可以可以很方便地进行向量计算向量单元介绍看这里 https://blog.csdn.net/... 阅读详情



var

  flag: boolean; //升级标志



{$R *.res}



begin

  falg := false;



  //自动升级

  if FileAge('\\abc\a.exe') > FileAge(ParamStr(0)) then

  begin

    if application.MessageBox('是否升级？', 'Upgrade Time!', 1) = 1 then

    begin

      falg := true;

      ... 升级过程略...

    end;

  end;



  application.Initialize;

  try

    begin

      if flag then

        application.MessageBox('成功升级.', '提示', 1)

      else

        application.MessageBox('没有升级.', '提示', 1);

      frmLogin := TfrmLogin.Create(application);

      frmLogin.ShowModal;

      application.Run;

    end

  except

    ...

  end;



end.