PCI Properties And Methods
|
Previous Top Next |
var
|
buses: Integer;
|
n,bus,dev,func: Word;
|
Info: TPciCfg;
|
|
buses = 15; // Last PCI bus number(first - 0)
|
|
n = 0; // 0 devices was detected
|
|
for bus := 0 to buses do // sort out all the buses
|
for dev := 0 to 31 do // sort out all the devices
|
for func := 0 to 7 do // sort out all the functions
|
begin
|
|
if (PciDeviceInfo(bus,dev,func,&Info) then
|
begin
|
Inc(n);
|
.. get device info from the Info structure..
|
end;
|
end;
|