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