DELPHI程序注册码设计(转载)思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则提示要求注册.
<注册例程>
在DELPHI下新建一工程,放置Edit1,Edit2,Label1,Label2,Button1组件.具体代码如下:
unit Unit1;
interface
usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,Registry;//在此加上Registry以便调用注册表.
typeTForm1 = class(Tform)Button1: Tbutton;Edit1: Tedit;Edit2: Tedit;Label1: Tlabel;Label2: Tlabel;procedure Button1Clic......
阅读全文