problema al ejecutar accion al soltar archivo sobre aplicacion

[jonydread]

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

[ecfisa]

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

Hola.

Lo lamento, no logro entender la situación.

Saludos.

[jonydread]

Empezado por ecfisa

Hola.

Lo lamento, no logro entender la situación.

Saludos.

si tomo un archivo, click derecho,enviar a : mi aplicacion no realiza ninguna accion solo abre el programa
eso quiero realizar que se abra con el archivo que envie y lo procese. tenia un hilo aca funcionaba pero ahora que agrege la funcion de llamarreg2inf ya no
AHORA TENGO PROBLEMA CON LA OTRA FORMA AL ARRASTRAR EJECUTA PERO EL ARCHIVO DE SALIDA SE CREA EN LA CARPETA DE MI APLICACION, NO DE DONDE SE TOMO EL ARCHIVO
el codigo lo vi en otra pagina

Código Delphi [-]
procedure TReg2infConverter.FormCreate(Sender: TObject);
begin
  // Registrar la aplicación 
  DragAcceptFiles(handle, true);
end;
procedure TReg2infConverter.WMDropFiles(var Msg: TMessage);
var
  nomArchivo: array [0..MAX_PATH] of char;
  tamBuffer: Integer;
  numArchivos: Integer;
  f: Integer;
  Origen, Destino ,Filename : string;
begin
  // Cuando se arrastra un archivo sobre nuestra apliación,
  // se recibe este mensaje.
  hDrop := Msg.WParam;
  numArchivos := DragQueryFile(hDrop, $FFFFFFFF, Nil, 0);
  if (numArchivos > 0) then
  begin
    for f := 0 to numArchivos -1 do
    begin
      tamBuffer := DragQueryFile(hDrop, f, nil, 0)+1;
      DragQueryFile(hDrop, f, nomArchivo, tamBuffer);
      opendialog1.FileName:=(nomArchivo);
      edit1.Text:=(nomArchivo);
       if fileExists(opendialog1.FileName) then
      begin
    if ExtractFileExt(opendialog1.FileName) = '.reg' then
    begin
Filename := Extractfilename(opendialog1.FileName);
Origen := GetshortName(opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');
Destino :=ChangeFileExt(Filename, '.inf');
 LlamarReg2inf(Handle,'reg2inf.exe',Origen,Destino );
end else
    MessageDlg('Archivo no valido!!', mterror, [mbok],0);
   end;
   end;
  end;
  end;
procedure TReg2infConverter.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // Eliminamos el registro de nuestra ventana en el sistema
  DragFinish(hDrop);
end;

[ecfisa]

si tomo un archivo, click derecho,enviar a : mi aplicacion no realiza ninguna accion solo abre el programa eso quiero realizar que se abra con el archivo que envie y lo procese.

Hola.

Es que el código que te sugerí y adjunté funciona para la acción Drag&Drop (arrastrar/soltar).

Saludos.

[jonydread]

si lo que pasa que tenia un problema con el destino me creaba el archivo en la carpeta de mi proyecto al arrastrar y soltar
hise esta ensalada jaja que por el momento ha sido la unica forma que me ha funcionado
Arrastrar/soltar y ejecutar aplicación

Código Delphi [-]
procedure TReg2infConverter.WMDropFiles(var Msg: TMessage);
var
  nomArchivo: array [0..255] of char;
  tamBuffer: Integer;
  numArchivos: Integer;
  f: Integer;
  Origen, Destino ,Filename,path : string;
begin
  // Cuando se arrastra un archivo sobre nuestra apliación,
  // se recibe este mensaje.
  hDrop := Msg.WParam;
  numArchivos := DragQueryFile(hDrop, $FFFFFFFF, Nil, 0);
  if (numArchivos > 0) then
  begin
    for f := 0 to numArchivos -1 do
    begin
      tamBuffer := DragQueryFile(hDrop, f, nil, 0)+1;
      DragQueryFile(hDrop, f, nomArchivo, tamBuffer);
      opendialog1.FileName:=(nomArchivo);
      edit1.Text:=(nomArchivo);
       if fileExists(opendialog1.FileName) then
      begin
    if ExtractFileExt(opendialog1.FileName) = '.reg' then
    begin
path:=GetshortName(ExtractFilePath(Opendialog1.FileName));
Filename := Extractfilename(opendialog1.FileName);
Origen := GetshortName(opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');
Destino :=ChangeFileExt(Filename, '.inf');

LlamarReg2inf(Handle,'reg2inf.exe',Origen,path+Destino );
end else
    MessageDlg('Archivo no valido!!', mterror, [mbok],0);
   end;
   end;
  end;
  end;

Enviar archivo a Aplicación

Código Delphi [-]
procedure TReg2infConverter.FormCreate(Sender: TObject);
var Origen, Destino,FileName,Path: string;
begin
  // Registrar la aplicación
  DragAcceptFiles(handle, true);
  if ParamStr(1) > '' then
  begin
    OpenDialog1.FileName:= ParamStr(1);
    Edit1.Text:= ParamStr(1);
    if FileExists(OpenDialog1.FileName) then
    Path:=GetshortName(ExtractFilePath(Opendialog1.FileName));
    Filename := Extractfilename(opendialog1.FileName);
    Origen := GetshortName(opendialog1.FileName);
    Filename:= AnsiReplaceStr(Filename,' ','');
    Destino :=ChangeFileExt(Filename, '.inf');

    LlamarReg2inf(Handle,'reg2inf.exe',Origen,path+Destino );
end;
end;

Gracias! por el momento todo OK!!