Ассоциация файлов с программой

[Человек_Борща]

Delphi 7/XE7 - Windows 8.1 x64 все работает.

[artemavd]

Сообщение от Человек_Борща

Delphi 7/XE7 - Windows 8.1 x64 все работает.

У меня Delphi XE и Windows 8.1 не работает вот...

[Человек_Борща]

под отладчиком пройдитесь)

А надо было читать сообщение #8

Даже идеальный код может работать не долго. Он устаревает. Ну не работает, так разберись. 4 года работал все радовались.

[min@y™]

// -------------------- Функции для работы с реестром --------------------------

// Регистрация расширения, установка иконки и ассоциативной программы
function RegFileExt(AExtension, AExtDescription, AFileDescription,
                    AOpenWith, AParamString: String; AIconIndex: Integer): Boolean;
  var  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
  with Reg do begin
    RootKey := HKEY_CLASSES_ROOT;
    OpenKey(AExtension, True);
    WriteString('', AExtDescription);
    OpenKey('\' + AExtDescription, True);
    WriteString('', AFileDescription);
    OpenKey('DefaultIcon', True);
    WriteString('', AOpenWith + ','+IntToStr(AIconIndex));
    OpenKey('\' + AExtDescription + '\Shell\Open\Command', True);
    WriteString('', '"' + AOpenWith + '" "' + AParamString + '"');
  end;
  Result := True;
  except
    Result := False;
  end;
  Reg.Free;
end;

// Проверка регистрации
function FileExtIsRegistered(const AExtension: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg:= TRegistry.Create;
  try
    Reg.RootKey:= HKEY_CLASSES_ROOT;
    Result:= Reg.KeyExists(AExtension);
  finally
    Reg.Free();
  end;
end;

// Удаление регистрации
function UnRegFileExt(AExtension, AExtDescription: String): Boolean;
  var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
     begin
      RootKey := HKEY_CLASSES_ROOT;
      DeleteKey(AExtension);
      DeleteKey('\' + AExtDescription);
     end;
   Result := True;
  except
   Result := False;
  end;
  Reg.Free;
end;

// Описание формата из реестра по расширению
function ExtToFileType(const Ext: string): string;
var
  Reg: TRegIniFile;
  LinkKey: string; // ccылка из ключа .ext на ключ Ext.File
begin
  Reg:= TRegIniFile.Create();
  try
    // Открытие ключа .ext
    Reg.RootKey:= HKEY_CLASSES_ROOT;
    if Reg.OpenKey('.' + Ext, False)
      then begin
             LinkKey:= Reg.ReadString('', '', '');
             Reg.CloseKey();
           end;

    // Открытие ключа Ext.File
    if Reg.OpenKey(LinkKey, False)
      then begin
             Result:= Reg.ReadString('', '', '');
             Reg.CloseKey();
           end;
  finally
    Reg.Free();
  end;

  if (LinkKey = '') or (Result = '')
    then Result:= 'Файл ''' + Ext + '''';
end;

// Описание формата из реестра по имени файла
function FileNameToFileType(const AFileName: string): string;
begin
  Result:= ExtToFileType(ExtractFileExtOnly(AFileName));
end;