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