Soyez le premier à donner votre avis sur cette source.
Vue 8 185 fois - Téléchargée 582 fois
Bien sûr il faut 3 cmdButton, 1 label & 1 combobox... unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, MMSystem, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; ComboBox1: TComboBox; Label1: TLabel; Button3: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; procedure OpenDoor(DriveLetter: string); procedure CloseDoor(DriveLetter: string); implementation {$R *.DFM} procedure OpenDoor(DriveLetter: string) ; var AliasName: string; st: string; begin AliasName := 'Laufwerk' + DriveLetter ; st := 'Open ' + DriveLetter + ': Alias ' + AliasName + ' Type CDAudio'; mciSendString(@st[1], nil, 0, 0); st := 'Set ' + AliasName + ' Door Open'; mciSendString(@st[1], nil, 0, 0); end; procedure CloseDoor(DriveLetter: string); var AliasName: string; st: string; begin AliasName := 'Laufwerk' + DriveLetter; st := 'Open ' + DriveLetter + ': Alias ' + AliasName + ' Type CDAudio'; mciSendString(@st[1], nil, 0, 0 ) ; st := 'Set ' + AliasName +' Door Closed'; mciSendString(@st[1], nil, 0, 0); end; procedure TForm1.Button1Click(Sender: TObject); begin OpenDoor(ComboBox1.Text); end; procedure TForm1.Button2Click(Sender: TObject); begin CloseDoor(ComboBox1.Text); end; procedure TForm1.FormCreate(Sender: TObject); var Drive: char; begin for Drive := 'A' to 'Z' do begin if (GetDriveType(PChar(Drive + ':\')) = DRIVE_CDROM) then ComboBox1.Items.Add(Drive + ':'); end; ComboBox1.ItemIndex := 0; end; procedure TForm1.Button3Click(Sender: TObject); begin Close; end; end.
24 juil. 2001 à 12:41
24 juil. 2001 à 12:10
Allez bone prog'!!!!!
Gogogogogoooooooo
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.