Delphi-Help

type 

  TForm1 = class(TForm) 

    ListBox1: TListBox; 

    procedure FormCreate(Sender: TObject); 

  protected 

    procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES; 

  private 

  public 

  end; 

var 

  Form1: TForm1; 

implementation 

uses shellapi; 

{$R *.DFM} 

procedure TForm1.FormCreate(Sender: TObject); 

begin 

  DragAcceptFiles(Form1.Handle, true); 

end; 

procedure TForm1.WMDROPFILES (var Msg: TMessage); 

var 

  i, 

  amount, 

  size: integer; 

  Filename: PChar; 

begin 

  inherited; 

  Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255); 

  for i := 0 to (Amount - 1) do 

  begin 

    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1; 

    Filename:= StrAlloc(size); 

    DragQueryFile(Msg.WParam,i , Filename, size); 

    listbox1.items.add(StrPas(Filename)); 

    StrDispose(Filename); 

  end; 

  DragFinish(Msg.WParam); 

end;