BIOS

Как получить дату BIOS?

2017-09-30T00:14:32+07:00

Code:

unit BiosDate;

interface

function GetBiosDate: String;

implementation

function SegOfsToLinear(Segment, Offset: Word): Integer;

begin

result := (Segment SHL 4) OR Offset;

end;

function GetBiosDate: String;

begin

result := String(PChar(Ptr(SegOfsToLinear($F000, $FFF5))));

end;

end.

Подробнее...

Как получить информацию о BIOS в Windows NT?

2017-09-30T00:20:08+07:00

В windows не получится прочитать значения прямо из BIOS, однако, ничего не мешает нам считать нужные значения из реестра.

Подробнее...

Как получить информацию о BIOS в Windows?

2017-09-30T00:16:31+07:00

Code:

with Memo1.Lines do

begin

Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));

Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));

Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));

Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));

end;

Как прочитать ROM-BIOS?

2017-09-30T00:27:33+07:00

An Example of this unit is availabe as Demo Download.

Подробнее...

Как узнать номер BIOS для разных версий Windows?

2017-09-30T00:12:48+07:00

Windows 9X

Code:

{©Drkb v.3}

with Memo1.Lines do

begin

Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));

Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));

Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));

Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));

end;

Подробнее...

Получить информацию о BIOSе

2017-09-30T00:24:42+07:00

Вот пример как можно даты БИОС материнской платы и видеокарты выдрать. То же самое можно с названием производителя и версией.

В WinNT приходится читать не из ПЗУ а из реестра но это достаточно надежно - соотв ключи WinNT закрывает на запись и обновляет при каждом старте (?).

Для Win9x можешь хоть весь БИОС напрямую читать.

Получить заводской номер винчестера (не тот что getvolumeinfo дает) ИМХО невозможно - порты IDE даже Win9x блокирует.

Подробнее...

Разбудить компьютер по сети, Использование Bios Wake-on-Lan

2017-09-30T00:22:05+07:00

Code:

{$APPTYPE CONSOLE}

uses

SysUtils,

Classes,

IdBaseComponent,

IdComponent,

IdUDPBase,

IdUDPClient;

function HexStringToBinString(const HexStr: string): string;

var

i, l: integer;

begin

Result := '';

l := length(HexStr);

l := l div 2;

SetLength(Result, l);

for i := 1 to l do

if HexToBin(PChar(Copy(HexStr, (i - 1) * 2 + 1, 2)),

PChar(@Result[i]), 1) = 0 then

raise Exception.Create('Invalid hex value');

end;

procedure SendMagicPacket(MACAddress: string);

var

s, packet: string;

i: integer;

begin

if Length(MACAddress) <> 12 then

raise Exception.CreateFmt('Invalid MAC Address: %s', [MACAddress]);

packet := HexStringToBinString('FFFFFFFFFFFF');

s := HexStringToBinString(MACAddress);

for i := 1 to 16 do

packet := packet + s;

with TIdUDPClient.Create(nil) do

try

Active := true;

BroadcastEnabled := true;

Broadcast(packet, 9);

finally

Free;

end;

begin

if ParamCount <> 1 then

WriteLn('usage: WakeOnLan MACAddress' + #10 + #13 + 'exmple: WakeOnLan 000102030405')

else

SendMagicPacket(ParamStr(1));

end.

Универсальные пароли к BIOS

2017-09-30T00:26:03+07:00

AWARD BIOS v2.50

AWARD_SW

j262

TTPTHA

01322222

KDD

ZBAAACA

aPAf

lkwpeter

t0ch88

t0ch20x

h6BB

j09F

TzqF

Подробнее...