Форум: "Система";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Вниз

Как прочитать из реестра параметр типа REG_MULTI_SZ   Найти похожие ветки 

← →
OlegM   (2003-02-27 07:55) [0]

Здрассте
Пытаю прочитать в переменную типа string, а delphi ошибку выдает типа invalid data type

---

← →
Verg   (2003-02-27 08:02) [1]

Что-то типа этого:

function TRegistry.ReadMultiString(const Name: string; Ms : TStrings):boolean;
var
Len: Integer;
RegData: TRegDataType;
Dt, P : pchar;
begin
Result:=false;
Len := GetDataSize(Name);
if Len > 0 then
begin
GetMem(Dt, Len);
try
GetData(Name, Dt, Len, RegData);
if RegData = rdMultiString then
begin
P:=Dt;
While P^<>#0 do
begin
Ms.Add(P);
while P^<>#0 do inc(P); inc(P);
end;
result:=true;
end else ReadError(Name);
finally
FreeMem(Dt, Len);
end;
end else begin Ms.Clear; result:=true; end;
end;


---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.338 c