1,184
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
渔夫 2002-12-04
- 打赏
- 举报
2000怎么办？
好像2000运行处错
好像2000运行处错
wxjh 2002-11-12
- 打赏
- 举报
不知道，up
naughtyboy 2002-11-12
- 打赏
- 举报
9x下可以读取bios信息
with memo1.lines do
begin
Add('MainBoardBiosName:'+^I+String(pchar(ptr($FE061))));
Add('MainBoardBiosCopyRight:'+^I+string(pchar(ptr($FE091))));
Add('MainBoardBiosSerialNo:'+^I+string(pchar(ptr($FEC71))));//主板号
end;
with memo1.lines do
begin
Add('MainBoardBiosName:'+^I+String(pchar(ptr($FE061))));
Add('MainBoardBiosCopyRight:'+^I+string(pchar(ptr($FE091))));
Add('MainBoardBiosSerialNo:'+^I+string(pchar(ptr($FEC71))));//主板号
end;
fangchangjiang 2002-11-12
- 打赏
- 举报
2000不行啊
kmask 2002-11-11
- 打赏
- 举报
同意楼上
Wnyu 2002-11-11
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject); // Window 98.
var
aa : string;
begin
aa := String(Pchar(Ptr($FEC71))); // Receive Windows 98 main-board Serial No.
showmessage(aa);
Memo1.lines.add(aa);
end;
var
aa : string;
begin
aa := String(Pchar(Ptr($FEC71))); // Receive Windows 98 main-board Serial No.
showmessage(aa);
Memo1.lines.add(aa);
end;
summerwit 2002-10-17
- 打赏
- 举报
NoBody can???
summerwit 2002-10-17
- 打赏
- 举报
在windows环境中
fongming 2002-10-17
- 打赏
- 举报
up
