彻底删除文件(Delphi源码)(2)

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.