Mehrere Dateien vom Explorer per Drag & Drop in Listbox?

[alcaeus]

Hi Nico,

Delphi-Quellcode:

for LCount := 0 to (Lanzahl - 1) do 
begin 
  Lsize := DragQueryFile(Msg.WParam, LCount , nil, 0) + 1; 
  LDateiname:= StrAlloc(Lsize); 
  DragQueryFile(Msg.WParam,LCount , LDateiname, Lsize); 
  // do Something with "LDateiname" 
  StrDispose(LDateiname); 
end;

Ich schätze mal, du könntest fie Dateiendung mit ExtractFileExt prüfen, und zwar genau da wo der Kommentar ist. Getestet habe ich den Code nicht, deshalb kann ich nicht garantieren, dass es auch funktioniert.

Greetz
alcaeus