Foros Club Delphi - cargar un archivo (la info) en tu aplicacion

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - cargar un archivo (la info) en tu aplicacion (https://www.clubdelphi.com/foros/showthread.php?t=31151)

cargar un archivo (la info) en tu aplicacion

hola a tod@s soy nuevo en el foro :D :) apenas hace unas horas, encontre el codigo de mas abajo pero tengo un problema lo que quiero es que un archivo con una extension q yo creé, llame a mi programa y en el se cargue la info de ese archivo :cool:

gracias de antemano ;)

encontre esto:

uses Registry;

procedure TForm1.FileFormatAssociations;
var
reg: TRegistry;
FileExt : String;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.LazyWrite := false;

FileExt := '.nad'; // nuevo archivo de datos;

//Borrar la Clave - Esto es importante !!!
reg.OpenKey(FileExt, true);
reg.WriteString('', FileExt);
reg.CloseKey;

//Invocamos al programa pasando el nombre del fichero como primer parámetro
reg.OpenKey(FileExt + '\shell\open\command', true);
reg.WriteString('', Application.ExeName + ' "%1"');
reg.CloseKey;

//El icono mostrado será el primer icono del ejecutable del programa
// supuestamente :confused:
reg.OpenKey(FileExt + '\DefaultIcon', true);
reg.WriteString('', Application.ExeName + ',0');
reg.CloseKey;

reg.free;
end;

hasta aqui todo bien pero... :o

el problema es que no carga la info del archivo en mi aplicacion...
probé con un memo pero supone la ruta del archivo y asi no me sirve
la idea es que le d doble Click al archivo (.nad) :D y este abra mi aplicacion (cosa q ya hace:D ) y se cargue la info en el :)

porfa espero respuestas;:)

gracias de antemano

Hola, revisa las propiedades ParamStr, que te devuelve los parámetros que recibe tu aplicacion y ParamCount (cantidad de parametros recibidos).
Seguramente ParamStr(1) va a ser la ruta del archivo que se abrió.

Bytes...

PD: Para escribir el codigo Delphi tenes las etiquetas Delphi.

Gracias por Responder ;) pero...

Cita:

Empezado por Sotrono

buena idea pero sigo sin saber:(
lo q pasa es q cuando abro el archivo se abre mi aplicacion (y vale...:) )
pero la info q tengo el archivo no se carga, m dijeron q buscara en el registro y averiguará la supuesta ruta de ese archivo pero m dejaron en las mismas no se como se hace eso :(

Cita:

Empezado por diniremix

pero la info q tengo el archivo no se carga, m dijeron q buscara en el registro y averiguará la supuesta ruta de ese archivo pero m dejaron en las mismas no se como se hace eso

Pero la "supuesta ruta de ese archivo" la tenés en ParamStr(1). Lo que tenes que hacer es abrir el archivo que se te pasa como parametro.
Proba haciendo un ShowMessage(ParamStr(1));

bueno, el windows no le va a decir a tu programa que abra el menu archivo y le ponga en la opcion abrir y seleccione el archivo, lo que hace es mandar llamar tu programa de la siguiente forma:

programa.exe c:\rutadelarchivo\archivo.ext

TU tienes que encargarte de procesar la informacion como te dijeron en otro mensaje, paramstr(1) te devuelve el parametro que seria

c:\rutadelarchivo\archivo.ext

lo que tienes que hacer es al iniciar el programa revisar si paramstr(1) para ver si contiene algo y si es asi, abrir el archivo

bien d todas formas

gracias por la info

bien d todas formas intentare a sip q probare y sip alguna cosa t mando el Source para q le eches un vistazo vale :D

Hola de Nuevo y gracias

gracias pregunta tonta pueden darme sus mail para conversar fuera del foro o como hago para mandar datos adjuntos lei pero no tendo:o :(

Para enviar archivos adjuntos, cuando estas creando un nuevo post, vas a "Opciones Adicionales" y haces click en el boton "Manejar archivos adjuntos", luego te sale una ventana en donde tenes que cargar los archivos. Para enviarlo comprimi todo el proyecto en un archivo zip.