Salut,

Je suppose que tu dois avoir un code qui ressemble à ça :

var
  NombreDeFichiers, size, i : integer;
  NomDuFichierStr : string;
  NomDuFichier : array[0..255] of char;
  Ext : String;

begin
  if Msg.message=WM_DROPFILES then begin
    //listbox1.Items.Clear;
    NombreDeFichiers:= DragQueryFile( Msg.wParam, $FFFFFFFF, NomDuFichier, sizeof(NomDuFichier));// récupération du nombre de fichiers
    for i:=0 to NombreDeFichiers-1 do begin
      size:= DragQueryFile( Msg.wParam, i, NomDuFichier, sizeof(NomDuFichier) );// récupération du nom du fichier
      NomDuFichierStr := NomDuFichier; // tansformation du tableau de char en String
       Ext := ExtractFileExt(NomDuFichierStr);
        if ( Ext = '.mp3') or ( Ext = '.wav') or ( Ext = '.wma') then listbox1.Items.Add(NomDuFichierstr);
      ... // Suite du traitement...
    end;
  end;