forarrays.via

来自「一个用VB写的很好的编译器,功能超好,不过就是代码有点多,是进一步学习编译的好」· VIA 代码 · 共 23 行

// ForArrays.lnl

application PE GUI entry main;

include "Windows.inc";

const HEAP_NO_SERIALIZE	 = 1;
const HEAP_GENERATE_EXCEPTIONS = 4;
const HEAP_ZERO_MEMORY = 8;

frame main();
	dword yo;
	local dword dwHeapHandle;
	local dword dwHeapAlloc;
	dwHeapHandle = HeapCreate(0,0,0);
	dwHeapAlloc = HeapAlloc(dwHeapHandle,HEAP_ZERO_MEMORY,2000);
	yo = $20;
	MoveMemory(dwHeapAlloc,@yo,4);
	yo = 0;
	MoveMemory(@yo,dwHeapAlloc,4);
	MessageBox(0,"test","test",yo);
// yo, free me 
end;