怎样用Delphi7实现文件粉碎

admin管理员组

文章数量:1530339

2024年6月17日发(作者：)

维普资讯

实用第　

智慧密　

）　

｝　

ＣＶｉｅｗ：：ＯｎＲ　ＢｕｔｔｏｎＤｏｗｎ（ｎＦｌａｇｓ，ｐｏｉｎｔ）　

｝　

｝　．　

ＣＶｉｅｗ：：ＯｎＭｏｕｓｅＭｏｖｅ（ｎＦｌａｇｓ，ｐｏｉｎｔ）　

｝　

ｖｏｉｄ　ＣＤｒａｗＢｅｚＶｉｅｗ：：ＯｎＲＢｕｔｔｏｎＵｐ（ＵＩＮＴ　ｎＦｌａｇｓ，ＣＰｏｉｎｔ　

ｖｏｉｄ　ＣＤｒａｗＢｅｚＶｉｅｗ：：ＯｎＭｏｕｓｅＭｏｖｅ（ＵＩＮＴ　ｎＦｌａｇｓ，ＣＰｏｉｎｔ　

ｐｏｉｎｔ）　

（　

ｉｆ（Ｉｎｄｅｘ＞＝０＆＆Ｉｎｄｅｘ＜＝３）　

（　

ＢｅｚｉｅｒＰｏｉｎｔ【Ｉｎｄｅｘ】，Ｘ　ｐｏｉｎｔ．ｘ：　

ＢｅｚｉｅｒＰｏｉｎｔ【Ｉｎｄｅｘ】．ｙ＝ｐｏｉｎｔ．ｙ：　

Ｉｎｖａｌｉｄａｔｅ（）：　

｝　

ＣＶｉｅｗ：：ＯｎＭｏｕｓｅＭｏｖｅ（ｎＦｌａｇｓ，ｐｏｉｎｔ）　

｝　．　

ｖｏｉｄ　ＣＤｒａｗＢｅｚＶｉｅｗ：：ＯｎＭｏｕｓｅＭｏｖｅ（ＵＩＮＴ　ｎＦｌａｇｓ．ＣＰｏｉｎｔ　

ｐｏｉｎｔ）　

（　

ｊｆ（Ｉｎｄｅｘ＞＝０＆＆ｌｎｄｅｘ＜＝３）　

（　

ＢｅｚｉｅｒＰｏｉｎｔ【Ｉｎｄｅｘ】．Ｘ＝ｐｏｉｎｔ．Ｘ　

ＢｅｚｉｅｒＰｏｉｎｔ【Ｉｎｄｅｘ】．ｙ＝ｐｏｉｎｔ．ｙ　

ｌｎｖａｌｉｄａｔｅ（）：　

霞冀骥　簸爨　魈燃嚣要黧蔓　鏊整　霆嚣羹鎏美羹羔　墨羹　

甜　澄鳓雀蠹　麓　龋酵誊翰　鬻誊誊‘尊舞０＿螬篓蔓囊嚣　鹭疆　蓼》攀霪。《誊甓霉≈　。　

＾　

　ｔ

／　、　

／　

一　

＾　

／　

■■簪ｔ　魂　。Ｉ　｜…　０　ｉ一｜　■　一筝一’’葛醺　尊　，　

墨　隧翅　夔　曼　三童爰鬟要妻　蔓　－　童二量！　｜ｌ＿Ｉｌ　

裆渔蝴冀魏　潦　毒鹱蘸　鬃０　ｉ　√　０蛰霉０戆尊　誊ｌｌ＿０　

，　

ｌ　

｝　

ｌ　

　Ｉ

ｌ　

　：

、　

●　

一　

／　

辑　－－　－蠢　一一皤　一　博≯　　。。　

运行效果　

８６　＿毫二：　技１２圬与簟　ｊ　

ｐｏｉｎｔ）　

（　

１ｎｄｅｘ＝一１：　

ＣＶｉｅｗ：：ＯｎＲＢｕｔｔｏｎＵｐ（ｎＦｌａｇｓ　ｐｏｉｎｔ）：　

｝　

运行效果见左图所示：　

（作者：苏百兖）　

怎样用Ｄｅｌｐｈｉ７实现文件粉碎　

。　当用户删除文件时，其实操作系统并未将该文件从　

存储介质上真正删除，而仅仅是在文件分配表中将该文件的相　

关信息删除，并将该文件的存储空间标记为可写，所以被删除　

的文件通常可以用一些文件恢复：Ｉ：具进行恢复。因此，涉密的　

文件必须彻底删除，否则很容易泄密。能够将用户指定的文件　

不可恢复地彻底删除的工具已经出现，比如“瑞星”开发的文　

件粉碎机和“金山”反间谍２０ｏ７——文件粉碎器。但是，从　

安全保密的角度来说，信别人不如信自己。基１二这种想法，笔　

者分析了彻底删除文件的基本原理，在此基础上用Ｄｅｌｐｈｉ７实　

现了文件粉碎。下面阐述其设计思路、关键程序技巧。　

１　设计思路　

