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

2019-03-09 18:08

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.


彻底删除文件(Delphi源码)(2).doc 将本文的Word文档下载到电脑 下载失败或者文档不完整,请联系客服人员解决!

下一篇:八字培训 刁吉祥《命理玄机》第六节胎元命宫身宫

相关阅读
本类排行
× 注册会员免费下载(下载后可以自由复制和排版)

马上注册会员

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: