procedure TFrmHideMenu.HidePopmenu;
var
reg:TRegistry;
buffer,size:integer;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftWare\Policies\Microsoft\Internet Explorer\restrictions',true);
buffer:=1;
reg.WriteBinaryData('NoBrowserContextMenu',buffer,1);
Reg.CloseKey;
reg.Free;
end;
procedure TFrmHideMenu.ShowPopmenu;
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftWare\Policies\Microsoft\Internet Explorer\restrictions',true);
reg.DeleteValue('NoBrowserContextMenu');
Reg.CloseKey;
reg.Free;
end;