Как прочитать из реестра параметр типа ;REG_MULTI_SZ [D6, NT4, Win2k, WinXP]
OlegM © (2003-02-27 07:55:00)
Здрассте
Пытаю прочитать в переменную типа string, а delphi ошибку
выдает типа invalid data type
Verg (2003-02-27 08:02:00) [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;
Наверх 
ЧАТ |
Орешник |
|
