问个Delphi关于SEH的问题

2009-11-08 07:06:16 148 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

统信UOS V20 安装mysql5.7.42详细教程到bin/下，执行下面的命令，初始化mysql服务信息,得到数据库的初始密码，实际如果目录不一样记得换成自己的目录。下载后通过远程将安装包上传至服务器，我这里将安装包上传至/usr/local/mysql 下。ps：这时候如果还是不能远程访问的话，可能是防火墙的原因，命令行执行以下命令即可。再次登录，发现缺少 libtinfo.so.5文件，再次建立软连接。登录，发现报错，提示缺少libncurses.so.5文件，使用。创建 /var/lib/ 下mysql目录。登录成功，修改密码，设置远程访问。阅读详情

先看代码



function ExceptionProc(pExcept:PExceptionRecord;

                      pFrame:Pointer;

                      pContxt:PContext;

                      pDispatcher:Pointer):Integer;stdcall;

begin

  ShowMessage('1111');



  Result:=0;

end;





procedure TForm1.Button1Click(Sender: TObject);

asm

  //try



  push ebp

  push offset ExceptionProc

  push fs:[0]

  mov fs:[0],esp



  xor edx,edx

  mov [edx],1



  pop dword ptr fs:[0]

  add esp,4

  pop ebp

end;

异常能捕获到了,但是一直弹出对话框呀.

希望有朋友能帮我讲解下,貌似有人说把pContext指向下一个.但是不是很明白希望大牛指导.
附上Delphi自己的trye的代码
Unit1.pas.39: Try
00452704 33D2 xor edx,edx
00452706 55 push ebp
00452707 6821274500 push $00452721
0045270C 64FF32 push dword ptr fs:[edx]
0045270F 648922 mov fs:[edx],esp

Unit1.pas.40: a.Show;
00452712 E811B3FFFF call TCustomForm.Show
00452717 33C0 xor eax,eax
00452719 5A pop edx
0045271A 59 pop ecx
0045271B 59 pop ecx
0045271C 648910 mov fs:[eax],edx
0045271F EB14 jmp +$14
00452721 E91E12FBFF jmp @HandleAnyException

Unit1.pas.42: ShowMessage( '1111' );
00452726 B844274500 mov eax,$00452744
0045272B E85C8DFDFF call ShowMessage
00452730 E87715FBFF call @DoneExcept

Unit1.pas.44: End;
希望有人共同探讨下,谢谢了.

...全文