hola a tod@s soy nuevo en el foro
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
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
reg.OpenKey(FileExt + '\DefaultIcon', true);
reg.WriteString('', Application.ExeName + ',0');
reg.CloseKey;
reg.free;
end;
hasta aqui todo bien pero...
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)
y este abra mi aplicacion (cosa q ya hace
) y se cargue la info en el
porfa espero respuestas;
gracias de antemano