Когато пусна тая джаджа:

var drive: Char;
begin
listbox1.Clear;
for drive := 'A' to 'Z' do { iterate through all possible drives }
begin
case GetDriveType(pansichar(Drive + ':/')) of
DRIVE_REMOVABLE:
listbox1.Items.Add(drive+' FLOPPY');
DRIVE_FIXED:
listbox1.Items.Add(drive+' FIXED');
DRIVE_REMOTE:
listbox1.Items.Add(drive+' NETWORK');
end;
end;

защо не ми се появява CD-ROM-a?