怎么在运行的程序中，直接复制一个可执行文件来覆盖正在运行的可执行文件？

Question

这样如何
1 在程序proj中打开一个新程序proj1
2 在proj1中关闭proj 延时 拷贝 打开proj
3 在proj中关闭proj1

Answer 1

http://www.snowdeer.net/BBS/dispbbs.asp?boardID=4&RootID=29794&ID=29794

Answer 2

http://www.snowdeer.net/BBS/dispbbs.asp?boardID=4&RootID=29794&ID=29794

Answer 3

呵呵，批处理可以这样循环！
谢谢！
        AssignFile(tFile, 'UpdateSelf.bat');
        Rewrite(tFile);
        WriteLn(tFile,':try2');
        WriteLn(tFile,'del '+OldCom);
        WriteLn(tFile,'if Exist '+OldCom+' goto try2');
        WriteLn(tFile,'Copy '+NewCom+' '+OldCom);
        WriteLn(tFile,'del UpdateSelf.bat');
        CloseFile(tFile);
        WinExec('UpdateSelf.bat',SW_HIDE);

Answer 4

呵呵，批处理可以这样循环！
谢谢！
        AssignFile(tFile, 'UpdateSelf.bat');
        Rewrite(tFile);
        WriteLn(tFile,':try2');
        WriteLn(tFile,'del '+OldCom);
        WriteLn(tFile,'if Exist '+OldCom+' goto try2');
        WriteLn(tFile,'Copy '+NewCom+' '+OldCom);
        WriteLn(tFile,'del UpdateSelf.bat');
        CloseFile(tFile);
        WinExec('UpdateSelf.bat',SW_HIDE);

Answer 5

呵呵，批处理可以这样循环！
谢谢！
        AssignFile(tFile, 'UpdateSelf.bat');
        Rewrite(tFile);
        WriteLn(tFile,':try2');
        WriteLn(tFile,'del '+OldCom);
        WriteLn(tFile,'if Exist '+OldCom+' goto try2');
        WriteLn(tFile,'Copy '+NewCom+' '+OldCom);
        WriteLn(tFile,'del UpdateSelf.bat');
        CloseFile(tFile);
        WinExec('UpdateSelf.bat',SW_HIDE);