判断程序使用次数delphi如何写？(100)

判断程序使用次数delphi如何写？每登陆一次，减少一次！如100次，登陆一次，减去1最好是，注册表，读写方式！

既然知道用注册表，为什么不自己写一个？

这么简单也不知道？也可以写文件啊，ini文件dat文件txt文件什么都可以啊。

自己动手哦, 这么简单的代码就不需要问啦, 注册表最方便

写试用版的?这样写出去绝对1天不到就直接成免费正版了.

限制高级功能是正道次数修改,本机不好,容易破解.最好网络验证次数.而且次数加密

自己写个简单的加/解密算法，把执行次数进行加密后写到exe执行文件的文件尾每次执行的时候判断这个数并且减1再加密写进去检测超过执行次数就直接关闭程序

既然你都说了注册表了，自己操作好了，DELPHI操作注册表的类是TRegistry类，引用单元是Registry但是注册表控制基本上没什么用。。。好点的办法是写到自身里，PE文件有个节对齐的规定，有了这个规定的话，那么PE文件就有空的位置给你去OOXX了。。

写到硬盘的头部，这样，即使它重装了软件，还是不行，如果写的位置好，那即使格式化了硬盘，还是不行的，除非重分区。

来自：hs-kill, 时间：2009-12-9 12:00:14, ID：3983387自己写个简单的加/解密算法，把执行次数进行加密后写到exe执行文件的文件尾每次执行的时候判断这个数并且减1再加密写进去检测超过执行次数就直接关闭程序 =========这个方法，如果用户重新解压软件呢？

写试用版的?这样写出去绝对1天不到就直接成免费正版了.可以这样，如果是带数据库的，那么写入库里，如果别人破不了库，就破不了，如果连库也破了，那就让人家盗吧！

转载lbl20020123 (2002-03-29 21:14:00) 较高级的一种做法是把信息写到可执行程序中去，有兴趣的朋友可以讨论一下。 完颜康 (2002-03-29 21:20:00) 写注册表也可以改的。我觉得不好有个asprotect12 很不错，可以给你的程序加衣服，县时（次）都很方便，包一下就好要要发给你 苟延残喘 (2002-03-29 21:25:00) 完哥，谢谢，谢谢，期待 whitehorse (2002-03-29 21:33:00) 写到.exe里比较困难,写到ini文件中:uses中包含inifiles单元Before you run this example, you must add the IniFiles unit to the uses clause of your unit.Warning: Do not click button2 before you have clicked button1!procedure TForm1.Button1Click(Sender: TObject);var MyIniFile: TIniFile; begin MyIniFile := TIniFile.Create('myapp.ini'); Memo1.Clear; MyIniFile.ReadSectionValues('Transfer', Memo1.Lines); if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter'); MyIniFile.Free;end;procedure TForm1.Button2Click(Sender: TObject);var MyIniFile: TIniFile; begin MyIniFile := TIniFile.Create('myapp.ini'); { if the entry wasn抰 there before, delete it now } if Memo1.Lines.Values['Title1'] = '' then MyIniFile.DeleteKey('Transfer', 'Title1') { otherwise, restore the old value } else MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']); MyIniFile.Free;end;