从服务器上自动更新程序

 const
  ProgramNewFilePath = '//192.168.1.3/公共文件/电脑课/软件组文件/program/query/query.exe';

 

 IF FileAge(ProgramNewFilePath) > FileAge(ParamStr(0)) THEN
  begin
    try
      ProgramOldFilePath := Application.ExeName;
      //改文件名(改名后才能Copy新版本)
      ChangeName(ProgramOldFilePath);
      //杀死进程
      My_DeleteMe;
      //Copy新版本
      CopyNewFile(ProgramOldFilePath);
      //运行新版本
      ShellExecute(0, 'open', Pchar(ProgramOldFilePath), nil, nil, SW_SHOW);
    except
      application.MessageBox('此版本已过期,自动升级到新版本失败,请关闭此程序再试!', '错误', MB_OK or MB_ICONWARNING);
    end;
    application.Terminate;
  end;