Drag&Drop: Ejecutar mi aplicación y cargar el fichero arrastrado.

[ecfisa]

Hola madiazg.

Basándome en el código del link:

Agregá un TImage en el form.

Código Delphi [-]
uses ShellApi, JPeg;

procedure TForm1.WMDropFiles ( var Msg : TWMDropFiles ) ;
var
  fName : array [0..Max_Path] of char;
  FileCount ,i: integer;
begin
  FileCount := DragQueryFile( Msg.Drop,$FFFFFFFF,fName,MAX_PATH );
  for i := 0 to FileCount-1 do begin
     DragQueryFile( Msg.Drop,i,fName,MAX_PATH );
     Image1.Picture.LoadFromFile(fName);  
  end;
  DragFinish ( msg.Drop );
end;


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

Incluí la unit Jpeg para soportar imágenes jpg, pero tendrías que probar con los diferentes formatos.


Saludos.