WIN2K中,如何在程序运行结束后,移动自身(100分)

  • 主题发起人 主题发起人 dodo121
  • 开始时间 开始时间
D

dodo121

Unregistered / Unconfirmed
GUEST, unregistred user!
这个问题很简单,可是我不会,各位不要见笑,还请指教!
以前曾看过一篇类似问题的文章,是用程序生成批处理文件方式来实现的,但在WIN2K下
我试了试,不理想,不知各位DFW还有什么其它的好方法?
 
一样做啊,用bat文件,然后winexec就可以了
 
不好意思,问题没说清楚,我要求的是不留痕迹的移动,即在系统中不留任何痕迹,如用
BAT方法,会留下BAT文件的,在WIN98下还好说,可以在批处理最后加入 DEL %0 删除BAT
文件,但在WIN2K下却不行! li_zhifu的方法就是这样的!
 
在Win2K和WinXP下测试通过,不留痕迹。不会留下Bat文件。
 
还有一个办法新建一个进程,用这个进程移动自己.....
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Assignfile(f,ExtractFilePath(Application.ExeName)+'1.bat');
rewrite(f);
writeln(f,'copy '+Application.ExeName+'e:/');
writeln(f,'del '+Application.ExeName);
writeln(f,'del %0');
closefile(f);
winexec(PChar(ExtractFilePath(Application.ExeName)+'1.bat'),sw_hide);
end;
 
Writeln(f,'del %0');
WIN2k pro 可以删除bat文件的!
自杀程序好像就是这样的
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部