我的程序需要有在线升级的功能,这几天也翻了一些老贴,感觉我这个程序不好用那些方法实现,实际上,比较版本的的功能我已经做好,主要问题是更新。
我的程序是一个exe文件加上一个目录,这个目录里有七百多个文件,我也没办法去一一比较,还是直接把整个目录更新了更方便一点,怎么实现?怎么把这个目录直接复制到原来的目录上?然后在复制完的时候去执行那个exe文件?急盼高手相助,分不够再加!
我的程序是一个exe文件加上一个目录,这个目录里有七百多个文件,我也没办法去一一比较,还是直接把整个目录更新了更方便一点,怎么实现?怎么把这个目录直接复制到原来的目录上?然后在复制完的时候去执行那个exe文件?急盼高手相助,分不够再加!
2、使用HTTP从网站下载升级信息。
3、确定是否进行升级
4、升级程序 下面我们定义一下升级信息: [文件名1]
datetime=时间
[文件名2]
datetime=时间
存为HTML文件,如定义一个update.htm
[programe1.exe]
datetime=2003-07-06
[programe1.hlp]
datetime=2003-07-06 这里只是简单的判断一下文件的时间,如果时间比需要升级的文件时间小的,表示要下载新版本升级它。当然要做到十全十美,这是判断是不合理的,这里只作个简单的介绍。 写个fuction,判断是否有新的版本要升级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为TNMHTTPHTTPFiles.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;
2.直接提示新版本的下载地址 这是最省事的方法 如果在线升级不是那么必要的话 杀毒软件除外 ^_^