完全关闭程序后，再运行外部程序，主要用于升级程序，代码应怎么写，我的写的代码出错，请大家用看看，谢！(50分)

Y

YongSoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-09

• #1

完全关闭程序后，再运行外部程序，主要用于升级程序，代码应怎么写，我的写的代码出错，请大家用看看，谢！
WinExec(PChar(Filefolt+'UpdateFile/UpdateFile.exe'+' "'+Filefolt+'" "3.12" '+ ' "'+
Application.ExeName+ '" "'+Application.Title+'"' ),SW_SHOWNORMAL);//升级程序
Halt;//关闭应用程序

 

W

wtopia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-09

• #2

WinExec(PChar(Filefolt+'UpdateFile/UpdateFile.exe'),SW_SHOWNORMAL);//升级程序
Halt;//关闭应用程序

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-09

• #3

if IsNT then begin
MoveFileEx(newName,oldName,MOVEFILE_DELAY_UNTIL_REBOOT or MOVEFILE_REPLACE_EXISTING);
end else begin
With TIniFile.Create(myGetWindowsDirectory + 'wininit.ini') do
try
WriteString('Rename',oldName,NewName);
finally
Free;
end;
end;

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-09

• #4

procedure TLinkupMainForm.FormDestroy(Sender: TObject);
{窗体释放}
begin
if FIsUpdate then
WinExec(PChar(ApplicationPath + 'Update.exe'), 1);
end;{FormDestroy}

 

J

jog81

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-16

• #5

学习来了！[]

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-16

• #6

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2091367
我在里面写了一段从网上下载新版本然后生成BAT文件后自动升级的代码
虽然还有很多地方需要完善（错误/异常处理等），但可以参考一下。

 

W

willrain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-17

• #7

先把它放到消息队列中按顺序执行会好些，因些这样的话资源就不会冲突，不易出问题。