Ver Mensaje Individual
  #5  
Antiguo 17-11-2011
jonydread jonydread is offline
Miembro
NULL
 
Registrado: nov 2011
Posts: 157
Reputación: 13
jonydread Va por buen camino
esta parte bien no he tenido problemas al arrastrar el archivo sobre la aplicacion
Código Delphi [-]
procedure TForm1.DragDropFileMSG(var Msg: TMessage);
var
  DragDropFileName: array[0..255] of Char;
begin
  DragQueryFile(msg.WParam, 0, DragDropFileName, Length(DragDropFileName));
  DragFinish(Msg.WParam);
  LlamarReg2inf(Handle, 'REG2INF.EXE', DragDropFileName,'')
end;

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

pero si tengo miaplicacion.exe y tomo un archivo lo tiro encima se abre la aplicacion solamente no hace nada, yo tenia implementado antes y funcionaba colocando en formcreate
Responder Con Cita