Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   cambiar registro (https://www.clubdelphi.com/foros/showthread.php?t=12467)

JoseQ 16-07-2004 17:11:10

cambiar registro
 
Alguien sabe como cambiar el programa predeterminado para abrir un tipo de imagenes(JPEG) cambiando el registro de windows XP

delphi.com.ar 16-07-2004 17:33:06

Te recomiendo ver este código: http://www.torry.net/vcl/system/shell/associat.zip
Yo tengo código para esto, pero no te lo puedo pasar, por otro lado te recomiendo buscar información sobre "File Association".

Saludos!

Novás 22-07-2004 19:27:07

Hola, he conseguido el siguiente codigo para asignar una determinada extensión a mi programa... En este caso la extensión .tip

Código Delphi [-]
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CLASSES_ROOT;
  reg.LazyWrite := False;
{ Add Program Support}
  reg.OpenKey('.tip\shell\open\command', true);
{ Invoke the program passing the file name as the first parameter}
  reg.WriteString('', 'D:\PROPIOS\Tony\Tony.exe % ');
{ Add Icon Display}
  reg.CloseKey;
  reg.OpenKey('.tip\DefaultIcon', true);
{ Use the first icon in the executable to display}
  reg.WriteString('', 'D:\PROPIOS\Tony\Tony.exe,0');
  reg.CloseKey;
  reg.free;
end;

Mi pregunta es la siguiente:
Como puedo ahora cargar ese archivo en un TListView

delphi.com.ar 22-07-2004 19:35:06

Cita:

Empezado por Novás
...Como puedo ahora cargar ese archivo en un TListView

¿¿¿???.... es un poco amplia la pregunta, mas sabiendo que es un tipo de archivo propietario.

Novás 22-07-2004 19:40:40

Perdona, me explicaré mejor...

Ese archivo es un tipo de archivo (de texto ) que genera mi aplicación y lo único que contiene es una lista de ips, es decir, cada línea del archivo contiene una dirección ip.

Mi programa tiene una opción en la cual puedo habrir ese archivo mediante un cuadro de diálogo y cargarlo en en TListView.

Lo que yo quiero conseguir ahora es que, al hacer doble click sobre el archivo con extensión .tip se abra mi programa con las direcciones ip cargadas en el control TListView.

Espero haberme explicado mejor.

delphi.com.ar 22-07-2004 19:48:54

Ahhhhh...
Cuando defines el "shell\open\command" como "D:\PROPIOS\Tony\Tony.exe %1", significa que el sitio donde esta el %1 por el nombre del archivo que estas abriendo (open) al hacer Doble Click, si es que "open" es la acción por defecto de este tipo de archivo (este es tu caso).
Bueno, en tu aplicación recibirás como parámetro estos datos, y puedes consultarlos utilizando ParamStr()


PD: Te recomiendo poner el %1 entre comillas dobles.

Novás 22-07-2004 20:00:00

Muchas gracias, ya me funciona a las mil maravillas


La franja horaria es GMT +2. Ahora son las 20:41:50.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi