DB
Size: a a a
DB
VA
DB
DB
GB
T
DB
T
GB
T
AK
DB
VA
T
Дt
procedure TRegistry.GetValueNames(Strings: TStrings);
var
Len: DWORD;
I: Integer;
Info: TRegKeyInfo;
S: string;
begin
Strings.Clear; // опаньки! Там же передан непроинициализированный Result
result:= TStringList.Create;
Reg.GetValueNames(result);
так
норм?AK
АР
I
GB
GB