Select Code to Download

The GetCdRomDrives scans for Cd-Rom installed on the system and retrie
+ves informations over the Cd-Rom drive.
function GetCdRomDrives(var CdRoms: TCdRoms): Boolean;
...
Return Values
If the function succeeds, the return value is TRUE.
If the function fails, the return value is FALSE.

TCdRom = record
HaId : Byte;
...
CdRomCount: Byte;
CdRom : array[0..25] of TCdRom;
end;

#!/usr/bin/perl

...
$x = GetCdRomDrives(\$cds);

########## (ETC) #########################

  DB<4> x $cds
0  Win32::API::Struct=HASH(0x1c3dc30)
...
         2  'TCdRom'

###################