Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];
ВнизТип переменной Найти похожие ветки
← →
Yuri Btr (2002-01-02 14:04) [2]Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
reg:Tregistry;
begin
reg:=Tregistry.create;
reg.RootKey:=HKEY_LOCAL_MACHINE;//Задаёшь папку-ключ
try
if reg.OpenKey("SOFTWARE\Microsoft\Windows\CurrentVersion",true) then //Адрес ключа, где находятся данные о BIOS
begin
Edit1.text:=reg.readstring ("ProductId");//И значение считываемых данных
reg.closekey;
end;
finally
reg.free;
end
Естественно адрес данных о BIOS в реестре найди сам...:)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c