Не регистрируются ассоциации файлов

[BLACK_RAIN]

Здравствуйте.
Пытаюсь зарегистрировать ассоциации файлов для своей программы. Пишу на Delphi 7 + WinAPI.

uses
  windows, shlobj;

function RegSetValue(RootKey: HKEY; Name: string; ValType: Cardinal; PVal:
  Pointer; ValSize: Cardinal): boolean;
var
  SubKey: string;
  n: integer;
  dispo: DWORD;
  hTemp: HKEY;
begin
  Result := False;
  n := LastPos('\', Name);
  if n > 0 then
  begin
    SubKey := Copy(Name, 1, n - 1);
    if RegCreateKeyEx(RootKey, PChar(SubKey), 0, nil, REG_OPTION_NON_VOLATILE,
      KEY_WRITE,
      nil, hTemp, @dispo) = ERROR_SUCCESS then
    begin
      SubKey := Copy(Name, n + 1, Length(Name) - n);
      Result := (RegSetValueEx(hTemp, PChar(SubKey), 0, ValType, PVal, ValSize)
        = ERROR_SUCCESS);
      RegCloseKey(hTemp);
    end;
  end;
end;

function RegSetString(const RootKey: HKEY; const key,ident,Value: string): boolean;
var
name : string;
begin
  name := key+'\'+ident;
  Result := RegSetValue(RootKey, Name, REG_SZ, PChar(Value + #0), Length(Value)+1);
end;


procedure SetAssoc(const Ext,exe,cmmd,descr : string);
begin
  RegSetString(HKEY_CLASSES_ROOT,'.'+ext,'',ext+'file');
  RegSetString(HKEY_CLASSES_ROOT,'.'+ext+'\OpenWithList\'+extractfilename(exe),'','');
  RegSetString(HKEY_CLASSES_ROOT,ext+'file','',descr);
  RegSetString(HKEY_CLASSES_ROOT,ext+'file\shell','','ZeratoolOpen');
  RegSetString(HKEY_CLASSES_ROOT,ext+'file\shell\ZeratoolOpen','',cmmd);
  RegSetString(HKEY_CLASSES_ROOT,ext+'file\shell\ZeratoolOpen\command','',
                                     '"'+exe+'" "%1"');
end;

// вызов
SetAssoc('txt','Myexe.exe','Открыть666','Описалово');
          SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

Информация заносится в реестр, но продолжает действовать старая ассоциация.
Запуск от админа не помогает.
Что не так?
win7 x64

[Stilet]

Запуск от админа не помогает.

Перезагрузка тоже?

[BLACK_RAIN]

Сообщение от Stilet

Перезагрузка тоже?

Перезагрузка тоже не помогает.
помогает только ручное переназначение ассоциации через свойства файла.

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

Кеш иконок надо просто перезагрузить. Это доп. фенька с 7ки пошла.

[BLACK_RAIN]

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

А информирует об этом систему, за вас, дядя Петя?

          SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

а это разве не оно?

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

а это разве не оно?

Не заметил. Извиняйте.
Кэш картинок надо перезагрузить. Хотя у меня это само происходило в момент уведомления. Может не так что-то делаете?

[BLACK_RAIN]

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

Кэш картинок надо перезагрузить.

как это сделать? Это поможет, даже если перезагрузка системы не помогает?

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

Может не так что-то делаете?

а как еще-то?

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

как это сделать? Это поможет, даже если перезагрузка системы не помогает?

Вот тут уже интересно. Вы явно не так регистрацию расширения делаете.

Как минимум запись в HKEY_CLASSES_ROOT - это не хорошо. Данная ветка реестра реально не существует вообще. её создает система и заносит туда все файловые ассоциации из HKEY_CURRENT_USER\Classes\ от всех учетных записей в системе.

Пробовали через обычный TRegistry?

Далее как минимум над так. А у вас ошибка.

  RegSetString(HKEY_CLASSES_ROOT,'.'+ext,'',ext+'file');
  RegSetString(HKEY_CLASSES_ROOT,'.'+ext+'\OpenWithList\'+extractfilename(exe),'','');
  RegSetString(HKEY_CLASSES_ROOT,ext+'file','',descr);
  RegSetString(HKEY_CLASSES_ROOT,ext+'file\shell','','Open');
  RegSetString(HKEY_CLASSES_ROOT,ext+'file\shell[B]\Open','',cmmd);
  RegSetString(HKEY_CLASSES_ROOT,ext+'file\shell\Open\command','',
                                     '"'+exe+'" "%1"');

[BLACK_RAIN]

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

Как минимум запись в HKEY_CLASSES_ROOT - это не хорошо. Данная ветка реестра реально не существует вообще. её создает система и заносит туда все файловые ассоциации из HKEY_CURRENT_USER\Classes\ от всех учетных записей в системе.

Тогда куда реально система прописывает ассоциации? Я смотрел в редакторе реестра - у меня нет ветки HKEY_CURRENT_USER\Classes\.

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

Пробовали через обычный TRegistry?

Хотелось бы обойтись только WinAPI-функциями.

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

Далее как минимум над так. А у вас ошибка.

Сначала я так и делал. Оно несколько раз сработало (даже без вызова SHChangeNotify), а потом перестало.
p.s. Вроде разобрался.
Надо прописать изменение значения в ветке 'HKEY_CURRENT_USER\Software\Microso ft\Windows\CurrentVersion\Explorer\ FileExts\.'+ext.

function RegDelKey(RootKey: HKEY; Name: string): boolean;
var
  SubKey: string;
  n: integer;
  hTemp: HKEY;
begin
  Result := False;
  n := LastPos('\', Name);
  if n > 0 then
  begin
    SubKey := Copy(Name, 1, n - 1);
    hTemp := 0;
    if RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_WRITE, hTemp) = ERROR_SUCCESS
      then
    begin
      SubKey := Copy(Name, n + 1, Length(Name) - n);
      Result := (RegDeleteKey(hTemp, PChar(SubKey)) = ERROR_SUCCESS);
      RegCloseKey(hTemp);
    end;
  end;
end;

function RegSetValue(RootKey: HKEY; Name: string; ValType: Cardinal; PVal:
  Pointer; ValSize: Cardinal): boolean;
var
  SubKey: string;
  n: integer;
  dispo: DWORD;
  hTemp: HKEY;
begin
  Result := False;
  n := LastPos('\', Name);
  if n > 0 then
  begin
    SubKey := Copy(Name, 1, n - 1);
    if RegCreateKeyEx(RootKey, PChar(SubKey), 0, nil, REG_OPTION_NON_VOLATILE,
      KEY_WRITE,
      nil, hTemp, @dispo) = ERROR_SUCCESS then
    begin
      SubKey := Copy(Name, n + 1, Length(Name) - n);
      Result := (RegSetValueEx(hTemp, PChar(SubKey), 0, ValType, PVal, ValSize)
        = ERROR_SUCCESS);
      RegCloseKey(hTemp);
    end;
  end;
end;

function RegSetString(const RootKey: HKEY; const key,ident,Value: string): boolean;
var
name : string;
begin
  name := key+'\'+ident;
  Result := RegSetValue(RootKey, Name, REG_SZ, PChar(Value + #0), Length(Value)+1);
end;

procedure SetAssoc(const Ext,exe,cmmd,descr : string);
const
  key = 'Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts';
begin
  RegSetString(HKEY_CLASSES_ROOT,'.'+ext,'',ext+'file');
  RegSetString(HKEY_CLASSES_ROOT,'.'+ext+'\OpenWithList\'+extractfilename(exe),'','');
  RegSetString(HKEY_CLASSES_ROOT,'.'+ext+'\OpenWithProgIds',ext+'file','');
  RegSetString(HKEY_CLASSES_ROOT,ext+'file','',descr);
  RegSetString(HKEY_CLASSES_ROOT,ext+'file\shell','','Open');
  RegSetString(HKEY_CLASSES_ROOT,ext+'file\shell\Open','',cmmd);
  RegSetString(HKEY_CLASSES_ROOT,ext+'file\shell\Open\command','',
                                     '"'+exe+'" "%1"');
  RegSetString(HKEY_CURRENT_USER,key+'\.'+ext+'\OpenWithProgids',ext+'file','');
  RegDelKey(HKEY_CURRENT_USER,key+'\.'+ext+'\UserChoice');
  RegSetString(HKEY_CURRENT_USER,key+'\.'+ext+'\UserChoice','Progid',ext+'file');
end;

Всем респект!

[Stilet]

куда реально система прописывает ассоциации?

А вот на такие вопросы может ответить программа RegMon.
Рекомендую на будущее.