有关动态库全局变量问题,请高手指教 在动态库中如何实现全局变量,如要做到aa: TObjectList这个全局变量,在什么地方实现aa := TObjectList.Create这个; 谢谢,请高手指教. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在你使用之前写都中!或者干脆在DLLPROC开始的时候! 应该是在DllEnterPoint(DWReason:DWord);里初始化 这样也行: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. delphi中的大数异或 静态数据作为参数的问题,快速copy一个静态数组的数据到另一个数组。 如何获得女声语音文件 请教各位:如何将毫秒转化为秒??谢谢 lable显示信息不全 怎么在DELPHI里读取WORD文档里的表格内容啊! Delphi6中使用ADO控件,如何得知Access表中哪个是索引字段? 一个简单问题,肯定送分 如何将.IDL文件反转为*_TLB.PAS或.TLB文件? 会议室管理系统能加什么算法啊 请教:nvarchar型的数据模糊查询查不出来? 大家推荐一款笔记本~
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.