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

[JuanErasmo]

Buenas tardes amigos,.
Lo que pretendo es agregarle a cada archivo en el menu contextual ,
"abrir con" mi programa, , eso ya se como se hace,
pero en mi programa tiene que recibir los parametros,
para cuando se ejecute, abra efectivamente el archivo que lo llamo y lo cargue.

Mi programa recibe un archivo jpg, ,,,como hago para pasarle el parametro que lo llamo?
es decir, si la foto1.jpg, lo llamo, entonces, mi programa deberia cargar la foto1 al iniciarse...,,,,,,
Alguien sabe como se puede hacer esto???
Muchas Gracias!

[dec]

Hola,

Si hablamos de Delphi puedes contar con algunas variables, donde recibes siempre la información que se pasa al programa por la línea de comandos, al ser ejecutado.

Si no recuerdo mal tenemos "ParamsCount", que te indica el número de parámetros que se han pasado a tu ejecutable. Y luego contamos con la función "ParamStr", que, pasándole el índice de un parámetro, te retorna su valor.

En "ParamStr(0)" siempre, y digo, siempre, tendrás la ruta completa de tu ejecutable. Y, a partir de ahí... el resto de parámetros. Por ejemplo:

start C:\miprograma.exe "C:\archivo.jpg"

Suponiendo esa línea de comandos, "miprograma.exe" recibiría dos parámetros, empezando a contar desde cero, el primero, "C:\miprograma.exe", y, el segundo, "C:\archivo.jpg", y así sucesivamente.

[JuanErasmo]

Aplica esto si le dan doble click a un archivo jpg?
Como consulto ParamStr?
podrias mostrarme un ejemplo sencillo?

Muchas Gracias!

[jhonny]

Al abrir el ejecutable como tu dices, es como si hicieras esto, por ejemplo:

MiEjecutables.Exe C:\MiImagen.JPG

En ese orden de ideas vemos como la ruta de la imagen esta siendo entregada como parametro, entonces...

La función ParamStr te devuelve ese valor si le pasas como parametro el 1 , asi por ejemplo:

Código Delphi [-]
var
  RutaDeImagen :String;
begin
  RutaDeImagen := ParamStr(1);
end;

En la ayuda de delphi encontraras la información necesaria sobre dicha función .

La función ParamStr te devuelve ese valor si le pasas como parametro el 1 , asi por ejemplo:

Código Delphi [-]
var
  RutaDeImagen :String;
begin
  RutaDeImagen := ParamStr(1);
end;

En la ayuda de delphi encontraras la información necesaria sobre dicha función .

[jhonny]

, Veo que dec y JuanErasmo estan conectados con el foro el dia de hoy .

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