Aplicacion predeterminado para abrir archivos

[Sotrono]

Hola. Como va?
Lo que quiero hacer es que mi aplicacion sea la predeterminada para abrir archivos con una extension en especial. O sea que al hacer doble click, por ejemplo en el archivo Curso.txt, me abra el editor de textos creado por mi.

[[Lepe]]

En Project---> Options tienes Target Extension, si pones algo Delphi registrará esa extensión automaticamente y saldrá el icono de tu aplicación para esa extensión.

Cuando das un doble clic sobre un archivo en el explorador de windows, se mira en el registro de windows que aplicación tiene asociada esa extensión, y se lanza una "Linea de comando", normalmente

"c:\....\Word.exe "c:\...\Mi documento.doc" [parametros opcionales]

Para averiguar los parametros, hay 2 opciones::
- Usa GetcommandLine para averiguar la linea completa
- Usa Paramstr[X] para obtener el parámetro que quieras.
Por ejemplo: Paramstr[0] --> es el nombre de tu aplicación
Paramstr[1] --> aqui seria el archivo de word

Usando GetCommandLine:

Código Delphi [-]

 // OnCreate de la ventana principal:
 commandline: String;
  forzar, reiniciar, apagar: Boolean;

begin

  commandline := getcommandline;
  if length(commandline) > 1 then
  begin
    forzar    := pos('forzar', lowercase(commandline)) > 0;
    apagar    := pos('apagar', lowercase(commandline)) > 0;
    reiniciar := pos('reiniciar', lowercase(commandline)) > 0;
    if forzar then
    begin
      if apagar then
        forzarapagar1click()
      else if reiniciar then
        forzarreiniciar1click()
    end
    else if apagar then
      apagar1click()
    else if reiniciar then
      reiniciar1click();

en este caso la aplicación puede recibir 3 parametros y se pueden conjugar:
forzar apagar
forzar reiniciar
apagar
reiniciar

Saludos.