delphi注册表 *** 作

新建字符串值应该使用WriteString。temp.WriteString('键值名','值')在Tregistry类中更本没有CreateString这个函数.如果你需要我可以给你写一个，不过你先给我发一封E_mail先。

const

MainKey = '\Software\Microsoft\Windows\CurrentVersion\Run'

ValKey = 'test'

var

curRegVal , OKRegVal : string

Reg: TRegistry

begin

OKRegVal := ParamStr(0)

Reg:= TRegistry.Create

try

Reg.RootKey := HKEY_CURRENT_USER

if chbxAutoStart.Checked then

begin

if Reg.OpenKey(MainKey,True) then

begin

curRegVal := Reg.ReadString(ValKey)

if curRegVal <>OKRegVal then

Reg.WriteString(ValKey,'"' + OKRegVal + '"')

Reg.CloseKey

end

end

else

begin //删除现有的.

if Reg.OpenKey(MainKey,False) then

begin

reg.DeleteValue(ValKey)

Reg.CloseKey

end

end

finally

Reg.Free

end

end

---