delphi编写的插件,关闭IE时出现runtime error 216的解决方法

missingzlp

于 2019-08-12 18:46:41 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： runtime

本文链接：https://blog.youkuaiyun.com/missingzlp/article/details/99322705

Delphi 专栏收录该内容

36 篇文章

订阅专栏

本文详细介绍了在Delphi中如何安全地调用Halt函数，分别在EXE和DLL环境下实现，通过汇编语言确保程序的正确终止。在EXE环境下，通过在main函数中调用Halt0过程实现；在DLL环境下，则是在DLL_PROCESS_DETACH事件中调用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、EXE的情况，把代码放在工程文件
procedure Halt0;
begin
Halt;
end;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
asm
    xor edx, edx
    push ebp
    push OFFSET @@safecode
    push dword ptr fs:[edx]
    mov fs:[edx],esp
    call Halt0
    jmp @@exit;
    @@safecode:
      call Halt0;
    @@exit:
end;
end.
二、DLL的情况，把代码放在工程文件里
procedure Halt0;
begin
Halt;
end;
var
OldProc: Pointer;
procedure DLLEntryPoint(dwReason: DWord);
begin
if (dwReason = DLL_PROCESS_DETACH) Then
Begin
    asm
      xor edx, edx
      push ebp
      push OFFSET @@safecode
      push dword ptr fs:[edx]
      mov fs:[edx],esp
      call Halt0
      jmp @@exit;
      @@safecode:
        call Halt0;
      @@exit:
    end;
end;
end;
begin
DllProc := @DLLEntryPoint;
DllProcEX := @DLLEntryPoint;
end.