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?:confused:

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

[seoane]

Prueba con este hilo (http://www.clubdelphi.com/foros/showthread.php?t=31894), 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 (http://www.q3.nu/trucomania/) (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.


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 (http://clubdelphi.com/foros/showthread.php?p=47499#post47499). También es cierto que en TrucoManía hay este (http://www.q3.nu/trucomania/truco.cgi?545&esp) y este otro (http://www.q3.nu/trucomania/truco.cgi?427&esp) 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.:D :D :D

[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.:confused: :confused: :eek: :( :mad: