AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi [nonVCL]Drag&Drop nach Explorer will nicht (AV)
Thema durchsuchen
Ansicht
Themen-Optionen

[nonVCL]Drag&Drop nach Explorer will nicht (AV)

Ein Thema von rollstuhlfahrer · begonnen am 22. Feb 2011 · letzter Beitrag vom 17. Sep 2012
 
EWeiss
(Gast)

n/a Beiträge
 
#2

AW: [nonVCL]Drag&Drop nach Explorer will nicht (AV)

  Alt 22. Feb 2011, 19:19
Meine Routine..
Müßtest du dir aber anpassen.

Delphi-Quellcode:
      WM_DROPFILES: // Drag & drop
      begin
         nFilesDropped := DragQueryFile(wP, LongWord(-1), '', 0);
         sFileName := '';
         PlayListCount := 0;
         hList := 0;
         SetLength(PlayList, MAX_PATH);
         if nFilesDropped > 0 then
         begin
           // Sichtbare PlayListe nur Titel
           hPlaylist := GetMainItem(ID_PLAYLIST);
           ListDeleteAll(hPlaylist);
           // PlayListe incl. Pfad
           hList := GetMainItem(ID_PLAYLISTBOX);
           ListDeleteAll(hList);
           for K := 0 to nFilesDropped - 1 do
           begin
             SetLength(sFileName, DragQueryFile(wP, k, nil, 0));
             DragQueryFile(wP, K, @sFileName[1], Length(sFileName) + 1);
             sFileName := LowerCase(sFileName);
             nCheck := BassCheckExtension(sFileName);
             if nCheck = 1 then
             begin
               if ListAdd(hList, sFileName) > -1 then
               begin
                 ListAdd(hPlaylist, ExtractFileName(AnsiLeftStr(sFileName, Length(sFileName) - 4)));
                 inc(PlayListCount);
               end;
             end else
             if nCheck = 0 then
             begin
               Files := nil;
               Ext := Split(BASSAUDIOEXT, ',');
               for IntExt := 0 to Length(Ext)- 1 do
                 FindAllFiles(sFileName, Ext[IntExt], True);
               for IntI := 0 to length(Files) - 1 do
               begin
                 if ListAdd(hList, Files[IntI]) > -1 then
                 begin
                   ListAdd(hPlaylist, ExtractFileName(AnsiLeftStr(Files[IntI], Length(Files[IntI]) - 4)));
                   inc(PlayListCount);
                 end;
               end;
              end; // end nCheck
           end; // end for K
         end; // end nFilesDropped
         DragFinish(wP);
         SavePlayList(hList, PlayListCount);
         PlayListPlay(hList, PlayListCount);
         SetForegroundWindow(WinHandle);
         // TopItem der Playlist ermitteln
         ItemTop := TMPlayList.ListGetTopIndex(TMPlayList.Handle);
         // Trackbar Value übergeben
         If (ItemTop > 0) Then
           SetTrackValue(SkinEngine.GetMainItem(ID_TRACK_VSCROLL), ItemTop - 1)
         else
         SetTrackValue(SkinEngine.GetMainItem(ID_TRACK_VSCROLL), ItemTop);
      end;
gruss
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz