Delphi - Unidad de CD

Hola de nuevo, mis dudas son varias, asi que como tienen que ver con el mismo tema, las pongo todas juntas:
1.- Como saber cual es la letra que esta asignada a la unidad de CD-ROM, y por ejemplo que me la guarde en una variable string.
2.-Como saber si en la charola del CD-ROM hay un disco insertado.
3.-Como saber la etiqueta de un CD que esta en la charola.
4.-¿Hay alguna forma de evitar o deshabilitar que cuando el usuario cuando presione el boton para abrir la charola del CD, esta no se pueda abrir? y claro,despues dejarlo todo normal.
5.- Como puedo deshabilitar el autorun de la computadora.

Bueno, son muchas preguntas, pero espero me ayuden :) Gracias

1.- esta es facil, basta usar la siguente funcion...

function TipoDeDisco(RaizDisco: string): string;
var
i: word;
begin
i := GetDriveType(PChar(LowerCase(RaizDisco)));
case i of
{ Unknown }
0: result := 'no puedo determinarlo';
{ it doesn't exist }
1: result := 'no existe';
{ Floppy }
DRIVE_REMOVABLE: result := 'floppy/extraible';
{ Fixed }
DRIVE_FIXED: result := 'disco fijo';
{ Net unit }
DRIVE_REMOTE: result := 'unidad de red';
{ CD-ROM }
DRIVE_CDROM: result := 'cd-rom';
{ Ram Drive }
DRIVE_RAMDISK: result := 'disco-ram';
end;
end;


2.- Es fácil si capturamos el mensaje WM_DEVICECHANGE:


-Pon esta linea en la parte private de la declaración de tu form:



private
{ Private declarations }
{Esta Linea/This line}
procedure WMDeviceChange(var Msg: TMessage);message WM_DEVICECHANGE;



(Con esto capturamos el mensaje, enviándolo a nuestra propia procedure de tratamiento)

-Pon esta procedure en la implementation de tu form:



procedure TForm1.WMDeviceChange(var Msg: TMessage);
const
CD_METIDO = $8000;
CD_SACADO