unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var re_id:integer; registertemp:tregistry; inputstr,get_id:string; dy,clickdok:boolean; begin dy:=false;//软件是否注册的标志，FALSE的时候可以继续使用 registertemp:=tregistry.create;//准备使用注册表。 with regietertemp do begin rootkey:=hkey_local_machine;//存放在此根下 if openkey('software\microsoft\windows\currentversion\mark',true) then //建一目录，存放标志值，当然也可以存放在已经存在的目录下 begin if valueexist('gc_id') then //用GC-ID做标志值 begin re_id:=readinteger('gc_id');//读出标志值 if(re_id<>0)and(re_id<>100)then//为0则已经注册 begin re_id:=re_id+5;//100内每次加5，最多用20次 writeinteger('gc_id',re_id);//写入新数据 end; if re_id=100 then dy:=true;//到100，则应该注册。 end; else writeinteger('gc_id',5);//建立标志，并赋初值 end; if dy then//DY为TRUE，应该进行注册 begin clickdok:=inputquery('还没注册，请进行注册;','',inputstr); if clickdok then begin get_id:=inttostr(111*2);//注册码为222 if get_id=inputstr then begin writeinteger('gc_id',0);//注册码正确，置0，已经注册。 closekey; free; end; else begin//注册码错误，应该提示并拒绝使用软件 application.MessageBox('注册码错误！','系统提示',mb_ok); closekey; free; application.Terminate;//终止程序运行 end; end; else begin//若不注册，也可以关闭软件 application.MessageBox('请与作者联系，使用注册软件！','警告框',mb_ok); closekey; free; application.Terminate; end; end; end; end;

end. 谁能帮我改一下,然后再家个难点的算法,至于回报可以商量,请会的人一定要帮我,很急!

[此贴子已经被静夜思于2005-5-24 18:09:08编辑过]