XProfan

English

It's all right first once circa subesquent View source:
Compile Mark Separation

Def @LocalAlloc(2) !"KERNEL32","LocalAlloc"
Def @LocalFree(1) !"KERNEL32","LocalFree"
Declare HMEM&
LET HMEM&=@LocalAlloc($2 | $40,32)
PRINT HMEM&
Waitinput
@LocalFree(HMEM&)<

there Profan something lavish with Heaps bypassing, have I the View source the Simplicity halber with Profan2Cpp compiliert.
on the screen becomes here the lever the with LocalAlloc begot Speicherobjektes outputted (by me 44564492):

[...]

first list I then with [...]

Heaps the with the View source begot Prozesses:

[...]

now do I time so, as would with the LocalAlloc erlangte lever a address and read with [...]

4 Bytes ex this address as dezimales Doubleword from:

[...]

by me sustain I The number 38118320.

[...]

now do I again so as would The sustained number a address. If I me now The before ausgelesenen Heapblöcke ansehe, find I these address by me in the 1.Heap again:

[...]

now look I me time with [...]

whom Content this Heapblocks something accurate on, and of course as dezimale Doublewords:

[...]

[...]

After the copy into Clipboard comes by me the out:
[box:60341a6031]
X1=0
X2=0
X3=0
X4=0
X5=0
X6=0
X7=0
X8=0
X9=0
X10=44564492
X11=393249
X12=524544
[/box:60341a6031]
on the end this Heapblockes standing here apparently The in the WIN32.HLP beschriebene Heapkontrollstruktur - and a part this structure standing against the lever the before with LocalAlloc begot Speicherbereichs (by me, How said, 44564492).

The whole thing can itself through folgendem code too over again hither to check on:
Compile Mark Separation

Def @LocalAlloc(2) !"KERNEL32","LocalAlloc"
Def @LocalFree(1) !"KERNEL32","LocalFree"
Def @LocalLock(1) !"KERNEL32","LocalLock"
Def @LocalUnlock(1) !"KERNEL32","LocalUnlock"
Declare HMEM&
LET HMEM&=@LocalAlloc($2 | $40,32)
PRINT HMEM&
Print @Locallock(HMEM&)
Waitinput
@LocalUnlock(HMEM&)
@LocalFree(HMEM&)

and too so functions it:
Compile Mark Separation

Def @GlobalAlloc(2) !"KERNEL32","GlobalAlloc"
Def @GlobalFree(1) !"KERNEL32","GlobalFree"
Declare HMEM&
LET HMEM&=@GlobalAlloc($2 | $40,32)
PRINT HMEM&
Waitinput
@GlobalFree(HMEM&)