[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;