设计文件粉碎软件至少要考虑两个必须的功能，一是粉碎　

文件、真正删除文件的功能；二是实现用户能够很方便地操作　

调用“文件粉碎”程序的功能。因此，文件粉碎软件包括两个　

程序：一一个是实现文件粉碎的文件粉碎程序，一个是方便操作　

调用文件粉碎程序的对应注册程序。　

文件粉碎程序首先应实现文件的内容擦除，即用无意义的　

字符填充并且改写整个文件；然后删除该文件，即使用　

ＥａｓｙＲｅｅｏｖｅｒｙ等软件恢复，也只能恢复到最新的状态，实际　【：　

恢复的文件无任何意义，从而达到ｒ彻底删除文件的目的。　

在Ｗｉｎｄｏｗｓ　ＸＰ操作系统中，习惯按鼠标右键米操作文　

件。因此，在彻底删除文件的文件粉碎程序实现后，考虑到使　

用的便捷还需要将它注册到系统的有键中，用户　需在文件　：　

单击右键，就可以选择“文件粉碎”来彻底删除重要文件了。　

２．程序实现　

文件粉碎程序技巧包括：技巧一，，ｆｊ无意义的字符（比如　

本文采用的单个的字符‘Ｙ’）填充并改写整个文件，使得要　

删除的文件在删除之前已被无意义的字符填满（比如　为　

‘Ｙ’）。然后再删除该文件，就ｎｒ以达到彻底删除文什的目　

的。技巧二，计ｊ　Ｒｅｓｅｔ（ＵｎＴｙｐｅｄＦｉｌｅ，１）将记录大小指定为・个　

字：　，　会出现读　文件的术尾处趟｝｛ｌ文件范　的情况技巧　

维普资讯

ＱＵＥＳＴＩＯＮ＆ＡＮＳＷ硼　

三，用ＰａｒａｍＳｔｒ（１）返回第２个命令行参数，使得本程序的调　

用支持命令行参数，方便了操作。实现的核心代码如下：　

ｐｒｏｇｒａｍ　Ｐｒｏｊｅｃｔ１：／／编译后生成Ｐｒｏｊｅｃｔ１．ｅｘｅ　

ｕｓｅｓ　

Ｆ０ｒｍｓ，ＳｙｓＵｔｉｌｓ：　

｛ＳＲ　，ｒｅｓ）　

Ｖａｒ　

｛ｉＦｉｌｅＨａｎｄｌｅ：Ｉｎｔｅｇｅｒ；　

ｉＦｉｌｅＬｅｎｇｔｈ：Ｉｎｔｅｇｅｒ；　

Ｂｕｆｆｅｒ：ＰＣｈａｒ；　

ＵｎＴｙｐｅｄＦｉｌｅ：Ｆｉｌｅ；　

ｂｕｆｆｅｒ：ａｒｒａｙ【０．．１　２８】ｏｆ　ｂｙｔｅ　

ＮｕｍＲｅｃＷｒｉｔｔｅｎ：ｉｎｔｅｇｅｒ；　

ｂｅｇｉｎ　

Ａｐｐｌｉｃａｔｉｏｎ．Ｉｎｉｔｉａｌｉｚｅ；　

Ｔｒｙ／／没有窗体的项目，所以主要代码放在项目文件这里　

ＡｓｓｉｇｎＦｉｌｅ｛ＵｎＴｙｐｅｄＦｉｌｅ．ＰａｒａｍＳｔｒ｛１））：　

／／Ｐａ　ｒａｍＳｔｒ｛１）返回第２个命令行参数　

Ｒｅｓｅｔ｛ＵｎＴｙｐｅｄＦｉｌｅ，１）：／／将记录大小指定为～个字节，　

／／不会出现读至文件的末尾处超出文件范围的情况　

ｗｈｉｌｅ　ｎｏｔｅｏｆ｛ＵｎＴｙｐｅｄＦｉｌｅ）ｄｏ　

ｂｅｇｉｎ　

ＦｉｌｌＣｈａｒ｛Ｂｕｆｆｅｒ，Ｓｉｚｅｏｆ｛Ｂｕｆｆｅｒ），’Ｙ　）：　

／／用’Ｙ　填充整个文件．当然换成其他字符也可　

ＢｌｏｃｋＷｒｉｔｅ｛ＵｎＴｙｐｅｄＦｉｌｅ，Ｂｕｆｆｅｒ，１，ＮｕｍＲｅｃＷｒｉｔｔｅｎ）：　

ｅｎｄ；　

ｆｉｎａｌｌｙ　

ＣｌｏｓｅＦｉｌｅ｛ＵｎＴｙｐｅｄＦｉｌｅ）　

ｅｎｄ；　

Ａｐｐｌｉｃａｔｉｏｎ　Ｒｕｎ；　

Ｄｅｌｅｔｅｆｉｌｅ｛ＰａｒａｍＳｔｒ｛１））：　／／删除磁盘文件！　

ｅｎｄ　

３．注册到右键荣　

将文件粉碎主程序注册到右键菜单的程序主要技巧是：用　

