Dicas Delphi

Abrindo e fechando drive de cd/dvd com um botão

{Este botão verifica se o driver está aberto ou fechado. Se estiver aberto,

ao clicar no botão ele fecha. Se estiver fechado ele abre}

{ Declare MMSystem na seção Uses da Unit }

{ Declare a variável DriveCD como Boolean na VAR do Form.}


procedure TForm1.Button1Click(Sender: TObject);

begin

        If  DriveCD = true then

        begin

                mciSendString ('Set cdaudio door open wait', nil, 0, handle);

                DriveCD := false;

        end

        else

        begin

                mciSendString ('Set cdaudio door closed wait', nil, 0, handle);

                DriveCD := true;

        end;

end;


end.