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

一、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.

 

来源：https://blog.csdn.net/missingzlp/article/details/99322705