彻底删除文件(Delphi源码)
彻底删除文件源码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
Button2: TButton;
Edit1: TEdit;
ProgressBar1: TProgressBar;
Button3: TButton;
Button4: TButton;
Timer1: TTimer;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
FileName:String;
implementation
{$R *.dfm}
Procedure DelOne(FileName:String); var
f: file of byte;
n: byte;
i:integer;
SizeInt:Int64;
begin
AssignFile(f, FileName);
Reset(f);
SizeInt:=FileSize(f);
n := 0;
for i := 1 to SizeInt do
begin
BlockWrite(f, n, 1);
end;
CloseFile(f);
end;
Procedure DelTwo(FileName:String);
var
f: file of byte;
n: byte;
i:integer;
begin
AssignFile(f, FileName);
Reset(f);
n := 1;
for i := 1 to FileSize(f) do
begin
BlockWrite(f, n, 1);
end;
CloseFile(f);
end;
Procedure DelThree(FileName:String);
var
f: file of byte;
n: byte;
i:integer;
begin
Randomize;
AssignFile(f, FileName);
Reset(f);
for i := 1 to FileSize(f) do
begin
n :=Random(3);
BlockWrite(f, n, 1);
end;
CloseFile(f);
end;
Procedure DelFour(FileName:String);
var
f: file of byte;
n: byte;
i:integer;
begin
Randomize;
AssignFile(f, FileName);
Reset(f);
for i := 1 to FileSize(f) do
begin
n :=Random(4);
BlockWrite(f, n, 1);
end;
CloseFile(f);
end;
Procedure Delfive(FileName:String);
var
f: file of byte;
n: byte;
i:integer;
begin
Randomize;
AssignFile(f, FileName);
Reset(f);
for i := 1 to FileSize(f) do
begin
n :=Random(5);
BlockWrite(f, n, 1);
end;
CloseFile(f);
end;
Procedure Delsix(FileName:String);
var
f: file of byte;
n: byte;
i:integer;
begin
Randomize;
AssignFile(f, FileName);
Reset(f);
for i := 1 to FileSize(f) do
begin
n :=Random(6);
BlockWrite(f, n, 1);
end;
CloseFile(f);
end;
Procedure Delsven(FileName:String);
var
f: file of byte;
n: byte;
i:integer;
begin
Randomize;
AssignFile(f, FileName);
Reset(f);
for i := 1 to FileSize(f) do
begin
n :=Random(7);
BlockWrite(f, n, 1);
end;
CloseFile(f);
end;
Procedure DelEt(FileName:String);
var
f: file of byte;
n: byte;
i:integer;
begin
Randomize;
AssignFile(f, FileName);
Reset(f);
for i := 1 to FileSize(f) do
begin
n :=Random(8);
BlockWrite(f, n, 1);
end;
CloseFile(f);
end;
Procedure DelNine(FileName:String);
var
f: file of byte;
n: byte;
i:integer;
begin
Randomize;
AssignFile(f, FileName);
Reset(f);
for i := 1 to FileSize(f) do
begin
n :=Random(9);
BlockWrite(f, n, 1);
end;
CloseFile(f);
end;
procedure TForm1.Button1Click(Sender: TObject); begin
DelOne(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelTwo(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelThree(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelFour(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
Delfive(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelSix(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
Delsven(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelEt(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelNine(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DeleteFile(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
ShowMessage('OK');
end;
procedure TForm1.Button2Click(Sender: TObject); begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
end;
procedure TForm1.Timer1Timer(Sender: TObject); begin
DelOne(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelTwo(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelThree(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelFour(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
Delfive(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelSix(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
Delsven(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelEt(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DelNine(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
DeleteFile(Edit1.Text);
ProgressBar1.Position:=ProgressBar1.Position+1;
ShowMessage('OK');
Timer1.Enabled:=False;
end;
procedure TForm1.Button3Click(Sender: TObject); begin
Timer1.Enabled:=True;
end;
procedure TForm1.Button4Click(Sender: TObject); begin
Timer1.Enabled:=False;
end;
end.