Meine Drag'n'Drop-Funktion ergänzen

[DeddyH]

Delphi-Quellcode:

procedure TForm1.WMDROPFILES(var Msg: TMessage);
var i, count: Cardinal;
    Buffer, Extension: string;
begin
  inherited;
  Buffer := '';
  count := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0);
  for i := 0 to count - 1 do
    begin
      SetLength(Buffer,DragQueryFile(Msg.WParam,i,nil,0) + 1);
      DragQueryFile(Msg.WParam,i,@Buffer[1],Length(Buffer));
      Extension := ExtractFileExt(Buffer);
      ShowMessage(Extension);
    end;
end;