find cd-rom drev.

hvad med....
http://exp.dk/spm/530410

denne stump finder alle cdrom drev

procedure TForm1.Button1Click(Sender: TObject);
var
  drives : array[0..1024] of Char;
  c : PChar;
begin
  GetLogicalDriveStrings(1000, drives);

  c := drives;
  while c^ <> #0 do
  begin
    if GetDriveType(c) = DRIVE_CDROM then
      ListBox1.Items.Add(c);
    Inc(c, 4);
  end;
end;

du vil ikke få navnene på de musik stupper der ligger på cd'en hvis det er det du ønsker, der skal en database til f.eks. CDDB.com eller http://www.freedb.org/ og så læse cd nr

når jeg siger kopier over i en listbox, så mener jeg stierne til filerne:
e = mit cd rom drev

e:\track1.dat
e:\track2.dat
e:\track3.dat
e:\track4.dat

er der ikke nogen der kan hjælpe????

hvordan kan jeg tilføje alle mine cd drev til en popupmenu??

procedure TForm1.Button1Click(Sender: TObject);
var
menu:TMenuitem;
Drive: Char;
DriveLetter: String[4];
begin
PopupMenu1.Items.Clear;
for Drive := 'A' to 'Z' do
begin
      DriveLetter := Drive ;
  case GetDriveType(PChar(Drive + ':\')) of

  DRIVE_CDROM:
      begin

        menu := TMenuitem.Create(PopupMenu1);
        menu.Caption := Driveletter + ':';
        PopupMenu1.Items.Add(menu);
      end;
  end;
end;
end;

Stoney

hvordan tilføjer jeg så en event til mine nye knapper?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    sdfasd1: TMenuItem;
    procedure Button1Click(Sender: TObject);
      procedure klikpopup(Sender : Tobject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.klikpopup(Sender : Tobject);
begin
showmessage('hej');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
menu:TMenuitem;
Drive: Char;
DriveLetter: String[4];
begin
PopupMenu1.Items.Clear;
for Drive := 'A' to 'Z' do
begin
      DriveLetter := Drive ;
  case GetDriveType(PChar(Drive + ':\')) of

  DRIVE_CDROM:
      begin

        menu := TMenuitem.Create(PopupMenu1);
        menu.Caption := Driveletter + ':';
        menu.OnClick := klikpopup;
        PopupMenu1.Items.Add(menu);
      end;
  end;
end;
end;

end.


Stoney

takker