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!

:dancer2: Echt sau krass! :dancer:

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
-->

Delphi-Quellcode:

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???