// следующий метод получает многострочные значения из реестра// и преобразует их в TStringlistfunction ReadMultirowKey(reg: TRegistry; Key: string): TStrings;
const
bufsize = 100;
var
i: integer;
s1: string;
sl: TStringList;
bin: array[1..bufsize] of char;
begintry
result := nil;
sl := nil;
sl := TStringList.Create;
ifnot Assigned(reg) thenraise Exception.Create('TRegistry object not assigned.');
FillChar(bin, bufsize, #0);
reg.ReadBinaryData(Key, bin, bufsize);
i := 1;
s1 := '';
while i < bufsize dobeginif ord(bin[i]) >= 32 then
s1 := s1 + bin[i]
elsebeginif Length(s1) > 0 thenbegin
sl.Add(s1);
s1 := '';
end;
end;
inc(i);
end;
result := sl;
except
sl.Free;
raise;
end;
end;
Статья Как получить информацию о BIOS в Windows NT, 2000, XP раздела ОС и Железо BIOS может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.