Fragen zu FMod

[mandumoal]

Hi!

Probier mal:

Delphi-Quellcode:

uses MMSystem

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  //  öffnet das CD-ROM Laufwerk
  mciSendstring('SET CDAUDIO DOOR OPEN', nil, 0, Form1.Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //  schließt das CD-ROM Laufwerk
  mciSendstring('SET CDAUDIO DOOR CLOSED', nil, 0, Form1.Handle);
end;

oder wenn gewartet werden soll bis die letzte Operation beendet ist:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //  öffnet das CD-ROM Laufwerk
  mciSendstring('SET CDAUDIO DOOR OPEN WAIT', nil, 0, Form1.Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //  schließt das CD-ROM Laufwerk
  mciSendstring('SET CDAUDIO DOOR CLOSED WAIT', nil, 0, Form1.Handle);
end;

Müsste eigentlich gehen.

mfg mandumoal