内联汇编。出错处理

function FH():Boolean; var pcall:Integer; begin pcall:=$00BB65E0; try asm push 0 mov ecx,$01114A10 call pcall end except Result:=False ; Exit; end; Result:=True; end;

Function GetDword(p:dword):Dword;stdcall; begin Result:=0; try if p>$400000 then begin  if IsBadReadPtr(p,4) then Result:=pdword(p)^; end; except //异常 Result:=0; end; end;