Also es geht mit beiden varianten nicht
Wo im code auf 1 stellen?
das drag und drop sieht so aus:
Delphi-Quellcode:
Procedure TForm4.WMDropFiles (Var aMsg: tMessage);
Var
Idx, Size, FileCount: Integer;
Filename: pChar;
Begin
Inherited;
FileCount := DragQueryFile (aMsg.WParam, $FFFFFFFF, nil, 255);
For Idx := 0 To FileCount -1 Do Begin
Size := DragQueryFile (aMsg.WParam, Idx, nil, 0) + 1;
Filename := StrAlloc (Size);
If DragQueryFile (aMsg.WParam, Idx, Filename, Size) = 1 Then { nothing }
else AddToPlayList (pChar (Filename)); // hier wird das jeweilige file unserer Prozedur AddToPlaylist überwiesen.
StrDispose (Filename);
End;
DragFinish (aMsg.WParam);
End;
Procedure TForm4.AddToPlayList(s:string);
begin
playList.Add(s);
ListBox1.Items.Add(extractfilename(s));
end;