Como abrir un archivo con mi aplicacion. (parametros de ejectutable)

[JuanErasmo]

Muchas Gracias, Dec, y muchas Gracias Jhony!
Efectivamente asi lo hice!

Saludos desde Medellin johny! Gracias!

[jhonny]

Empezado por JuanErasmo

Muchas Gracias, Dec, y muchas Gracias Jhony!
Efectivamente asi lo hice!

Saludos desde Medellin johny! Gracias!

Pues que bueno .

[jonydread]

necesito realizar lo mismo con un archivo reg al colocar abrir con mi.exe tome la ruta en mi edit.text o el opendialog
probe el codigo que dejaron ay pero no me funciono que hago mal??

Código Delphi [-]
procedure TReg2infConverter.FormCreate(Sender: TObject);
var
  Ruta :String;
  begin
    Ruta := ParamStr(1);
end;

gracias!

[[escafandra]]

Ese código no abre nada, solo te permite saber el primer parámetro con el que se ha abierto tu programa. A partir de ese dato tu programa debe saber que hacer, es decir, tu sabrás que es lo que pretendes realizar con ese parámetro.

Saludos.

[jonydread]

Empezado por escafandra

Ese código no abre nada, solo te permite saber el primer parámetro con el que se ha abierto tu programa. A partir de ese dato tu programa debe saber que hacer, es decir, tu sabrás que es lo que pretendes realizar con ese parámetro.

Saludos.

si necesito que cuando de click derecho sobre un archivo .reg el usuario y seleccione
abrir con>mi aplicacion
el programa se abra y cargue el archivo
ya que abre pero no carga el archivo quisiera saber como tomar la ruta
he revisado en el foro y en google salen con paramstr pero no he encontrado ningun ejemplo claro

Gracias de antemano!!

[ecfisa]

Empezado por jonydread

si necesito que cuando de click derecho sobre un archivo .reg el usuario y seleccione
abrir con>mi aplicacion el programa se abra y cargue el archivo

Hola.

Te pongo un ejemplo muy simple. Sólo agregá un memo al form y el siguiente código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    Memo1.Lines.LoadFromFile(ParamStr(1));
  except
    raise Exception.Create('No se puede abrir el archivo');
  end;
end;

Saludos.

[jonydread]

se puede hacer que carge al opendialog donde puse // he intentado pero no lo logro

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    // (ParamStr(1));
  except
    raise Exception.Create('No se puede abrir el archivo');
  end;
end;