Einzelnen Beitrag anzeigen

Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#11

Re: Mehrere Dateien vom Explorer per Drag & Drop in List

  Alt 9. Okt 2004, 09:53
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 Delphi-Referenz durchsuchenExtractFileExt 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
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat