Ayuda para abrir un tipo de archivo

[ecfisa]

Hola RaulSaez, bienvenido a Club Delphi

Como se acostumbra con los que comienzan te invitamos a leer nuestra guía de estilo.

Revisa este enlace: Associate an application with a file extension

Saludos

[RaulSaez]

Sucede que eso ya lo sabía... el codigo le dice a Window con que programa se ejecuta ese tipo de archivo.... el problema es que cuando das dobleclick en un fichero en efecto mi aplicacion abre pero... abre tal y como cuando yo doy RUN en el delphi!!! la aplicacion no sabe que fichero fue el que la invocó .... quizas haya que pasarle algun parametro a la aplicacion o algo ni idea.... gracias por todo

[Neftali [Germán.Estévez]]

Empezado por RaulSaez

la aplicacion no sabe que fichero fue el que la invocó .... quizas haya que pasarle algun parametro a la aplicacion o algo ni idea.... gracias por todo

Busca información sobre ParamStr y ParamCount.

En ParamStr(0) está el nombre de la aplicación
En ParamStr(1) el primer parámetro => Tu nombre de fichero.

[RaulSaez]

Pero bueno... supongo que este tratamiento a los parametros debe estar en el FormActive o FormCreate ?no?.... Gracias estoy probando!!!!

[Neftali [Germán.Estévez]]

Puedes hacerlo en el fichero DPR o en el FormCreate/FormShow del principal.
Donde lo necesites dependiendo de lo que quieras hacer.

[ecfisa]

Hola RaulSaez.

No había interpretado bién la pregunta inicial pero sí, como te comentaron, en ParamStr vas a encontrar la ruta mas el nombre de archivo.

Saludos

[RaulSaez]

Amigos gracias... la respuesta fue tal y como me sujirieron una vez asociada la extención bastó con chequear el ParamStr(1) que contenía el nombre del fichero que hizo la llamada y en el OnCreate del formulario lo puse y funcionó a la perfección....
Saben tenía esta duda desde un programa que hice en Delphi 3 en el 2006 de locos!!! Gracias a toda la comunidad!

[[duilioisola]]

Cuando se llama a tu programa normalmente se lo llama

]Aplicacion.exe Fichero.PAR

Busca información sobre ParamCount y ParamStr(i)
Yo lo utilizo así:

Código Delphi [-]
var
  i: Integer;
begin
  // Tratamiento de parámetros de la aplicacion
  // - App.exe /nologo : no muestra el logo al cargar la aplicación
  // - App.exe /nobackground : oculta el fondo al iniciar la aplicación
  MostrarLogo := True;
  MostrarFondo := True;
  for i := 1 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = '/nologo' then
      MostrarLogo := False;
    if LowerCase(ParamStr(i)) = '/nobackground' then
      MostrarFondo := False;
  end;

  if (MostrarLogo) then
  ...

[[duilioisola]]

Te me adelantaste Neftali!