saludos, espero que te sirva esto que te voy a explicar, mira,
1- Coloca esto debajo del private:
Código:
...
private
{ Private declarations }
procedure CapturaMsgDropFile(var Msg: TWMDropFiles); message WM_DROPFILES;
...
2- Debajo del implementation de tu unit, pon esto:
Código:
...
uses ShellApi;
procedure TForm1.CapturaMsgDropFile(var Msg: TWMDropFiles);
var
fCount, i: Integer;
fName: array[0..255] of Char;
begin
fCount := DragQueryFile(Msg.Drop, $FFFFFFFF, fName, 1);
for i := 0 to fCount -1 do
begin
DragQueryFile(Msg.Drop, i, fName, sizeof(fName));
ShowMessage(fName);
end;
DragFinish(Msg.Drop);
end;
...
por último, en el onCreate de tu form: coloca esta linea:
Código:
DragAcceptFiles(Handle, true);
espero que te sirva de algo lo que te puse aqui,
saludos
aeff!!