如何做到象Bios样检测系统硬件的连接状态？分数可以给很多，大家请参与！(300分)

我想做个小程序，专门检测系统启动后，硬件连接状态，如：键盘连接是否断开，鼠标连接是否断开？
不要说下面的情况：
var
kbtype : string;
begin
kbtype := '';
Case GetKeyBoardType(0) of //------------获取键盘类型
1: kbtype:='IBM PC/XT或兼容类型(83键)键盘';
2: kbtype:='Olivetti "ICO"(102键)键盘';
3: kbtype:='IBM PC/AT(84键)键盘';
4: kbtype:='IBM增强型(101或102键)键盘';
5: kbtype:='Nokia 1050型键盘';
6: kbtype:='Nokia 9140型键盘';
7: kbtype:='日式键盘';
end;
ReSult := kbtype;
end;
-----------
var
MouseInfo : string;
begin
if (GetSystemMetrics(SM_MOUSEPRESENT)<>0) then //---------检测是否安装了鼠标
begin
MouseInfo := '系统检测到鼠标,';
//---------检测鼠标是否支持滑动
if (GetSystemMetrics(SM_MOUSEWHEELPRESENT)<> 0) then
MouseInfo:=MouseInfo+'并支持支持滑动鼠标。'
else MouseInfo := MouseInfo+'但不支持滑动鼠标。';
end else MouseInfo := '系统没有鼠标,';
end;
这样的检测，如果系统启动后，键盘、鼠标拔后与不拔掉检测的结果是一样的。而我希望的是不一样的。

你下载一个MiTeC System Information Component Suite控件，比较新的版本如10.2.0，基本上有关电脑所有的硬件都能检测到，如同EVEREST差不多，含有DEMO程序，你自己看一下，我用它自己编了不少有关硬件检测的东东，很好用。

谢谢。顶
www.tomore.com