ｗｒｉｔｅｓｔｒｉｎｇ将上Ｅ确的设置值写入打开的主键，ｃｏｍｍａｎｄ子键的　

内容是　右键后选择相应项后要运行的程序，％ｌ是在单击　

右键时选ｔＩＪｌ的文什名，还要切记在ｉｎｔｅｒｆａｃｅ的ＵＳＥＳ叶ｌ加入　

ｒｅｇｉｓｔｒｙ　，否则编译时无法识别ＴＲｅｇｉｓｔｒｙ。具休程序及关键　

注释如Ｆ：　

ｕｎｉｔ　Ｕｎｉｔ１　／／注册程序窗体的对应单元文件　

ｉｎｔｅｒｆａｃｅ　

ｕｓｅＳ　

Ｗｉｎｄｏｗｓ，Ｍｅｓｓａｇｅｓ，ＳｙｓＵｔｉｌｓ，Ｖａｒｉａｎｔｓ．Ｃｌａｓｓｅｓ，Ｇｒａｐｈｉｃｓ．　

Ｃｏｎｔｒｏｌｓ，ＦＯｒｍｓ，　

Ｄｉａｌｏｇｓ，ＳｔｄＣｔｒｌｓ，Ｇｒｉｄｓ，ｒｅｇｉｓｔｒｙ；／／ＴＲｅｇｉｓｔｒｙ　

ｔｙｐｅ　

ＴＦｏｒｍ１＝ｃｌａｓｓ｛ＴＦｏｒｍ）　

Ｂｕｔｔｏｎ２：ＴＢｕｔｔｏｎ；　

ｐｒｏｃｅｄｕｒｅ　Ｂｕｔｔｏｎ２Ｃｌｉｃｋ｛Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）：　

ｐｒｉｖａｔｅ　

｛Ｐｒｉｖａｔｅ　ｄｅｃｌａｒａｔｉｏｎｓ）　

ｐｕｂｌｉｃ　

ｆ　Ｐｕｂｌｉｃ　ｄｅｃｌａｒａｔｉｏｎｓ｝　

ｅｎｄ：　

Ｖａｒ　

Ｆ０ｒｍ１：ＴＦ０ｒｍ１：　

ｉｍｐｌｅｍｅｎｔａｔｉｏｎ　

｛ＳＲ　．ｄｆｍ｝　

ｐｒｏｃｅｄｕｒｅ　ＴＦ０ｒｍ　１　Ｂｕｔｔ０ｎ２Ｃｌｉｃｋ｛Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）：　

Ｖａ　ｒ　

ａ：ＴＲｅｇｉｓｔｒｙ；　

ｂｅｇｉｎ　

ａ：＝ＴＲｅｇｉｓｔｒｙ．ｃｒｅａｔｅ；　

ａ．ｒｏｏｔｋｅｙ：＝ＨＫＥＹ一！＝ＬＡＳＳＥＳ　ＲＯＯＴ；　

／／用ｏｐｅｎｋｅｙ打开一个主键，如果此主键不存在则自动创建　

ｉｆａ　ｏｐｅｎｋｅｙ｛　＼ｓｈｅｌｌ＼ｃｕｔｂｉｇ　，ｔｒｕｅ）ｔｈｅｎ　

ｂｅｇｉｎ　

ａ．ｗｒｉｔｅｓｔｒｉｎｇ｛～，　文件粉碎｛＆ｋ）　）：　

／／用ｗｒｉｔｅｓｔｒｉｎｇ将设置值写入打开的主键　

ａ．ｃｌｏｓｅｋｅｙ；　

ｅｎｄ；　

ｉｆａ　ｏｐｅｎｋｅｙ｛　＼ｓｈｅｌｌ＼ｃｕｔｂｉｇ＼ｃｏｍｍａｎｄ　．ｔｒｕｅ）ｔｈｅｎ　

ｂｅｇｉｎ　

／／ｃｏｍｍａｎｄ子键的内容是点击右键后选择相应项后要　

／／运行的程序　

／／％１是在单击右键时选中的文件名　

ａ．ｗｒｉｔｅｓｔｒｉｎｇ｛～，　．．．＼Ｐｒｏｊｅｃｔ１．ｅｘｅ　＋　％１　）：　

／／．．．处为主程序Ｐ　ｒＯｊｅｃｔ１．ｅｘｅ所在目录　

ａ．ｃｌｏｓｅｋｅｙ；　

ｅｎｄ；　

ａ．ｆｒｅｅ；　

ｅｎｄ；　

ｅｎｄ　

注册程序运行界面如下图所示，单击安装注册后即完成文　

件粉碎主程序的注册。在资源管理器中对文件操作，按鼠标右　

键，菜单项增加了一项“文件粉碎”，用户就可以用来彻底删　

除重要文件了。　

曩‘—　难　置　量　誓西口■：Ｉ■■■＿■　ｃ疆■■　＿＿　

爱装　Ｉ　

ｉ　

注册程序实现将文件粉碎主程序注册到右键菜单　

（作者：张浩廖国富）　

嘲囊　美８７　

本文标签： 文件粉碎程序删除注册