为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

彻底删除文件(Delphi源码)

2017-09-27 10页 doc 26KB 49阅读

用户头像

is_841159

暂无简介

举报
彻底删除文件(Delphi源码)彻底删除文件(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;...
彻底删除文件(Delphi源码)
彻底删除文件(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.
/
本文档为【彻底删除文件(Delphi源码)】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索