显示和隐藏window桌面窗口.txt

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;