[NOCaut]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

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;

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