EXE kopiert sich selbst...

[ichbins]

Geht doch gaanz einfach:

Delphi-Quellcode:

var
  f,t:file of byte;
  buf:array[1..4096] of byte;
  copied:integer;
begin
  assignfile(f,application.exename);
  assignfile(t,NEWFILENAME);
  filemode:=0;
  reset(f);
  filemode:=2;
  rewrite(t);
  while not eof(f) do
  begin
    blockread(f,buf,4096,copied);
    blockwrite(t,buf,copied);
  end;
  closefile(f);
  closefile(t);
end;