delphi自动更新程序

function   ExistNewfile&:boolean; var   i,iFileHandle:integer; FileDateTime:TDateTime; AppIni:TiniFile; g_path:string; url:string; files:TStrings; begin result:=false; url:=’http://yousoft.hi.com.cn/update.htm/’;   //要升级的服务器 g_path:=ExtractFilePath(application.ExeName);   //升级程序的路径 if   copy(g_path,length(g_path),1) <> ’/’   then   g_path:=g_path+’/’; if   copy(url,length(url),1) <> ’/’   then   url:=url+’/’; //下载升级信息文件 try HTTPFiles.InputFileMode   :=   true; HTTPFiles.OutputFileMode   :=   FALSE; HTTPFiles.ReportLevel   :=   Status_Basic; HTTPFiles.Body:=g_path+’update/update.ini’;   //下载后保存到程序的update目录下 HTTPFiles.Get(url); except result:=false;   //取得升级信息出错！，不用再继续 exit; end; try files:=TStringlist.Create;   //有哪些文件？ AppIni   :=   TIniFile.Create(g_path+’/update/update.ini’); AppIni.ReadSections(files); for   i:=0   to   files.Count-1   do try iFileHandle   :=FileOpen(g_path+files,fmShareDenyNone); FileDateTime:=FileDateToDateTime(FileGetDate(iFileHandle));   //取得文件时间 FileClose(iFileHandle); //是否要下载文件 if   FileDateTime,’DATETIME’,’1900-1-1’))&NBSP;THEN begin result:=true; break; end; except end; finally AppIni.free; files.Free; end; end; 　　取得files后文件下载！httpfiles为TNMHTTP HTTPFiles.InputFileMode   :=   true; HTTPFiles.OutputFileMode   :=   FALSE; HTTPFiles.ReportLevel   :=   Status_Basic; HTTPFiles.Body:=g_path+’update/’+files; HTTPFiles.Get(url); 　　把下载后的文件复制到原程序，并备份出一份 for   i:=0   to   files.Count-1   do   //备份文件 begin //备份一份文件出来 copyfile(pchar(g_path+files),pchar(g_path+files+’.bak’),false); end; for   i:=0   to   files.Count-1   do   //从update复制新文件 begin copyfile(pchar(g_path+’update/’+files),pchar(g_path+files),false); end;