Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-07-2004
JoseQ JoseQ is offline
Miembro
 
Registrado: jul 2004
Posts: 167
Poder: 20
JoseQ Va por buen camino
cambiar registro

Alguien sabe como cambiar el programa predeterminado para abrir un tipo de imagenes(JPEG) cambiando el registro de windows XP
Responder Con Cita
  #2  
Antiguo 16-07-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
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!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 22-07-2004
Novás Novás is offline
Miembro
 
Registrado: oct 2003
Ubicación: Galicia
Posts: 146
Poder: 21
Novás Va por buen camino
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
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net
Responder Con Cita
  #4  
Antiguo 22-07-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
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.
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #5  
Antiguo 22-07-2004
Novás Novás is offline
Miembro
 
Registrado: oct 2003
Ubicación: Galicia
Posts: 146
Poder: 21
Novás Va por buen camino
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.
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net
Responder Con Cita
  #6  
Antiguo 22-07-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
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.
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #7  
Antiguo 22-07-2004
Novás Novás is offline
Miembro
 
Registrado: oct 2003
Ubicación: Galicia
Posts: 146
Poder: 21
Novás Va por buen camino
Muchas gracias, ya me funciona a las mil maravillas
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 06:37:33.


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
Copyright 1996-2007 Club Delphi