[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 и все...??
в чем проблема то??

[poli-smen]

Сообщение от Electronic_Arts

Код:

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

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

Видимо проблема в том, что в Delphi XE5 каждый символ строки занимает 2 байта, а размер буфера ты вычисляешь в символах, т.е. в 2 раза меньше необходимого.

[Electronic_Arts]

Сообщение от poli-smen

Видимо проблема в том, что в Delphi XE5 каждый символ строки занимает 2 байта, а размер буфера ты вычисляешь в символах, т.е. в 2 раза меньше необходимого.

Yahoooo как я не догадался ведь пробелы же это один байт а символы по 2

Решено!

Код:

var

  Buffer: Pointer;
  BufSize: word;
  i, j, k: Integer;
  s: string;
  p: PChar;
begin
{подготовим буфер к записи}
  BufSize := 0;
  for i := 0 to list.Count -1 do
    inc(BufSize, Length(list[i]) * 2);
  inc(BufSize);
  GetMem(Buffer, BufSize);
...
..
..

и один лишний пробел добавляем сюда

Код:

s1.Add('d:\pagefile.sys 0 0 ');

и все

[angvelem]

Решено, да неправильно.

Код:

inc(BufSize, Length(list[i]) * SizeOf(Char));