Mehrere Dateien vom Explorer per Drag & Drop in Listbox?

[Nicodius]

dann kommt nur x(wiviele markiert worden sind) mal das was als ERSTES markiert worden ist


wenn ich 1.bmp, 2.jpg, 3.bmp markiere kommt 3 x 1.bmp mein quelltext :

Delphi-Quellcode:

procedure TForm1.WMDROPFILE(var msg: TMessage);
var 
  hDrop : Cardinal ; 
  fName : array[0..MAX_PATH] of Char ;
  iFileCount, i : Integer;
begin 
   hDrop := Msg.WParam ; 
   fName := '' ; 
   DragQueryFile(hDrop, 0, fName, MAX_PATH);
   iFileCount := DragQueryFile(Msg.wParam, $FFFFFFFF, fname, 255);
  for i := 0 to iFileCount - 1 do
  begin
   If (ExtractFileExt(lowercase(String(fname))) = '.bmp') or (ExtractFileExt(lowercase(String(fname))) = '.jpg') or (ExtractFileExt(lowercase(String(fname))) = '.jpeg') then
     Listbox1.Items.add((String(fName)));
   end;
   DragFinish (hDrop);
end;