如何VirtualProtect修改整个内存

VirtualProtect能修改指定内存区域的存取保护方式,我想请教下高手们如果要修改整个内存的存取方式应该怎么办呢?
附上我修改指定区域的源码:
procedure TForm1.Button1Click(Sender: TObject);
var
dz:pointer;
lp:MEMORY_BASIC_INFORMATION;
begin
dz:=pchar($400000);
Virtualquery(dz,lp,sizeof(lp));
VirtualProtect(dz,lp.RegionSize,PAGE_NOACCESS,lp.AllocationProtect);
end;