En busca del "hilo" perdido

[Alcolea]

Hola a todos:

Hace ya algún tiempo encontré un hilo que me venia de maravillas para el proyecto en que comenzaría a trabajar en breve, ya comencé y las notas que tomé del hilo han desaparecido de mis apuntes y por mas que lo he buscado en los foros no logro localizarlo, entonces pregunto:

¿Cómo hacer para asociar una extensión a mi programa y esta sea reconocida como tal por el sistema?

¿Cómo al hacer doble clic a un archivo generado por mi aplicación hacer que esta se abra?

[[seoane]]

Prueba con este hilo, puede que te sirva

[Alcolea]

Muchas gracias, ahora pruebo y luego te cuento.

[Alcolea]

Dentro del código encuentro tres variable que me impiden correr el programa y no se exactamente que papel tiene dentro del procedimiento, me puedes decir para que son.

Las errores son:

[Error] Unit1.pas(168): Undeclared identifier: 'rsRegRoot'
[Error] Unit1.pas(169): Undeclared identifier: 'rsRegExtensiones'
[Error] Unit1.pas(169): Undeclared identifier: 'rsBarraIzq'

Otra cosa muy importante sería saber don debo colocar el código

[Casimiro Notevi]

recuerda este sitio (trucomania), encontrarás multitud de truquitos interesantes.

[Alcolea]

Resulta que el hilo recomendado por Seoane es exactamente lo que busco, pero, la primera parte de la respuesta no la entiendo del todo, como describo arriba, encuentro tres variable que no comprendo bien su significado y no se por que sustituirlas en mi código, no obstante con la segunda parte de la respuesta, del hilo recomendado, que no debería funcionar, funciona gracias a que al ejecutar uno de los archivos creados por mi programa le “digo al SO” que lo habrá con mi programa y a partir de ahí ya se reconoce permanentemente el vínculo entre mi programa y el tipo de archivo creado, esto es con Windows XP. Pero lógicamente esta no es la solución definitiva.

Por lo que agradecería mucho quien me pudiera describir con un poco de detalles el significado dentro del procedimiento siguiente de las tres variables que menciono.

Código Delphi [-]
procedure AsociarExtension(extension: string);
var
  reg: TRegistry;
  temp, tipo: string;
begin
  tipo := rsProyecto + Copy(UpperCase(extension),  // rsProyecto >>> no se que es
    2, Length(extension));
  reg := TRegistry.Create;
  try
    with reg do begin
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey(extension, true);
        temp := ReadString(EmptyStr);
        WriteString(EmptyStr, tipo);
      CloseKey;
      OpenKey(tipo + '\shell\open\command', true);
        WriteString(EmptyStr, ParamStr(0) +' "%1"');
      CloseKey;
      OpenKey(tipo + '\DefaultIcon', true);
        WriteString(EmptyStr, ParamStr(0) +',0');
      CloseKey;
      { Realizamos una copia de seguridad para
        que puedan "desasociarse" extensiones de
        archivo con el programa y recuperarse la
        información relativa a la misma.
      }
      if (temp <> EmptyStr) and (temp <> tipo) then
      begin
        RootKey := rsRegRoot;
        OpenKey(rsRegExtensiones +rsBarraIzq+ extension, true); // rsRegExtensiones  y  rsBarraIzq  >>> Tampoco lo entiendo del todo
          WriteString(EmptyStr, temp);
        CloseKey;
      end;
    end;
  finally
    reg.Free;
  end;
end;

{ Desasociar una determinada extensión de
  archivo asociada antes con este programa.
}
procedure DesasociarExtension(extension: string);
var
  reg: TRegistry;
  temp, tipo: string;
begin
  temp := EmptyStr;
  tipo := rsProyecto + Copy(UpperCase(extension),
    2, Length(extension));
  reg := TRegistry.Create;
  try
    with reg do begin
      RootKey := rsRegRoot;
      { Tratamos de recuperar el nombre del tipo
        de archivo perteneciente a la extensión,
        que previamente, si existía, guardamos
        en el procedimiento "AsociarExtension"
      }
      OpenKey(rsRegExtensiones +rsBarraIzq+ extension, false);
        temp := ReadString(EmptyStr);
      CloseKey;
      DeleteKey(rsRegExtensiones +rsBarraIzq+ extension);
      // Y, en cualquier caso...
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey(extension, false);
        WriteString(EmptyStr, temp);
      CloseKey;
      DeleteKey(tipo);
    end;
  finally
    reg.Free;
  end;
end;

Disculpen la ignorancia pero a los principiantes nos sucede no pocas veces.

Gracia por adelantado.

[dec]

Hola,

Alcolea, lo que ocurre es que ese código que copias lo puse yo mismo en los Foros... sin darme cuenta de que estaba en parte ligado a determinado proyecto, concretamente, sin percatarme de que había en los procedimientos ciertas variables "incomprensibles".

Creo que puedes olvidarte de dicho código y centrarte en lo que comenta Román en este Hilo. También es cierto que en TrucoManía hay este y este otro trucos que también pueden interesarte.

[Alcolea]

Aunque ya esoty a punto de lograrlo (eso creo) veré lo que me recomiendas y luego cuento.

Gracias, ustedes son geniales

[Alcolea]

Gracias dec nuevamente, era justo lo que necesitaba, además de resolver el problema he aprendido algo nuevo que siempre es importante.

[Alcolea]

Pues a pesar de la valiosa ayuda de ustedes y después de algunos días en que creí haber resulto el problema todo vuelve atrás ya que a pesar de crearse las claves del registro con los trucos que me recomendaron estas no cumplen su cometido al no llamarse al programa automáticamente al hacer un doble clic a un archivo creado por este y tampoco coger la imagen del icono esperado dichos archivo.

Esto solo me funcionó en la propia máquina donde manualmente había vinculado antes el tipo de archivo con el ejecutable, al probarlo en una computadora donde nunca se había corrido el programa se crean las claves, se pueden comprobar las claves con los comandos "assoc" y "ftype" y todo, y aun así no aparece el icono en los archivos ni se abre el ejecutable al hacer doble clic sobre ninguno. He tratado de comprobar si las claves creadas por el sistema cuando se realiza el vínculo entre el tipo de archivo y el ejecutable "manualmente" tienen alguna diferencia con las creadas por el código empleado y no la encuentro.

Agradecido como siempre espero que alguien pueda darme un poco de luz en este asunto.