如何编程读取内存的SPD信息?包括manufactuer、part number、serial number......
给个思路,最好贴上代码
给个思路,最好贴上代码
解决方案 »
- delphi 知道对方的阿里旺号比如:nigetou23,怎样能直接给对方留言呢 ?不需要登陆阿里旺旺。高分求
- Delphi做类似QQ新闻通知的右下角弹出窗口
- 请大家帮忙解决:) 做数据集的函数引用,定义变量类型出错Undeclared identifier: 'tadodataset'
- pchar类型是什么类型.
- dll执行完后出错
- 关于DbGrid的问题
- 有没有人做过sql的语法生成的程序能说一下总体的思路吗?
- 哪位仁兄有ghost企业版或类似软件
- 那个WINSOCK API可以把文本发送到对方的机器?以及使用例子!
- 太尴尬了,用WindowState:=wsMinimized后为什么不最小化到任务栏,而是一个浮动条?
- 请教:用QuickReport做明细表形式的报表,怎样设置DetailBand和QRSubDetail1,才能保证Detail和SubDetail里面的数据关联?
- 如何在程序中实现导航效果?
http://www.biosrepair.com/pic/pic98.htm
2.不同的chipset读取方式不同
3.xp下面穿透端口比较复杂贴一个pascal语言的98下面能工作的代码 for sis onlyprogram SMBus_Read;
uses crt;
label Check_Host_Status;
var
i,value:byte;
SMB_Base:word;
Slave_Address:byte;function InPort(Port:word):byte; {从port指定端口读取一个byte}
var temp:byte;
begin
asm
push ax
push dx
mov dx,Port
in al,dx
mov temp,al
pop dx
pop ax
end;
InPort:=temp;
end;procedure OutPort(Port:Word;Value:byte); {向指定的端口port发送一个value}
begin
asm
push ax
push dx
mov al,Value
mov dx,Port
out dx,al
pop dx
pop ax
end;
Delay(1);
end;begin
Clrscr; write('Please input SMBUS Base Address:'); Readln(SMB_Base);
write('Please input Slave Address:'); Readln(Slave_Address); for i:=0 to 127 do
begin {Reset }
OutPort(SMB_Base,$ff);
OutPort(SMB_Base,$ff);
OutPort(SMB_Base,$ff); {SMB_Kill}
OutPort(SMB_Base+3,$20);
OutPort(SMB_Base+5,i);
OutPort(SMB_Base+4,Slave_Address or 1);
OutPort(SMB_Base+3, $12); Check_Host_Status:
value:=InPort(SMB_Base);
if ((Value and 1<>0) or (Value and 2=0))
and (value and 4<>0)
then Goto Check_Host_Status;
write(InPort(SMB_Base+8):4);
end;
readln;
end.