uses MMSystem;
// Ac
Procedure OpenDoor;
Begin
mciSendString('Set cdaudio door open', nil, 0, 0);
End;
// Kapat
Procedure CloseDoor;
Begin
-
Acemi Üye
Array
- İtibar Gücü
- 0
CD Sürücünün kapagini acmak ve kapatmak
uses MMSystem;
// Ac
Procedure OpenDoor;
Begin
mciSendString('Set cdaudio door open', nil, 0, 0);
End;
// Kapat
Procedure CloseDoor;
Begin
mciSendString('Set cdaudio door closed', nil, 0, 0);
End;
//Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDoor;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Closedoor;
end;
Konu Bilgileri
Users Browsing this Thread
Şu an 1 kullanıcı var. (0 üye ve 1 konuk)
Yetkileriniz
- Konu Acma Yetkiniz Yok
- Cevap Yazma Yetkiniz Yok
- Eklenti Yükleme Yetkiniz Yok
- Mesajınızı Değiştirme Yetkiniz Yok
-
Forum Kuralları
Yer imleri