Delphi -> samodejno kopiranje programa

Upam da ne pises kaksnega virusa , no ja drugac pa si pac naredis direktorije oziroma jih preimenujes. if CreateDir(ImeDirektorija) then Juhuhu; ce pa ga preimenujes

if RenameDir(PrvoIme, DrugoIme) then UspehInNaprej;

Kar se pa kopiranja tice gre pa nekako v stilu BlockRead in BlockWrite, pazir moras na to da zadnji blok (buffer) ne bo dolg standardno stevilo znako ampak obicajno krajsi.





for I:=0 to length(f) do

begin

seek(f,i);

BlockRead(F,Buffer,SteviloZnakov);

seek(f2,i);

BlockWrite(F2,Buffer,SteviloZnakov);

end;





Tole je ce kopiras kar byte po byte, vedar je zelo pocasi, najboljse je ce imas precej velik buffer, samo potem moras tudi kodo prilagoditi temu.