彻底删除文件(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.

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库彻底删除文件(Delphi源码)(2)在线全文阅读。