怎样读写REG_MULTI_SZ类型的注册表项目？急啊！(50分)

怎样读写REG_MULTI_SZ类型的注册表项目？急啊！

TRegistry是不行的。
直接用RegQueryValueEx

老兄给我个Demo!谢谢！

RegInfo := tRegistry.Create;
try
RegInfo.RootKey := HKEY_LOCAL_MACHINE;

if RegInfpenKey('SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/', False) then
begin
WriteString := 'abc' + #0#0;
WriteError := RegSetValueEx(RegInfo.CurrentKey, PChar('HEX1500'), 0, REG_MULTI_SZ, @WriteString[1], Length(WriteString));
if WriteError <> ERROR_SUCCESS then
begin
ErrorString := ErrorString + '信息修改出错1！'；
end;
end;
finally
reginfo.Free;
end;

这是写REG_MULTI_SZ类型数据的方法。

接受答案了.