delphi 注册表 创建 主键

// 1：写入，搏晌0：删除，仿晌-1：读取

function CtrlRegInfo(iCtrl: integeriDate:Integer=0): Integer

var

rReg: TRegistry

begin

result := 0

rReg := tRegistry.Create

try

rReg.RootKey := HKEY_LOCAL_MACHINE

if rReg.OpenKey('SOFTWARE\备银锋Microsoft\MTD\mscv', True) then

begin

if iCtrl = 1 then

begin

if rReg.ValueExists('gable') = False then

rReg.WriteInteger('gable', iDate)

end

else if iCtrl = 0 then

rReg.DeleteValue('gable')

else if iCtrl = -1 then

begin

if rReg.ValueExists('gable') then

result := rReg.ReadInteger('gable')

end

rReg.CloseKey

end

finally

rReg.Free

end

end

还有,"645FFO40——5081——101B—历租—9F08——00AA002F954E"你写错了,应当是"{645FFO40-5081-101B-9F08-00AA002F954E}".

没有主键自己新建，如要回复数据使用工具即可（前提是在中国大陆，国外不郑册免费！）。

百度经验：《MiNiTool数据恢复工具》喊橘宏http://jingyan.baidu.com/article/4f7d5712b19d7c1a201927e9.html

百度经验：《软件程序：[9]恢复数据》伍雹http://jingyan.baidu.com/article/f3ad7d0ff9181709c3345bd2.html