Fórum Setar um ícone para meu tipo de arquivo Ex: quot;*.meuquot #197213

function RegisterShellExt(const Ext, ExtName, Description, Path, Icon: String): Boolean;
// Ext precisa incluir o ponto
// ExtName é como a extensão é conhecida pelo shell
// Icon pode ser o caminho de um .exe, .dll, .ico
begin
  Result := False;
  with TRegistry.Create do
  try
    RootKey := HKEY_CLASSES_ROOT;
    if OpenKey(Ext, True) then
    begin
      WriteString(´´, ExtName);
      if OpenKey(ExtName, True) then
      begin
        WriteString(´´, Description);
        if OpenKey(´\Shell\Open´, True) then
          WriteString(´´, ´Abrir´);
        if OpenKey(´\Command´, True) then
          WriteString(´´, ´Path´);
        if OpenKey(ExtName + ´\DefaultIcon´, True) then
          WriteString(´´, Icon);
        Result := True;
      end;
    end;
  finally
    Free;
  end;
end;

  RegisterShellExt(´.meu´, ´MeuArquivo´, ´Arquivo do tipo MeuArquivo´, ´C:\programa.exe´, ´C:\programa.exe,0´);