用ReadString读不出来的。REG_MULTI_SZ是多重字符串
直接用RegQueryValueEx
For Example:
RegInfo := tRegistry.Create;
try
RegInfo.RootKey := HKEY_LOCAL_MACHINE;
if RegInf
penKey('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;