procedure hhcall(hhnr:pointer); 
Var
 ecx1:integer;
 adderss:pointer;
begin
adderss:=pointer($0D222325);
ecx1:=integer(pointer($00434220+$8)^);
asm
pushad
mov ecx,ecx1
push    ecx
mov     eax,hhnr   //这里是长度为 128 的asii字符串地址
push    eax
mov     ecx,$0D81C9B0
push    ecx
mov     edx, $00000001
push    edx
mov     ecx,ecx1 
add     ecx, $30
call    adderss
popad
end;
end;问: 如何申请一个如上的地址传递过来?