Форум: "Система";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

Производитель, дата и версия BIOS   Найти похожие ветки 

← →
uip88   (2001-10-30 12:49) [18]

function WOWGetVDMPointerFix(vp,dwBytes:DWORD; ProtectedMode:BOOL):pointer;
stdcall; external "WOW32.DLL";

procedure WOWGetVDMPointerUnfix(vp:pointer); stdcall; external "WOW32.DLL";

Type
TBIOSVer = array[0..$32] of byte;

function GetBIOSInfo : string;
Var
BIOSVer : ^TBIOSVer;
VerStr : string;
i : integer;
begin
BIOSVer := WOWGetVDMPointerFix($FE650621, 0, Bool(0));
i:=0;
while Chr(BIOSVer[i]) <> #0 do
begin
VerStr := VerStr + Chr(BIOSVer[i]); // Версия - в VerStr
inc(i);
end;
WOWGetVDMPointerUnfix(BIOSVer);
Result:=VerStr;
// Result:=Form1.MSystemInfo1.Workstation.BIOSExtendedInfo;
Inf("GetBIOSInfo");
end;

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c