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