Следующий код, демонстрирует то, как можно получить информацию о BIOS в Win9x.
Результат выполнения события будет добавлен в свойство Lines объекта Memo.
procedure TForm1.Button1Click(Sender: TObject);
begin
with Memo1.Lines do
begin
Add(′BIOS Name: ′+string(Pchar(Ptr($FE061))));
Add(′BIOS CopyRight: ′+string(Pchar(Ptr($FE091))));
Add(′BIOS Date: ′+string(Pchar(Ptr($FFFF5))));
Add(′BIOS Serial: ′+string(Pchar(Ptr($FEC71))));
end;
end;
|
Следующий код, демонстрирует то, как можно получить информацию о BIOS в Winows NT, 2000, XP.
Данную операцию можно осуществить единственным способом: чтением информации из реестра.
procedure BIOSInfo;
var
Reg: TRegistry;
RegPath: string;
s: TStrings;
begin
Params.Clear;
RegPath := ′HARDWAREDESCRIPTIONSystem′;
reg := tregistry.Create;
reg.rootkey := HKEY_LOCAL_MACHINE;
s := nil;
try
reg.Openkey(RegPath, false);
ShowMessage(′BIOS Date: ′ + Reg.ReadString(′SystemBiosDate′));
s := ReadMultirowKey(Reg, ′SystemBiosVersion′);
ShowMessage(′BIOS Version: ′ + s.Text);
except
end;
Reg.Free;
if Assigned(s) then
s.Free;
end;
|
;