Как получить информацию о BIOS в Windows 9x
|
- Обидится ли девушка, если ее назвать Bios-ом? - Наверное, нет! ...если уточнить, что Bios - это базовая система ввода-вывода. |
procedure TForm1.Button1Click(Sender: TObject);
begin
with Memo1.Lines do
begin
Add('MainBoardBiosName: '+string(Pchar(Ptr($FE061))));
Add('MainBoardBiosCopyRight: '+string(Pchar(Ptr($FE091))));
Add('MainBoardBiosDate: '+string(Pchar(Ptr($FFFF5))));
Add('MainBoardBiosSerialNo: '+string(Pchar(Ptr($FEC71))));
end;
end;
|