Fórum Definir aplicativo padrão para abrir determinado arquivo #266200

Uses
     Windows, Messages .... Registry;  // Não esqueça de adicionar a
Unit Registry na sessão uses...

procedure TForm1.Button1Click(Sender: TObject);
Var
   Reg : TRegistry;

Begin
   Reg := TRegistry.Create;
   try
   with Reg do
   begin
       RootKey := HKEY_CLASSES_ROOT;
       OpenKey(´\MeuPrograma´, True);
       WriteString(´´, ´Arquivo do meu programa´); //Nome dado ao
arquivo de sua aplicação. "Ex: Imagem Gif".
       CloseKey;
       OpenKey(´MeuPrograma\DefaultIcon´, True);
       // O primeiro parâmetro da linha de comando abaixo, é para
escrever uma string vazia.
       // E o último parâmetro é para colocar o ícone da sua
aplicação nos arquivos que serão abertos por ela.
       WriteString(´´, Application.ExeName + ´,0´);
       CloseKey;
       OpenKey(´MeuPrograma\shell\open\command´, True);
       WriteString(´´, Application.ExeName + ´ "¬1"´);
       CloseKey;
       RootKey := HKEY_CLASSES_ROOT;
       OpenKey(´\.ext´, True); // Substitua o "ext" pela extensão que
você deseja utilizar.
       WriteString(´´, ´MeuPrograma´);
       CloseKey;
   end;
   finally
   Reg.CloseKey;
   Reg.Free;
end;
End;

Uses
     Windows, Messages .... Registry;  // Não esqueça de adicionar a
Unit Registry na sessão uses...

procedure TForm1.Button1Click(Sender: TObject);
Var
   Reg : TRegistry;

Begin
   Reg := TRegistry.Create;
   try
   with Reg do
   begin
       RootKey := HKEY_CLASSES_ROOT;
       OpenKey(´\MeuPrograma´, True);
       WriteString(´´, ´Arquivo do meu programa´); //Nome dado ao
arquivo de sua aplicação. "Ex: Imagem Gif".
       CloseKey;
       OpenKey(´MeuPrograma\DefaultIcon´, True);
       // O primeiro parâmetro da linha de comando abaixo, é para
escrever uma string vazia.
       // E o último parâmetro é para colocar o ícone da sua
aplicação nos arquivos que serão abertos por ela.
       WriteString(´´, Application.ExeName + ´,0´);
       CloseKey;
       OpenKey(´MeuPrograma\shell\open\command´, True);
       WriteString(´´, Application.ExeName + ´ "¬1"´);
       CloseKey;
       RootKey := HKEY_CLASSES_ROOT;
       OpenKey(´\.ext´, True); // Substitua o "ext" pela extensão que
você deseja utilizar.
       WriteString(´´, ´MeuPrograma´);
       CloseKey;
   end;
   finally
   Reg.CloseKey;
   Reg.Free;
end;
End;