注册程序的保护功能!!!!(50分)(50分)

S

suyude

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #1

我做了个软件,想实现不是注册用户就没有部分的程序保护功能!
现在我想到了一个方法,但是不知道怎么实现!!
1.当程序打开的时候,将读取程序所在目录的一个文件,例如reg.dat的文件,当没读取到这
文件的时候程序为未注册,当读取到reg.dat文件以后程序为注册!
2.rag.dat的文件里面包含有一些相关的用户信息!

好了,看看哪位大侠能帮我这个穷小弟了!!

 

S

superbirdman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #2

不知你说的是在注册表中注册还是线上向你注册程序使用许可!

 

J

jacaboos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #3

这不就是一个二进制的ini文件吗。

 

J

j_shen2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #4

你这种方式不就是INI文件的变形吗？这种注册实在太容易被人弄破了。
最起码你也得在注册表里修改呀，虽然对于高手来说一样没用，但至少比INI文件难搞点。
对了，我想起了一件事，据说WINDOW2000 SERVER版不断向外发注册编码，有没有这回事？

 

S

suyude

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #5

我想研究研究~~
请大侠把代码帖出让我看看!

我的意思是,那程序不是在程序中自动生成的,那个reg.dat的文件必须由我制作然后发给用户
这样才能注册成功!!

 

J

j_shen2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #6

procedure TForm1.FormCreate(Sender: TObject);
var A_file:tinifile;appdir:string;
begin
appdir:=extractfiledir(application.ExeName);
if appdir[length(appdir)]<>'/' then appdir:=appdir+'/';
A_file:=tinifile.Create(appdir+'xxxxreg.ini');
try if A_file.Readstring('reg','isreg','F')='F' then begin
messagedlg('***，你没注册',mtinformation,[mbok],0);application.Terminate;
end;
finally A_file.Free;end;
end;

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #7

接受答案了.