//Como aceptar archivos drag&drop desde el Explorer en un aplicación delphi

uses windows,messages,shellapi;

type
   TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
   private
    procedure AcceptFiles(var msg:TMessage); message WM_DROPFILES;
   end;

implementation

procedure TForm1.AcceptFiles(var msg:TMessage);
const
  PathLength = 512;
var
  FileCount:Integer;
  afn : array [0..PathLength] of char;
  fn:String;
  i:Integer;
begin
  //Obtener numero de archivos
  FileCount := DragQueryFile(msg.WParam,$FFFFFFFF,afn,PathLength);
  //Cojer uno a uno
  for i := 0 to FileCount-1 do
  begin
    DragQueryFile(msg.WParam,i,afn,pathLength);
    fn:=strpas(afn);
  end;
  //Liberar recursos
  DragFinish(msg.WParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 DragAcceptFiles(Handle,True);
end;

//El conocimiento humano pertenece al mundo, ¡¡¡DIFUNDID EL CODIGO!!!