傲月游居 发表于 2006-10-3 02:26:18

用delphi编写注册表写入注册

软件名称:QQ消息离线查看
大小:1787
下载地址:自己搜索吧~

其实这个软件就是把真码和假码都放入注册表进行比较.好久没上论坛了,飘大哥抱歉,最近做生意太忙.
下面是我随手写写的,也不能说是一个注册机.有失俺菜菜的尊颜.呵呵.
代码如下:
procedure TForm1.FormCreate(Sender: TObject);
var
    ARegistry:TRegistry;
begin
    ARegistry:=TRegistry.Create;//创建一个TRegistry对象
    with ARegistry do
begin
    RootKey:=HKEY_LOCAL_MACHINE;//指定根键
IF openkey('\Software\QQLOG',true) then//打开主键
    writestring('Param3','7328230327326728300');//创建一个'Param3'项,写入数据
    ARegistry.CloseKey;//关键主键
    ARegistry.Free; //释放内存
end;
end;
//在uses单元里添加Registry,才能使程序访问注册表.

其实呢.就是差不多注册表写操作.写得不好,请各位多多指出~
程序就不贴上来了~

haiyun 发表于 2006-10-4 21:34:46

学习了，感谢！

jjwspj 发表于 2006-10-5 19:23:40

顶起来，让象俺这样的莱鸟都看看

caterpilla 发表于 2006-10-6 10:16:00

呵呵，支持一下。。。。。。。

魔幻水晶 发表于 2007-11-21 23:37:01

/:017 直接用regedit加

jting8210 发表于 2007-11-24 00:12:30

顶起来，让象俺这样的莱鸟都看看

520xiaohui 发表于 2009-11-4 09:59:31

学习了 ！！！

cnfbin 发表于 2011-3-29 19:47:59

菜菜学习了``
谢了`
页: [1]
查看完整版本: 用delphi编写注册表写入注册