|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: File Eraser programmieren
29. Dez 2005, 11:28
So ähnlich: Ich füre in etwa folgenden Code aus:
Delphi-Quellcode:
if fileexists(filename) then
begin
assignfile(f,filename);
reset(f);
size:=filesize(f);
rewrite(f);
for I:=1 to size do begin character:=chr(Random(255)+1); write(f,character); end;
closefile(f);
deletefile(filename);
end;
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|