如何实现DELPHI对注册表读写操作

[山东蓝鸟贵薪]

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion]
"GUID_ZGXS"="80ZHOUGUIXIN668877990*"
-----------------------------------------------------------------------------------
以上信息,保存到1.reg中,双击后就可以导入到[注册表]中,建立好信息
如何用DELPHI实现这个功能

[supermain2002]

首先要使用一下单元
uses Registry;

{注册函数,只是注册字符串类型,如果注册其它类型你可以改Value的类型}
function RegExample(ARootKey:HKEY;AKey:string;AName:String;Value:String):Boolean;
var
AReg:TRegistry;
begin
Result:= False;
AReg:= TRegistry.Create;
AReg.RootKey:= ARootKey;
Try
if AReg.OpenKey(AKey,false) then
begin
AReg.WriteString(AName,Value);
Result:= True;
end;
AReg.Free;
except
Result:= False;
AReg.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
AResult:Boolean;
begin
AResult:= RegExample(HKEY_LOCAL_MACHINE,'\SOFTWARE\Microsoft\Windows\CurrentVersion','GUID_ZGXS','80ZHOUGUIXIN668877990*');
if AResult then
ShowMessage('测试注册成功');
end;

[panrongzeng]

写一个例子给你
var
regs:TRegistry;
str:string;
username:string;
begin
username:=Trim(getideserialnumber())+GetHostName;
regs:=TRegistry.Create;
regs.RootKey := HKEY_CURRENT_USER;
if (not regs.OpenKey('Software\nowtimes',False)) then
begin
regs.CreateKey ('Software\nowtimes');
if regs.OpenKey('Software\nowtimes',False) then
regs.WriteString('nowt','');
end else
str:=regs.ReadString('nowt');
regs.CloseKey;
regs.Destroy;
end;

[山东蓝鸟贵薪]

我试试如何,谢谢回贴dddddddddddddddddddddddddd

[panrongzeng]

原來是0分帖呢，我還是沙發回復幫他解決困難呢，唉

[山东蓝鸟贵薪]

谢谢高手们,我测试后一切好用:
在此基础上,我也完成了如下功能:
添加、删除、修改、更新
　　对相应的键名、键项都正常处理

[lezerger]

揭贴率：52.63%

0分帖


LZ请尊重他人

[山东蓝鸟贵薪]

[Quote=引用 6 楼 kenshinggg 的回复:]
原來是0分帖呢，我還是沙發回復幫他解決困難呢，唉
[/Quote]
感谢你的辛苦回帖子,请帮看一下其它的100分的帖子