Как записать многострочный текст в реестр

[SeRhy]

Здравстуйте.
Подскажите пожалуйста как записать многосторчный текст в реестр, а точнее текст + переход на новую строку.
Зарание спасибо.

[Stilet]

Хм...
Я бы этот текст закатал в строку, в которой все символы переноса строки позаменял на другие разделители. Это мне кажется проще будет решить.

[TwiX]

Гугл помог

{$R-,T-,H+,X+}

interface

uses Registry, Classes, Windows, Consts, SysUtils;


implementation

procedure 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 ERegistryException.CreateResFmt(@SR egSetDataFailed, [name]);
end;

[SeRhy]

Все зделал но пявляется ощибка "SR - переменная не зарегестрирована"
Менял на SRegSetDataFailed но кричит что незарегистрирована переменная SRegSetDataFailed

[TwiX]

Эта строчка тупо возбуждает Exception.
Можно заменить на

raise Exception.Create('Writing to registry failed');

[spamer]

SeRhy, вам TwiX код то привел, но вот плохо что не полный(он то вроде и полный, но...упущено то, что это было все в модуле). Так вот, точнее теперь смотри вот тут ==> Ссылка
запихиваешь все в модуль (можно и без модуля переделать, то уже смотри сам) и в Uses добавь еще модуль RTLConsts. Сделай так, и все будет работать.

[TwiX]

ТС просил только как записать многострочный текст в реест - я и привел)
А про то, что там класс был унаследован от TRegistry - не знаметил)
Значит @SRegSetDataFailed - в приватной секции была)

[Altera]

А может будешь каждую строчку как отдельный параметр писать? А ещё в отдельном параметре кол-во строк.

strsCount=3
str0="ТС просил только как записать многострочный текст в реест - я и привел)"
str1="А про то, что там класс был унаследован от TRegistry - не знаметил)"
str2="Значит @SRegSetDataFailed - в приватной секции была)"

[TwiX]

str0="Шутка не удалась"

2. Там было три разных по смыслу предложения - следовательно что? Они должны быть раделены абзацами

[Altera]

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

str0="Шутка не удалась"

2. Там было три разных по смыслу предложения - следовательно что? Они должны быть раделены абзацами

Какая разница. Ты ведь понял что я имел ввиду. А это как раз был многострочный текст.