请问用DELPHI如何开发文件粉碎机??

Question

请问用DELPHI如何开发文件粉碎机??有源程序吗?大家讨论下...

Answer 1

大侠，查了一下MSDN，没找到怎么用这个函数粉碎文件，能讲解一下吗？多谢了。

Answer 2

movefileex
是用来延迟删除文件或移动文件的，跟粉碎没有关系。

Answer 3

http://hi.baidu.com/tewuapple/blog/item/2204c167ecad8d2faa184ca5.html

Answer 4

procedure Del(FName:String);  
var buf:array[0..128] of byte;
    num:integer;
    Target:File;
    i:longint;
begin
    Randomize;
    if not FileExists(FName) then
       begin
          Showmessage('文件:"'+FName+'"不存在!');
          exit;
       end;
    for i:=1 to 5 do
       begin
         try
            assignFile(Target,FName);Reset(Target,1);
            while not eof(target) do
              begin
                  fillchar(buf,sizeof(buf),Chr(Round(Random(512)*0.618)));
                  blockwrite(target,buf,1,num);
              end;
         Finally
             closefile(target);
         end;
      end;
     DeleteFile(FName);
end;不知道有没有写错,反正可以破坏文件,恢复不了就是...