How get BIOS Info by Delphi(100分)

C

chen yao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #1

How get the mainboard and BIOS info by Delphi under Windows98
Windows NT?
Thanks.

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #2

include asm code

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #3

g

 

C

CaiFeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-05

• #4

asm
; mov ax,...
; mov bx,...
end;

 

C

chen yao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #5

Please tell me some details.

 

化

化石

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-12

• #6

在delphi加入汇编代码，可以解决你的问题。
下面是我的程序实现代码。(不过得到的是十六进制数据)
procedure Tform1.SpeedButton2Click(Sender: TObject);
var _buf: array[0..127] of byte;
; ; i:integer;
; ; _coms:string;
begin
memo1.Text:='COMS数据';
for i:=0 to 127 do
begin
outportb($70,i);
_buf:=inportb($71);
appendstr(_coms,inttohex(_buf,2));
appendstr(_coms,#32);
end;
memo1.Lines.Add(_coms);
end;

 

钟

钟华

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-22

• #7

; 可以通过此方法得到主板上的BIOS信息，如主板名、生产日期、主板序列号等。
所给的这条语句可以获取BIOS日期。
; ; fMainBoardBiosDate := String(Pchar(Ptr($FFFF5)));
; ;请问那位大虾知道BIOS上主板名、主板序列号等地址，知道的就告诉一下。

 

F

FreeFly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-22

• #8

我在深度历险上看到的，自己去down吧

BIOSINFO.ZIP
(http://vcl.vclxx.com/DELPHI/D32FREE/BIOSINFO.ZIP)
得知主机板上 BIOS 各项信息 ( 名称、更新日期等 ) 的
非可视构件 ( 附源码 )，作者 : izzet uslu。

BBWININFO.ZIP
(http://vcl.vclxx.com/DELPHI/D32FREE/BBWININFO.ZIP)
能够得知网络卡 MAC Address、BIOS 名称、BIOS 版本、
计算机名称等多项系统信息之构件 ( 1.1 版，附源码 )，
作者: Bulent Binici。

 

钟

钟华

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-23

• #9

; FreeFly大虾，你提供的两个构件都有一定问题，BIOSINFO.ZIP中只有BIOS修改
日期地址在不同的机器上都是正确的，其它就不行了，我也进入DEBUG看了一下，不
同的机器BIOS信息存放地址都不相同。BBWININFO.ZIP 是通过访问注册表获得BIOS
信息，但遗憾的是该构件缺一个获取主板序列号的功能。对于每块主板序列号是唯一
的，非常有用。可以利用它产生注册码。
; ;更关心的是主板序列号的获得。各位大虾赶快参与进来！

 

E

elan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-23

• #10

listen

 

L

lingxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-21

• #11

procedure TForm1.FormCreate(Sender: TObject);
begin
; Edit1.Text:=String(PChar(Ptr($FFFF5))); ;//bios date
; Edit2.Text:=String(PChar(Ptr($FFA68))); ;//bios name
; Edit3.Text:=String(PChar(Ptr($FE061))); ;//bios version
; Edit4.Text:=String(PChar(Ptr($FEC71))); ;//bios serial number
; Edit5.Text:=String(PChar(Ptr($FE091))); ;//bios copyright
end;
//快付分吧$_$

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-21

• #12

多人接受答案了。

 

L

liuxudong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-10

• #13

lingxin
; 你的程序在2000下会死的，你448
希望能够有高手脱颖而出，
据说MS公司非法采集了客户信息，不知道有没有主板序列号