关于文件操作(50分)

Dick · 1999-10-28

我在开发程序的时候，遇到了这样一个问题： 需要将本程序硬盘上的EXE文件替换掉，比如 说从网络上自动升级程序，大概就得这么做。 我个人认为着应该是可以的，因为许多软件 的反安装程序都可以删掉自己。所以我想应该 有什么方法来解决这个问题，免得老是让用户 自己去拷贝文件。 50分大概不多，希望有大侠出手。

sunstone · 1999-10-28

你可以建立第二个程序,专门来处理需要修改和更新的那个exe文件. 如果exe删除或修改自身,恐怕不行.除非编写自毁文件.这方法再大富翁 中有,有程序编写一个dos下的批处理文件,即可.

Dick · 1999-10-29

我就是要保证一个EXE程序，再引入其他的文件恐怕不可以 自毁文件在什么地方？

sunstone · 1999-10-29

借用大虾的!自毁文件如下 procedure TForm1.closeme; var f:textfile; begin  assignfile(f,'./delme.bat');   rewrite(f);   writeln(f,'@echo off');   writeln(f,':loop');   writeln(f,'del "'+application.ExeName+'"');   writeln(f,'if exists '+application.exename+' goto loop');   writeln(f,'del ./delme.bat');   closefile(f);  winexec('./delme.bat', SW_HIDE);   close; end;

cytown · 1999-10-29

呵呵, 一般都是从网上下载一个专门升级程序来修改的

weihang · 1999-10-29

呵呵,那个自毁文件问题是我问的

Dick · 1999-10-31

How to automatic doing the uograde work? I mean. when I am connected to net, can I uograde "myself" when the application is running? Many commericial program can do so, I want to accomplish this. Sorry, the enviroment I am using now is Irix, so I can not input Chinese. Sorry again.

Another_eYes · 1999-10-31

impossible. except deleting by other application and self stop running(the application can be created at runtime, such as a bat file.)

cAkk · 1999-10-31

呵呵,仔细一看,"自毁文件"的代码还有点bug,修改如下: writeln(f,'if exists '+application.exename+' goto loop' 改成: writeln(f,'if exists "'+application.exename+'" goto loop' (类似于del那一句) 因为DOS下面,如果是长文件名,要用双引号扩起来.

Dick · 1999-11-11

不好意思，一个简单的问题打扰了大家这么久 出差了一个星期，回来就平分了这50分算了

关于文件操作(50分)

Dick

Unregistered / Unconfirmed

sunstone

Unregistered / Unconfirmed

Dick

Unregistered / Unconfirmed

sunstone

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

weihang

Unregistered / Unconfirmed

Dick

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Dick

Unregistered / Unconfirmed

Similar threads