本文介绍了在Delphi中利用系统函数和Windows API函数配合Delphi中的DataTimePicker组件来获取和修改文件的时间信息的方法，以达到软件信息的简单加密。

　　谈到文件加密已经有很多方法了，但传统的文件型加密方法都存在一些不足。例如：让人头痛的密码技术、复杂的全文加/解密算法、会产生垃圾文件的暗贴技术等等。这里我向大家介绍一种新的文件加密思路。在Win 95/98中选定一个文件后单激鼠标右键可以查看文件的属性。其中会列出该文件的创建时间、修改时间和访问时间。这些信息的设置一般都是由操作系统（也就是由Dos/Windows等等）自动完成的，不会让用户轻易修改。利用这一特性就可以实现很隐蔽的加密技术。

　　加密原理：用特定的时间信息替换原来的文件时间信息。

　　解密原理：获取已加密文件的时间信息与特定时间信息比较，如相同则说明该文件是合法的，如不同则说明该文件属于过期或盗版软件。

　　以上简单介绍了文件时间属性的修改方法，利用这种方法可以起到简单的软件加密。例如：假设某个软件或游戏执行完后存储了一些存档文件，则操作系统会自动设置该文件的修改时间，那么稍有经验的用户就可以用Windows中的“查找文件”功能找到最后被修改的文件。如果该文件是记录密码或用户信息的文件（实际上很多情况都是这样），后果简直不堪设想。另外，如果适当设置文件的创建、修改时间和访问时间，例如：保持三者之间为一定的时间间隔就可以作为加密的一种好手段。运行主软件时只要动态的检测一下文件时间是否满足特定的要求就知道该软件是否过期或属于盗版软件，从而达到加密和保护软件的目的，并且不会产生垃圾文件。

　　以下介绍具体实现方法：

　　利用Delphi中的FindFirst函数可以得到一个文件的属性记录，该记录中的FindData域中就记载了详细的文件时间信息。FindData中的时间信息不能直接得到利用本文源程序中的CovFileDate函数可以完成文件时间格式的转换。设置文件的时间要复杂一些，利用Delphi中的DataTimePicker组件来辅助完成这一复杂的操作。可以利用四个DataTimePicker组件来完成文件创建时间和修改时间的设置。注意：文件的访问时间用修改时间来代替。使用下面的例子时，请在您的Form上添加四个DataTimePicker组件。其中第一和第三个DataTimePicker组件中的Kind设置为dtkDate，第二个和第四个DataTimePicker组件中的Kind设置为dtkTime，DateMode设置为dmUpDown。

　　备注：修改文件时间的范围是从公元1792年9月19日开始的，上限可以达到公元2999年或更高。另外，请不要将此技术用于破坏他人文件等非正当途径。