Laufwerke in Popupmenü auflisten

**CoRe.eXtreem**

Hi,
wusste keinen gescheiten Titel

zu meiner Frage:

Ich lasse mir alle CDRom Laufwerke in einem Popupmenü auflisten.
Wie kann ich jedes einzelne aufgelistete objekt belegen.

Ich wollte mit diesem code....

zusammenfalten · markieren

Delphi-Quellcode:

			uses mmsystem;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if mciSendString('open G: type cdaudio alias cdlw',

                   nil,

                   0,

                   0) = 0 then

  begin

    mciSendString('set cdlw door open wait', nil, 0, 0);

    {oder closed wait zum schliessen}

    mciSendString('close cdlw', nil, 0, 0)

  end;

...die Laufwerke je nach Laufwerkstyp (d:\,e:\,f:\) ein/auswerfen!

Danke, CoRe.eXtreem

Laufwerke in Popupmenü auflisten

Laufwerke in Popupmenü auflisten

Forumregeln