Считать значение REG_MULTI_SZ из реестра.

unit RegistryExt;
{$R-,T-,H+,X+}
 
// скачан с
// [url]http://www.delphisources.ru/pages/faq/base/ex_tregistry.html[/url]
 
// подправлен
// [email]alexpac26@yandex.ru[/email] май 2012
 
interface
 
uses Registry, Classes, Windows, Consts, SysUtils;
 
type
 
  TRegistry = class(Registry.TRegistry)
  public
    function ReadStringList(const name: string):TStringList;
    procedure WriteStringList(const name: string; list: TStringList);
  end;
 
implementation
 
//*** TReg *********************************************************************
//------------------------------------------------------------------------------
// Запись TStringList ввиде значения типа REG_MULTI_SZ в реестр
//------------------------------------------------------------------------------
 
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, PChar(name), 0, REG_MULTI_SZ, Buffer,
    BufSize) <> ERROR_SUCCESS then
    raise Exception.Create('Error RegistryExt Write Param '+name);
end;
//------------------------------------------------------------------------------
// Чтение TStringList ввиде значения типа REG_MULTI_SZ из реестра
//------------------------------------------------------------------------------
 
function TRegistry.ReadStringList(const name: string):TStringList;
var
 
  BufSize,
    DataType: DWORD;
  Len, i: Integer;
  Buffer: PChar;
  s: string;
begin
 
  result:=TStringList.Create;
 
  Len := GetDataSize(Name);
  if Len < 1 then
    Exit;
  Buffer := AllocMem(Len);
  if Buffer = nil then
    Exit;
  try
    DataType := REG_NONE;
    BufSize := Len;
    if RegQueryValueEx(CurrentKey, PChar(name), nil, @DataType, PByte(Buffer),
      @BufSize) <> ERROR_SUCCESS then
      //raise ERegistryException.CreateResFmt(@SRegGetDataFailed, [name]);
      raise Exception.Create('Error RegistryExt Get Data Failed on '+name);
    if DataType <> REG_MULTI_SZ then
      //raise ERegistryException.CreateResFmt(@SInvalidRegType, [name]);
      raise Exception.Create('Error RegistryExt Invalid RegType on '+name);
    {запись в TStringList}
    s := '';
    for i := 0 to BufSize - 2 do
    begin // BufSize-2 т.к. последние два нулевых символа
      if Buffer[i] = chr(0) then
      begin
        result.Add(s);
        s := '';
      end
      else
        s := s + Buffer[i];
    end;
  finally
    FreeMem(Buffer);
  end;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var r:TRegistry; s:TStringList;
begin
  r:=TRegistry.Create;
  r.RootKey:=HKEY_CURRENT_USER;
  r.OpenKeyReadOnly('Volatile Environment');
  r.OpenKeyReadOnly('1');
  s:=r.ReadStringList('hellowolrd'); // запись в S (TStringList) параметра REG_MULTI_SZ
  Memo1.Text:=s.Text; 
  s.free;
  r.Free;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var r:TRegistry; //s:TStringList;
begin
  r:=TRegistry.Create;
  r.RootKey:=HKEY_CURRENT_USER;
  r.OpenKeyReadOnly('Volatile Environment');
  r.OpenKeyReadOnly('1');
  // Запись в параметр реестр значение мемо поля
  r.WriteStringList('hellowolrd',TStringList(memo1.lines));
  r.Free;
end;