Buscar por:

Descobrindo a letra da unidade de cd-rom

Código

Function TForm1.CDROMDrive: Char;

  Var 

    drivemap, mask: DWORD; 

    i: Integer; 

    root: String; 

  Begin 

    Result := #0; 

    root := 'A:'; 

    drivemap := GetLogicalDrives; 

    mask := 1;

    For i:= 1 To 32 Do 

    Begin 

      If (mask and drivemap) <> 0 Then 

        If GetDriveType( PChar(root) ) = DRIVE_CDROM Then 

        Begin 

          Result := root[1]; 

          Break; 

        End; 

        mask := mask shl 1; 

        Inc( root[1] ); 

      End; 

    End;