|
|
| Astuces
- Système - Ouvrir
et fermer le tiroir du CD en Delphi. |
| Ouvrir le tiroir
du CD en Delphi |
Ajouter un composant TButton a la fiche.
|
Uses
mmSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('set cdaudio door open wait',nil,0,0);
end;
|
|
| Femer le tiroir
du CD en Delphi |
Ajouter un composant TButton a la fiche.
|
Uses
mmSystem;
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('set cdaudio door closed wait',nil,0,0);
end;
|
|
|
