核心提示:procedure TForm1.Button1Click(Sender: TObject); var dz:pointer; lp:MEMORY_BASIC_INFORMATION; begin d...
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;