Asociar una extension a un programa

Por Saiyine el 2001-01-01 00:00:00 - Secciones: DELPHI - Enlace permanente: 440

{Hay que poner Uses Registry
Solo WIN95 o superior, probablemente problemas en los NT
ext : extension
nom : nombre del tipo de ficheros
pro : cadena con la direccion _completa_ del programa, yo suelo usar paramstr(0)
icoindice : indice de icono del ejecutable, dejalo a 0 si no sabes que significa.
  RegistrarExtension('.jpg','Imagen JPEG',paramstr(0),0);
  RegistrarExtension('.pelicula','c:\utilidades\cine.exe',0);
}
procedure RegistrarExtension(ext,nom,pro : string; icoindice : integer);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  with reg do
    begin
      RootKey := HKEY_CLASSES_ROOT;
      LazyWrite := false;
      OpenKey(ext, true);
      WriteString('',nom);
      CloseKey;
      OpenKey(nom, true);
      WriteString('',nom);
      CloseKey;
      OpenKey(nom+'\shell\open\command', true);
      WriteString('',pro+' "%1"');
      CloseKey;
      OpenKey(nom+'\DefaultIcon',true);
      WriteString('',pro+','+inttostr(icoindice));
      CloseKey;
      free;
    end;
end;

Otras entradas de la web que podrian interesarte:

(499) nov 30 DELPHI Salir del programa con una ventana de 'SI,NO,CANCELAR'
(472) nov 30 DELPHI Dada una cadena con palabras y separadores, mostrar cada palabra en una linea de un memo
(894) nov 16 DELPHI Poner las ventanas de tu programa en Delphi encima de las demás (Always on top)
(470) nov 30 DELPHI Crear un componente en runtime (mientras el programa esta en marcha)
(476) nov 30 DELPHI Hacer que el programa espere un tiempo, como con el delay del turbo pascal

Vista previa (6/6/6, 6:66)

Fondos de pantalla

. . .

Secciones

Trucos de windows

Trucos de linux

Scripts en perl

Programas en C#

Fondos de pantalla

Letras de canciones

. . .

Tags de la web

Linux (118) - Delphi (56) - Tuiterbuc (52) - Imagenes (45) - English (42) - Java (31) - Videos (28) - Lyrics (27) - Windows (25) - Chorradas (21) - Futbol (20) - Publicidad (17) - Programas (17) - Javascript (16) - Programacion (14) - Perl (14) - Ideas (14) - Cine (12) - Php (11) - Slashdot (10) - Minipost (8) - Trucos (8) - Utilerias (7) - Frases (7) - Csharp (7) - Ubuntu (6) - Google (6) - Photoshop (6) - Fotos (6)

. . .

Descargas

ApagaPC
apagapc241.exe (4488)

LimpiaDocus
LimpiaDocus001.exe (3792)

RCM
rcm001.zip (3200)

Popmail
popmail-0.4-psmn.tar.gz (3272)

Manual de Delphi en PDF
delphi_pdf.zip (3904)

Evangelio del Perl
Evangelio_del_perl.pdf (3983)

Excel Simpsons
Excel Simpsons (3914)

. . .

Articulos

Algoritmo de Huffman Adaptativo

Mldonkey como servicio en windows

. . .

Utilerias

Conversor entre euros y dolares

Haciendo gráficas para webs facilmente

. . .

Proyectos Online

Fondos de pantalla

Picaday: imagenes sexys o chocantes.

Scarlett: fotos de Scarlett Johansson

WhatsmyIP: obtener tu IP pública

Uma Thurman: galeria de Uma Thurman

FunPics: imagenes graciosas

. . .

Blogs

Por lo que más querais, no entreis a estos: Tapanez, Yhandros, Onez.

Otros en español: El Mundo Today, La libreta de Van Gaal, Chavalina, Kirai, Mundo Geek, Microsiervos.

Mis lecturas en guiri: Michael Yon, Coding Horror, YCombinator news, MySQL Performance, Slashdot.

. . .

Utilidades

Coral (1645), cacheando webs

Spam.la (1983), correo de usar y tirar

Mailinator (1887), correo de usar y tirar

Bug me not (1635), absurdos registros di NO

Trashmail (1692), correo de usar y tirar

. . .

Página web ©2001-2011 Saiyine descargada en s, con 6094734 visitas en total, hoy (de un total de 0 previstas).

. . .