Otwieranie i zamykanie szuflady CD-ROM-u
Aby po kliknięciu przycisku Button1 wysunięta została szuflada CD-ROM-u wywołujemy funkcję Windows API mciSendString(), która wysyła odpowiedni komunikat do urządzenia MCI (funkcja ta wymaga biblioteki mmsystem.h, którą dodajemy na początku pliku formularza):
Unit1.cpp |
#include <mmsystem.h> void __fastcall TForm1::Button1Click(TObject *Sender) |
Natomiast, aby po kliknięciu przycisku Button1 szuflada CD-ROM-u została wsunięta wywołujemy tą samą funkcję podając tylko inne argumenty:
Unit1.cpp |
#include <mmsystem.h> void __fastcall TForm1::Button2Click(TObject *Sender) |