Ver Mensaje Individual
  #3  
Antiguo 22-07-2004
Novás Novás is offline
Miembro
 
Registrado: oct 2003
Ubicación: Galicia
Posts: 146
Reputación: 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