Mp3 Player im Explorer

[DummerDickerHase]

Hallo!

Folgendes Projekt:

Ich möchte einen Mp3 Player schreiben, der als Grundlage den Explorer hat.

Oben soll dann neben den Standardleisten wie die Menü- und Adressenleiste
ne selbst programmierte Leiste sein zum Steuern (Play, Pause,...) der im Explorer gewählten Medien.
Dann schwebt mir noch ne Playlist vor auf der Linken Seite anstatts die "Datei- und Ordneraufgaben" und "Andere Orte" Optionen.

Mein Problem: Wie bekomm ich mein Delphi da rein? Kommt man da überhaupt rein??

Danke schon mal für eure Antworten!

[MrKnogge]

Such mal nach Deskband, da müsstest du einiges finden, desweiteren kann ich dir folgenden link empfehlen:

http://info.borland.de/newsletter/nl...d/Deskband.htm

gruss

[DummerDickerHase]

DANKE!!!!!!

Für den genialen Tip, wusste gar nicht dass das alles unter "Deskband" gehandelt wird, und hab deshalb auch nichts gefunden!

Echt sau krass!

Unter euromind.com hab ich auch was gefunden für 'ne seitliche Explorer-Leiste.

Jetzt funktioniert nur der Drag'n'Drop mit dem Explorer nicht!
Nach dem ich
--> DragAcceptFiles(DeskBandForm.Handle, true); manuell mit einem Butten gemacht hab, scheint er die Datei anzunehmen, denn die Maus aktiviert das entsprechende Cursor-Symbol, aber er geht gar nicht in die Prozedur hinein!

Delphi-Quellcode:

procedure TBandForm.WMDROPFILES(var Msg: TMessage);
var i, anzahl, size: integer;
  Dateiname: PChar;
begin
  ShowMessage('Test'); //um zu testen ob er hinein geht
  inherited;
  anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
  for i := 0 to (anzahl - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    Dateiname:= StrAlloc(size);
    DragQueryFile(Msg.WParam,i , Dateiname, size);
    if ExtractFileExt(StrPas(Dateiname)) = '.mp3' then
      Form1.AddMP3File(StrPas(Dateiname));
    StrDispose(Dateiname);
  end;
  DragFinish(Msg.WParam);
end;

Hat jemand ne Idee???