procedure TForm1.Button3Click(Sender: TObject);
var
ph,h: THandle;
p: TPoint;
begin
ph:= FindWindow(nil, 'Internet Options');
if IsWindow(ph) then
begin
ph:= FindWindowEx(ph,0,Nil,'Security');
if IsWindow(ph) then
begin
p.x:= 281;
p.y:= 127;
h:= ChildWindowFromPoint(ph, p);
if IsWindowEnabled(h) then
EnableWindow(h,False)
else
EnableWindow(h,True);
end;
end;
end;