引言： 文/宋爽
本例中TRegistry是关键类，Delphi 4.0不能自行加入，需在uses部分手工加入“registry”，通过其方法“ReadString”和“WriteString”来读出和写入字符，亦可通过其方法“ReadDate”和“WriteDate”来读出和写入日期。
摘要：在delphi中，定位文件的操作主要有两种方法。一种是直接定位文件，即通过“打开”对话框（opendialog）控件来实现。另一种是只定位到文件夹，然后再在此文件夹内寻找文件，这种定位方法是利用delphi提供的selectdirectory函数。这个函数是在filectrl单元中定义的，因此在使用时不要忘记在uses中加入单元名。
下面就以一个例子来说明这两种方法在delphi中的具体实......
摘要：一、问题的提出
winzip是电脑使用过程中，备份和数据交换的常用工具之一。然而，在实际使用过程中，笔者发现winzip在用来进行数据交换操作时有一些不尽人意的地方， 如：
1. 当将一个大的压缩包分卷压缩到软盘上时，操作者手头必须有多张软盘才能完成数据包的转存，这种情况如果发生在手头只有一张软盘的情况下，可真的没办法。
2. 如果分卷存储数据软盘中的某张软盘在写入或读出数据时发生错误，则上......
Delphi程序的时限和加密方法文/宋爽
【程序编程相关:
如何使dbgrid中不同的值显示不同颜色】 【推荐阅读:
读取IE收藏夹内网址的信息】
本例中tregistry是关键类,delphi 4.0不能自行加入,需在uses部分手工加入“registry”,通过其方法“readstring”与“writestring”来读出与写入字符,亦可通过其方法“readdate”与“writedate”来读出与写入日期. 【扩展信息:
Delphi编程中的“流”】
程序第一次运行就写入其运行时间,应用期限为30天,超过30天就不再运行.全局变量noregistry.sparedays来分别判断是否注册与剩余期限,自定义函数encrypt为用户名到
密码的变换函数.
一.程序启动时,通过搜索注册表,判断是否第一次运行与是否注册,来确定程序是否运行.
procedure tform1.formcreate(sender: tobject);
var
reg:tregistry;
keyname,tempcode,tempname,tempstr:string;
same:integer;
firstdate,nowdate:tdatetime;
numberofdays:real;
begin
noregistry:=true;
nowdate:=date; //取得运行时系统日期
try
//创建注册表,有该键则读取,无则创建
reg:=tregistry.create ;
reg.rootkey :=hkey_local_machine;
keyname:=softwarejsjbxample;
if reg.openkey(keyname,true) then
begin
tempname:=reg.readstring(usrname);
tempcode:=reg.readstring(passwd); ...
下一页 摘要：borland公司推出的 rad开发工具 delphi 5.0作为 windows平台上的主流开发工具，其可视化的开发环境和面向对象编程的强大功能已经吸引了无数的开发人员。但是，一些程序员在实际的开发过程中却时常为对大量的数据进行压缩而伤透脑筋，不得不去查找一些高效的压缩算法或在网上查找第三方的控件来实现压缩。难道 delphi本身没有提供这个功能吗？其实 delphi的程序设计师早就考虑到了这一......
