SchredderProg (mit source) gesucht!

[Ultimator]

Probier das doch mal so:

Delphi-Quellcode:

procedure TForm1.ShrederFile(Wieoft:Integer); 
const Buffer = 1024; 
var 
  arr: array [1..Buffer] of byte; 
  fi: file; 
  i, n, Z: integer; 
begin 
Z:=0
if OpenDialog1.Execute then 
  begin 
    repeat 
    AssignFile(fi, OpenDialog1.FileName); 
    Reset(fi, 1); 
    n := FileSize(fi); 
    FillChar(arr, SizeOf(arr), #0); 
    for i := 1 to n div Buffer do 
    begin 
      BlockWrite(fi, arr, n mod Buffer); 
    end; 
    CloseFile(fi); 
    Erase(fi); 
  end; 
 inc(Z);
until Z=Wieoft;
end;

Ich habs zwar jetzt nicht getestet, müsste aber gehen.

EINEGNINITIATIVE

[edit]OH MEIN GOTT! Bin ich heut wieder langsam...[/edit]