
支持d2010,EM论坛里找的,代码如下:
procedure WriteMultiStrings(const valueName: string; aStrings: TStrings;oReg: TRegistry);
var
i: integer;
size: DWORD;
st: string;
begin
st :='';
for i :=0to aStrings.Count -1do
st := st + aStrings[i] + #0;
st := st + #0;
size := Length(st) * SizeOf(Char);
SetLastError(RegSetValueEx(oReg.CurrentKey, PChar(valueName), 0,REG_MULTI_SZ, @st[1], size));
if GetLastError <> ERROR_SUCCESS then
raise Exception.Create('Unable to write MULTI_SZ value');
end;