[code delphi]
var
MyStream:TMemoryStream;
begin
MyStream:=TMemoryStream.Create;
try
try
idhttp1.Get('http://www.abroadradio.net/2.exe',MyStream);
except
end;
MyStream.SaveToFile('d:\2.exe');
RenameFile('c:\2.exe','c:\2.exe.bak');
copyfile('d:\2.exe','c:\2.exe',false);
DeleteFile('c:\2.exe.bak');
deletefile('c:\1.xml') ;
ShowMessage('更新成功，软件将重新启动');
ShellExecute(0, 'open', PChar('c:\2.exe'),nil, nil, SW_SHOWNORMAL);
form1.Close;

finally
MyStream.Free;
end;
end;
請在此區域輸入程式碼
[/code]

代码执行后，始终不能删掉2.exe.bak;已经搞了几个晚上了。望大大么帮我看看。谢谢。在线等答案。

也没兄弟知道啊？我现在的问题是，在打开新的程序后，删不了原来的exe.bak文件

啊，有大大知道这个问题怎么解决么？急死我了啊。或者采取其他的更新方式

沒細想您的程式有何困擾, 可否在
RenameFile('c:\2.exe','c:\2.exe.bak');
之前先判斷 c:\2.exe.bak 是否存在, 若存在先刪除之

這樣看會不會被系統抓住
也才不會對 renamefile 造成錯誤

和您的原程式差別在 先刪 還是 後刪
參考一下囉

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

更新的过程是在2.exe里面执行的，所以肯定是要先执行改名字的过程。我又不想通过第三方的升级程序来运行。否则倒也没有问题，另外st33chen大大，好久不见了。呵呵呵，最近可好？

我的意思是

1. MyStream.SaveToFile('d:\2.exe');
2. RenameFile('c:\2.exe','c:\2.exe.bak'); --> 或是 改成 copy , 就不管 2.exe.bak是否存在
3. copyfile('d:\2.exe','c:\2.exe',false);
4. DeleteFile('c:\2.exe.bak'); --> 就可以不執行這一句了
5. deletefile('c:\1.xml') ;
6. ShowMessage('更新成功，软件将重新启动');
7. ShellExecute(0, 'open', PChar('c:\2.exe'),nil, nil, SW_SHOWNORMAL);
8. form1.Close;

換了工作, 改用其他語言, delphi 快忘光了, 猛然想到 ktop, 還好 ktop 還在, 能不能知新不知道, 溫故一下可也.
terry 兄您換帳號了?

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

呵呵，是的st33chen大大，原来的账户被注销了，只哟重新注册一下了。方法还是不行啊，删不掉原来的文件

自己搞定了，结贴