关于自动更新的问题,大陆的兄弟都不会,哪位大大帮我看看,谢谢 |
缺席
|
terry_zhou82
一般會員 發表:8 回覆:22 積分:6 註冊:2012-08-28 發送簡訊給我 |
[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;已经搞了几个晚上了。望大大么帮我看看。谢谢。在线等答案。 |
terry_zhou82
一般會員 發表:8 回覆:22 積分:6 註冊:2012-08-28 發送簡訊給我 |
|
terry_zhou82
一般會員 發表:8 回覆:22 積分:6 註冊:2012-08-28 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
沒細想您的程式有何困擾, 可否在
RenameFile('c:\2.exe','c:\2.exe.bak'); 之前先判斷 c:\2.exe.bak 是否存在, 若存在先刪除之 這樣看會不會被系統抓住 也才不會對 renamefile 造成錯誤 和您的原程式差別在 先刪 還是 後刪 參考一下囉
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
terry_zhou82
一般會員 發表:8 回覆:22 積分:6 註冊:2012-08-28 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
我的意思是
terry 兄您換帳號了?
------
IS IT WHAT IT IS 我是 李慕白 請倒著唸. 又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲. |
terry_zhou82
一般會員 發表:8 回覆:22 積分:6 註冊:2012-08-28 發送簡訊給我 |
|
terry_zhou82
一般會員 發表:8 回覆:22 積分:6 註冊:2012-08-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |