Ejecter le lecteur de cd...

Soyez le premier à donner votre avis sur cette source.

Vue 7 945 fois - Téléchargée 532 fois

Télécharger le projet
Commenter

Description

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é?...
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
-
Aaaah zut con ke je suis!!! J'aurais dû mettre dans Souris, clavier etc... ou dans périphérique non?...

Allez bone prog'!!!!!

Gogogogogoooooooo
Signaler
-
tu peux toujours modifier ;-)
S'inscrire maintenant

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.

Du même auteur (jia2812)