Progblem mit CD öffnen/schließen programm

[freak4fun]

Zitat:

Zitat von shmia

Zitat:

Zitat von freak4fun

Ich wäre dafür die Procedur als Klassenmethode zu schreiben. ;)

Nein, im Gegenteil, die Procedure sollte so bleiben !

Ok, da sind ganz andere Sachen drin ... :)

[D0N]

hmm jetzt bekomme ich zwar keinen Unbekannten Bezeichner mehr angezeigt aber wie kann ich das machen das das laufwerk durch einen druck auf den Knopf aufgeht??

denn atm geht es überhaupt nicht auf O.o

mfg

[DeddyH]

Delphi-Quellcode:

unit test1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, mmsystem;

type
  TForm1 = class(TForm)
    edit1: TLabeledEdit;
    Button1: TButton;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure OpenCDDrive(const ADriveChar: Char; Open: Boolean);
begin
  if mciSendString(PChar('open '+ADriveChar+': type cdaudio alias cdlw'),
                   Nil,
                   0,
                   0) = 0 then
  begin
    if Open then
      mciSendString('set cdlw door open wait', Nil, 0, 0)
    else
      mciSendString('set cdlw door closed wait', Nil, 0, 0);
    mciSendString('close cdlw', Nil, 0, 0);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Length(edit1.text, true) > 0 then
    OpenCDDrive(edit1.text[1],true);
end;

end.

So wird ein Schuh draus ;)

[D0N]

und der schuh passt wie angegossen ;)

danke nochmal