我可以用如下程式,使用hdc,diskdrive,cdrom,來找電腦上有哪些storage設備的訊息.
要如何得知IDE channel與storage間的關連呢?
例如得知,
IDE0,master,有Harddisk "HTS424040M9AT00"
IED1,slave,有DVDROM "QSI DVD-ROM SDR-081"

procedure TForm1.Button1Click(Sender: TObject);
var
st1,st2:string;
nLen:ULONG;
dw1,dw2:dword;
typeP,rs:DWORD;
DEviceName:array [0..600] of char;
label
loops;
begin
listbox1.Clear;
DeviceIndex:=0;
nLen:=255;
st1:=edit1.Text;
if not SetupDiClassGuidsFromName(pchar(st1),@guid1,1,nlen) then
begin
FormatMessage1('SetupDiClassGuidsFromName');
end;
if nlen=0 then
begin
listbox1.Items.Add('!!!No such class Setup GUID');
if autorun_flg=1 then
begin
timer1.Enabled:=true;
end;
exit;
end;
listbox1.Items.Add(guid2str(guid1));
NewDeviceInfoSet:=Pointer(INVALID_HANDLE_VALUE);
NewDeviceInfoSet:=SetupDiGetClassDevs(@guid1,nil,0,DIGCF_PRESENT);
if NewDeviceInfoSet=Pointer(INVALID_HANDLE_VALUE) then
begin
FormatMessage1('SetupDiGetClassDevs');
exit;
end;
loops:
DeviceInfoData.cbSize:=sizeof(TSPDEVINFODATA);
if not SetupDiEnumDeviceInfo(NewDeviceInfoSet,DeviceIndex,DeviceInfoData) then
begin
FormatMessage1('SetupDiEnumDeviceInfo');
if autorun_flg=1 then
begin
timer1.Enabled:=true;
end;
exit;
end;
if SetupDiGetDeviceRegistryProperty(NewDeviceInfoSet,DeviceInfoData,
SPDRP_DEVICEDESC,@typeP,@DEviceName,sizeof(DEviceName),@rs) then
begin
st1:=strpas(DEviceName);
listbox1.Items.Add(st1);
for dw1:=0 to $23 do
begin
if SetupDiGetDeviceRegistryProperty(NewDeviceInfoSet,DeviceInfoData,
dw1,@typeP,@DEviceName,sizeof(DEviceName),@rs) then
begin
st1:=format('%2.2x:',[dw1,length(strpas(DEviceName))]) strpas(DEviceName);
listbox1.Items.Add(st1);
end;
end;
listbox1.Items.Add('===========================');
inc(DeviceIndex);
goto loops;
end
else
begin
FormatMessage1('SetupDiGetDeviceRegistryProperty');
end;
end;

------
我喵故我在