XProfan

Français

und dir seulement einmal um folgenden Voir le texte source:
Kompilieren Marque Séparation

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

là Profan quelque chose verschwenderisch avec Heaps umgeht, habe Je l' Voir le texte source qui simplicité halber avec Profan2Cpp compilé.
sur dem Bildschirm wird ici cela Handle des avec LocalAlloc erzeugten Speicherobjektes ausgegeben (chez mir 44564492):

[...]

d'abord liste je ensuite avec [...]

Heaps des avec dem Voir le texte source erzeugten Prozesses:

[...]

maintenant tue je la fois so, comme wäre cela avec LocalAlloc erlangte Handle une Adresse et lese avec [...]

4 Bytes ab cette Adresse comme dezimales Doubleword aus:

[...]

chez mir erhalte je qui numéro 38118320.

[...]

maintenant tue je wieder la fois so comme wäre qui erhaltene numéro une Adresse. si je mir maintenant qui auparavant ausgelesenen Heapblöcke ansehe, finde je cet Adresse chez mir im 1.Heap wieder:

[...]

maintenant schaue je mir la fois avec [...]

den le contenu cet Heapblocks quelque chose genauer à, et zwar comme dezimale Doublewords:

[...]

[...]

Pour dem Kopieren dans qui Zwischenablage venez chez mir cela 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 cet Heapblockes steht ici scheinbar qui dans qui WIN32.HLP beschriebene Heapkontrollstruktur - et un partie cette Struktur steht wiederum cela Handle des auparavant avec LocalAlloc erzeugten Speicherbereichs (chez mir, comment dit, 44564492).

qui ganze l'affaire läßt sich mittels folgendem Code aussi nochmals näher überprüfen:
Kompilieren Marque Séparation

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

et aussi so funktioniert es:
Kompilieren Marque Séparation

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