Ben je pense que vs avez tous pigé rien qu'en voyant le titre... J'espère ke cé pô 1 source de m...., car apparemment personne a mis 1 code dans ce genre, alors je me suis osé demander s'il fallait ke j'en mette?... ;-P
Source / Exemple :
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.
Conclusion :
Ben euh, il tt simplet ce p'tit code... Je pense que niveau 1 est approprié?...
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.