RES: [delphi-br] ABRIR CD ROM / FECHAR CD ROM

function EjectCD(Drive : char) : bool; // // Ejeta a bandeja do CD-Rom // // Requer a MPlayer declarada na clausula uses da unit // var mp : TMediaPlayer; begin result := false; Application.ProcessMessages; if not IsDriveCD(Drive) then begin exit; end; mp := TMediaPlayer.Create(nil);

RES: [delphi-br] ABRIR CD ROM / FECHAR CD ROM

// Abre a porta do CDROM mciSendString( 'Set cdaudio door open wait', nil, 0, handle ); // Fecha a porta do CDROM mciSendString( 'Set cdaudio door closed wait', nil, 0, handle ); Inclua na Uses a unit mmSystem. []´s camoloze _ De: delphi-br@yahoogrupos.com.br