VPF::bad registration succeeded - Форум программистов

NOCaut

Дата 12.6.2012, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0

"registration succeeded" - но експлолрер ком обєкт не подхвачиват.. в чем может бить дело? было замечено на некоторых x64 ОС

Код


procedure RegUpdate(GUID: TGUID; Index: string);
var
  ClassID: string;
begin
  ClassID := GUIDToString( GUID );
  CreateRegKey('Software\Microsoft\Windows\CurrentVersion\Explorer\ShellIconOverlayIdentifiers\Ext' + Index, '', ClassID, HKEY_LOCAL_MACHINE);
 
      MessageBox(0,PWidechar(Index),'',0);
//  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
    with TRegistry.Create do
      try
        RootKey := HKEY_LOCAL_MACHINE;
        OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions', True);
        OpenKey('Approved', True);
        WriteString(ClassID, 'Icon Overlay Shell Extension');
      finally
        Free;
      end;
end;
 
begin
  if Register then
  begin
    { perform normal registration }
    inherited UpdateRegistry(Register);
    RegUpdate( Class_IconOverlay_Ok,     '1' );
  end
    else
      begin
      DeleteRegKey('Software\Microsoft\Windows\CurrentVersion\Explorer\ShellIconOverlayIdentifiers\Ext1', HKEY_LOCAL_MACHINE);
 
    inherited UpdateRegistry(Register);
    end;
end;

NOCaut

Дата 13.6.2012, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0

Да проблема видимо не в реестрации.. Остается найти причину что не дает explorer подхватить dll

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »