1
23
45
67
89
1011
1213
1415
1617
1819
2021
2223
2425
2627
2829
3031
3233
3435
3637
3839
4041
4243
4445
4647
4849
5051
5253
5455
5657

unit Unit1;
 interface
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls, ShellApi; 
type  TForm1 = class(TForm)
    ListBox1: TListBox;    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);  private
    procedure WMDropFiles(var msg : TWMDropFiles) ; message WM_DROPFILES;  public
  end; 
var  Form1: TForm1;
 implementation
 {$R *.dfm}
 procedure TForm1.FormCreate(Sender: TObject);
begin   DragAcceptFiles(ListBox1.Handle, true);
end; 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin
   DragAcceptFiles(ListBox1.Handle, false);end;
 procedure TForm1.WMDROPFILES(var Msg: TWMDropFiles);
const   MAXFILESIZE = 32767;
var   FileName: PChar;
   I, NbFiles: integer;begin
   try      NbFiles := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0);
      for I := 0 to NbFiles - 1 do      begin
          GetMem(FileName, MAXFILESIZE);          DragQueryFile(Msg.drop, I, FileName, MAXFILESIZE);
          ListBox1.Items.Add(string(Filename));          FreeMem(FileName);
      end;   finally
      DragFinish(Msg.drop);   end;
   Msg.Result:= 0;end;
 end.