HanDs
管理员

[Delphi文章] 修复DLL入口函数 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

这是一个代码模板,以前集成在RarnuWizard中,由于Delphi版本更新而无法再使用
现提取其中的DLL入口修复模板给大家共享。

library { library name };

uses
SysUtils,Forms, Classes;

{$R *.res}

var
  DllApp: TApplication;
  DllScr: TScreen;

procedure DLLUnloadProc(Reason: Integer); register;
begin
  if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then
  begin
    Application := DllApp;
    Screen := DllScr;
  end;
end;

exports
  {your export functions here}

begin
  DllApp := Application;
  DllScr:= Screen;
  DllProc := @DLLUnloadProc;
end.


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
修复
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复