yo lo hice para abrir un archivo rtf y arrastrarlo a un richview.
En la seccion de "private" agrega este procedimiento.
Código:
private
procedure WMDropFiles(var Msg: TWMDropFiles); message M_DROPFILES;
...
procedure TfMain.WMDropFiles(var Msg: TWMDropFiles);
var
CFileName: array[0..MAX_PATH] of Char;
RutaArchivoTemp : String;
begin
try
if DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) > 0 then
begin
sbDocumento.Panels[0].Text := 'Archivo '+CFileName;
if extraerTextoWord(CFileName,RutaArchivoTemp) then begin // aca convierte de word a RTF.
reDocumento.lines.LoadFromFile(rutaArchivoTemp);
btnIniciarProceso.Enabled := True;
end;
Msg.Result := 0;
end;
finally
DragFinish(Msg.Drop);
end;
end;
fijate si esto te sirve. Muchos saludos.