Evtl. funktioniert dieses
Exception-handling besser (Eigentlich müsste ich da mal exakt drüber lesen, wo was nach einer
Exception zu finden ist, hab aber grad nicht die Zeit).
Hier der erste Teil (am anfang von Info), der Rest bleibt gleich.
Delphi-Quellcode:
asm
xor edx,edx
mov isexception,edx
push ebp
call @@1
@@1:
add [esp],12
push dword ptr fs:[edx]
mov dword ptr fs:[edx],esp
jmp @@
try
@@
except:
mov eax,esp
add eax,4
mov esp,[esp+8]
mov ebp,[esp+8]
inc isexception
xor edx,edx
pop dword ptr fs:[edx]
pop edx
pop ebp
mov eax,[eax]
mov edx,dword ptr [eax]
mov wparam,edx
mov edx,[eax+12]
mov lparam,edx
@@
try:
end;
Jetzt brauchst du zumindest die unsicher Variable "myexception" nicht mehr