Delphi中DLL初始化和退出处理
<1>利用Unit的
Initalization与Finalization这两个小节
可以在Unit的这两个小节中安排Unit的进入和退出，但是
Program
与
Library并没有这两个部分，所以只能写在Unit中。
<2>利用ExitProc变量
在Library的begin
..end.中间是可以写代码
的，
这里可以放置
DLL初始化代码
。如果想要做善后工作，则可以利用ExitProc变量。
我们首先在初始化代码
中
把ExitProc中包含的默认的善后过程地址保
存下来，然后把自定义的过程的地址赋给它，这样DLL退出时就会执
行我们制定的程序；在
自定义的过程的最后，把ExitProc恢复原来的
默认值，以便DLL能够继续完成原来默认的善后工作。下面是示例：
library
MyDLL;
...
OldExitProc: pointer;
...
procedure
MyExitProc;
begin
... //善后程序
ExitProc :=
OldExitProc;
end;
...
begin
... //初始化程序
OldExitProc := ExitProc;
ExitProc := @MyExitProc;
end.
<3>利用DllProc变量
和ExitProc一样，DllProc也是一个在Systemd单元中预定义的变
量。
在使用DLLProc时, 必须先写好一个具有以下原型的程序:
procedure
DLLHandler(Reason: integer);
并在library的begin
..end.之间,
将这个DLLHandler程序的执行地
址赋给DLLProc中, 这时就可以根据参数Reason的值分别作出相应的
处理。另外注意要
将Windows单元加入uses子句。示例如下:
library TestDLL;
...
procedure
MyDLLHandler(Reason: integer);
begin
case Reason of
DLL_PROCESS_DETACH:
begin
ShowMessage('整个DLL的善後程序');
end;
DLL_Process_Attach:
begin
ShowMessage('整个DLL的初始化代码
');
end;
DLL_Thread_Attach:
begin
ShowMessage('当主叫端开始一个Thread时');
end;
DLL_Thread_Detach:
&n
相关文档：
dll文件简介：
它是Dynamic Link Library 的缩写形式，DLL 是一个包含可由多个程序同时使用的代码和数据的库，DLL不是可执行文件。动态链接提供了一种方法，使进程可以调用不属于其可执行代码的函数。函数的可执行代码位于一个 DLL 中，该 DLL 包含一个或多个已被编译、链接并与使用它们的进程分开存储的函数。DLL 还有助� ......
最近需要安装第三方组件，在网络上找到一些资料转过来看看
由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组件的安装方法介绍一下。
1 只有一个DCU文件的组件。DCU文件是编译好的单元文件，这样的组件是作者不想把源码公� ......
1、保证你传递的参数要正确：C++中的char *对应PASCAL中的pchar。
2：C++中导出的函数的参数调用方式要和你DELPHI中的导入的函数参数调用方式要一致!
例如： C++的参数调用方式 对应的DELPHI的参数调用方式
_declspec ......
虽然用盗版是件很不光彩的事情,但是这个软件目前实在是买不起.呵,折磨了数月,而今天却不经意间成功了. 实在是难掩心中快感.
这所谓的破解过程相当简单
百度搜索一下
Delphi.Distiller.v1.85
解压后运行,点到DELPHI2010页面,>Tweat>再勾上Remove Delphi 2010 Updata....,再点击Clear All Embarcadero...
接着就OK ......
1、控制POS机的客户显示屏
procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);
//Moneey_Port 顾显接口Com1 or Com2 Money_String 顾显显示的内容
var
PrnFile ......
