Wykrywanie urządeń

Jak mogę wykryć urządzenia znajdujące się w komputerze?

Aby wykryć kartę dźwiękową:

uses MMSystem;

if WaveOutGetNumDevs=0
then Label1.Caption:='Brak karty dźwiękowej!'
else Label1.Caption:='Wykryto kartę dźwiękową!';

CD-ROM:

function WykryjCD: string;
var
naped : char;
lista : string;
begin
lista:='';
for naped:='a' to 'z' do
if GetDriveType(PChar(naped+':'))=DRIVE_CDROM then lista:=lista+naped;
WykryjCD:=lista;
end;

Dzięki! A nie można wszystkich za jednym razem?

oblukaj sobie HKEY_CURRENT_CONFIG\System\CurrentControlSet\Enum