我正在Delphi7中编写一个更新程序,它将运行一次,但需要运行许多文件。
我希望实现的目标:
有人可以推荐一个好的解决方案吗?我已经考虑过使用Inno Setup(对于这么简单的任务来说太复杂了)或使用自解压zip文件(但之后如何删除文件)?
谢谢!
答案 0 :(得分:12)
我个人会使用Inno Setup,因为它非常适合这类任务。使用脚本事件删除文件非常简单,并且在安装后步骤中执行删除操作。
答案 1 :(得分:2)
我正在使用资源进行更新计划。我使用brcc32编译资源而不是编译updater程序。当updater程序运行时,它会自行检查所有内容并使用新的程序进行写入或更新。但是关于这个过程,你必须正确地编写,删除你的程序运行的权限。
我在下面添加了一个示例代码。
文件exe.rc
newprog RCDATA Application.exe
文件makeres.bat
brcc32 exe.rc
file updater.dpr
{$R exe.res}
单元文件和程序
procedure ExtractRes(resname,fname,ext:string);
var
rStream:TResourceStream;
fStream:TFileStream;
fNamex:string;
begin
fNamex:=ExtractFilePath(Application.ExeName)+fname+'.'+ext;
if not fileExists(fnamex) then
begin
try
rStream:=tresourcestream.Create(hinstance,ResName,RT_rcDATA);
fStream := TFileStream.Create(fnamex, fmCreate);
fStream.CopyFrom(rStream, 0);
finally
rStream.Free;
fstream.Free;
end;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
apath:string;
begin
if Timer1.Enabled then
Timer1.Enabled:=false;
apath:=ExtractFilePath(Application.ExeName);
lblMesg.Caption:='Backup old version';
Application.ProcessMessages;
if FileExists(apath+'Application_old.bak') then
DeleteFile(apath+'Application_old.bak') ;
while FileExists(apath+'Application.exe') do
begin
RenameFile(apath + 'Application.exe', apath + 'Application_old.bak');
sleep(1);
if FileExists(apath+'Application.exe') then
begin
lblMesg.Caption:='It seems application still running. Waiting for end';
if FileExists(apath+'Application_old.bak') then
DeleteFile(apath+'Application_old.bak');
DeleteFile(apath+'Application.exe');
end;
Application.ProcessMessages;
end;
lblMesg.Caption:='Creating New Version..';
Application.ProcessMessages;
ExtractRes('Application','Application','exe');
lblMesg.Caption:='Running New Version...';
Application.ProcessMessages;
WinExec(pchar(apath+'Application.exe'),sw_show);
Application.ProcessMessages;
Halt;
end;
我认为这可以帮助你解决1,2,3个问题。对于4,您可以扩展代码。
答案 2 :(得分:0)
也许不是Delphi的答案,但是如果您购买了WinRAR的许可证,则可以使用内置的简单设置功能(压缩到sfx文件并将脚本存储在注释文件中)
非常容易使用,可以自行清理并且压缩得很好!