[Electronic_Arts]

Код:

procedure TRegistry.WriteStringList(const name: string; list: TStringList);
var
  Buffer: Pointer;
  BufSize: DWORD;
  i, j, k: Integer;
  s: string;
  p: PChar;
begin
  {подготовим буфер к записи}
  BufSize := 0;
  for i := 0 to list.Count - 1 do
    inc(BufSize, Length(list[i]) + 1);
  inc(BufSize);
  GetMem(Buffer, BufSize);
  k := 0;
  p := Buffer;
  for i := 0 to list.Count - 1 do
  begin
    s := list[i];
    for j := 0 to Length(s) - 1 do
    begin
      p[k] := s[j + 1];
      inc(k);
    end;
    p[k] := chr(0);
    inc(k);
  end;
  p[k] := chr(0);

  {запись в реестр}
  if RegSetValueEx(CurrentKey, PwideChar(name), 0, REG_MULTI_SZ, Buffer,
    BufSize) <> ERROR_SUCCESS then
    raise Exception.Create('Error RegistryExt Write Param '+name);
end;

Код:

s1 := TStringlist.Create;
s1.Add('d:\pagefile.sys 0 0');
try
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management', true) then
reg.WriteStringList('PagingFiles', s1);
finally
reg.CloseKey;
reg.Free;
end;

В результате ключ PagingFiles получает значение d:\pagef и все...??
в чем проблема то??