wep_system_exit和wep_free_dll为什么都说没有定义（关于dll卸载）

Question

代码如下library BG_Comm;{$DEFINE BG_Comm}
{$S-}
uses
  SysUtils,
  Classes,
  WinTypes,
  Winprocs,Dialogs ,
  Read_meter in 'Read_meter.pas';
  
 {$R *.res}
var SaveExit:Pointer;Procedure LibExit;far;
begin
  if ExitCode=wep_system_exit then
   begin
    bg_comm_destroy;//卸载过程
   end
   else
   begin
    bg_comm_destroy;//卸载过程
   end;   ExitProc:=SaveExit;
end;exports
set_comm_para index 1,
begin
        bg_comm_Build;
        SaveExit:=Exitproc;
        exitproc:=@libexit;
end.

Answer 1

你这个东西wep_system_exit 确实没有定义啊，你应该在
var SaveExit:Pointer;
后面定义的

Answer 2

可好些书上都没有写wep_system_exit需要定义
和它的值是多少。

Answer 3

那两个是这样定义的:#define WEP_SYSTEM_EXIT 1
#define WEP_FREE_DLL 0
也就是
const WEP_SYSTEM_EXIT=1;
const WEP_FREE_DLL=0;
相关内容看http://ycrjq.y365.com/shool/024.htm