saber el path de un archivo dando click sobre el

[IVAND]

Hola a todos

Utilizo delphi 6 y fastreport 4

Mi intension es realizar un ejecuble q pasandole un parametro abra automaticamente un archivo de fastreport 4 (.fr3) , ya puede asignar a windows un programa por default q abra esta extension (truco de trucomania) , pero ahora como hago para saber la ruta del archivo antes de abrirle y poder pasar la ruta al ejecutable asignado para este fin

Ejemplo, coloco un archivo con el nombre informe.fr3 en el directio c:\integral\varios\informe.fr3 , si voy con el explorador de windows a ese directorio o cualquier otro donde hayan archivos con esa extension se dispara el ejecutable con el parametro indicado por el path


Gracias a todos por su ayuda , y dedicar un tiempito a leer esta duda


Un abrazo a la distancia

[[egostar]]

Empezado por IVAND

Hola a todos

Utilizo delphi 6 y fastreport 4

Mi intension es realizar un ejecuble q pasandole un parametro abra automaticamente un archivo de fastreport 4 (.fr3) , ya puede asignar a windows un programa por default q abra esta extension (truco de trucomania) , pero ahora como hago para saber la ruta del archivo antes de abrirle y poder pasar la ruta al ejecutable asignado para este fin

Ejemplo, coloco un archivo con el nombre informe.fr3 en el directio c:\integral\varios\informe.fr3 , si voy con el explorador de windows a ese directorio o cualquier otro donde hayan archivos con esa extension se dispara el ejecutable con el parametro indicado por el path


Gracias a todos por su ayuda , y dedicar un tiempito a leer esta duda


Un abrazo a la distancia

Solo tienes que asignar desde windows el programa con el que quieres abrir el archivo .fr3.

Windows genera lo necesario para enviarle el parámetro al programa con el path correspondiente, de hecho en el registro de windows se agrega una clave con la siguiente órden:

"X:\Proyectos\pruebas\param\EditorTexto.exe" "%1"

Solo debes hacer una pequeña modificación a tu código.

Código Delphi [-]

procedure TForm1.FormShow(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(paramstr(1));
end;

con eso al dar doble clic al archivo se abre automáticamente como lo puedes ver en la imagen que adjunto.

saludos

[ecfisa]

Hola Ivand.

No sé si entdí bién lo que buscas pero para enviarle el nombre del archivo al ejecutable,
podés usar la función ParamStr.


Saludos.

[ecfisa]

Egostar fué más rápido, y más explicito también...

[IVAND]

Gracias por sus respuestas , me seran de mucha ayuda probare y comentare lo q me ocurrio