在动态库中如何实现全局变量,如要做到aa: TObjectList这个全局变量,在什么地方实现aa := TObjectList.Create这个; 谢谢,请高手指教.

解决方案 »

  1.   

    在你使用之前写都中!或者干脆在DLLPROC开始的时候!
      

  2.   

    应该是在DllEnterPoint(DWReason:DWord);里初始化
      

  3.   

    这样也行:
    library Test; 
    {$S-} 
    uses WinTypes, WinProcs; 
    var 
    SaveExit: Pointer; procedure LibExit; far; 
    begin 
    if ExitCode = wep_System_Exit then 
    begin 
    { 系统关闭时的相应处理 } 
    end 
    else 
    begin 
    { DLL卸出时的相应处理 } 
    end; 
    ExitProc := SaveExit; { 恢复原来的退出过程指针 } 
    end; begin 
    {DLL的初始化工作 } 
    SaveExit := ExitProc; { 保存原来的退出过程指针 } 
    ExitProc := @LibExit; { 安装新的退出过程 } 
    end.