[NOCaut]

"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;

Админ: Учимся пользоваться тегами по назначению!