用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

学习了，感谢！

jjwspj

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

caterpilla

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

魔幻水晶

/:017 直接用regedit加

jting8210

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

520xiaohui

学习了 ！！！

cnfbin

菜菜学习了``
谢了`