XProfan

Español

Lo va sólo una vez en folgenden Ver código fuente:
Kompilieren Marca Separación

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

Como Profano algo verschwenderisch con Heaps umgeht, Yo el Ver código fuente el Einfachheit halber con Profano2Cpp compiliert.
Auf el Bildschirm se hier el Handle des con LocalAlloc erzeugten Speicherobjektes ausgegeben (en me 44564492):

[...]

Zuerst liste Yo entonces con [...]

Heaps des con el Ver código fuente erzeugten Prozesses:

[...]

Jetzt tue Yo veces así, como wäre el con LocalAlloc erlangte Handle una Adresse y lese con [...]

4 Bytes de dieser Adresse como dezimales Doubleword de:

[...]

En me erhalte Yo el Zahl 38118320.

[...]

Jetzt tue Yo otra vez veces así como wäre el erhaltene Zahl una Adresse. Wenn Yo ahora el vorher ausgelesenen Heapblöcke ansehe, finde Yo esta Adresse en me en el 1.Heap otra vez:

[...]

Jetzt schaue Yo veces con [...]

el Inhalt dieses Heapblocks algo genauer a, y zwar como dezimale Doublewords:

[...]

[...]

Nach el Kopieren en el Zwischenablage kommt en me el heraus:
[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]
Am Ende dieses Heapblockes es hier scheinbar el en el WIN32.HLP beschriebene Heapkontrollstruktur - y una Teil dieser Struktur es wiederum el Handle des vorher con LocalAlloc erzeugten Speicherbereichs (en me, como dijo, 44564492).

El todo Sache läßt se mittels folgendem Code auch nochmals näher überprüfen:
Kompilieren Marca Separación

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

Und auch así funktioniert lo:
Kompilieren Marca Separación

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