5,939
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
VSaber 2001-12-15
- 打赏
- 举报
why???
是d6的bug,还是别的原因呢?
是d6的bug,还是别的原因呢?
liyb 2001-12-14
- 打赏
- 举报
在D6中是没用
VSaber 2001-12-14
- 打赏
- 举报
没人理会吗？听说在d5里面没问题，d6里面就不行了！
VSaber 2001-12-14
- 打赏
- 举报
哪位高手看看啊！
VSaber 2001-12-14
- 打赏
- 举报
上面这位可是在《delphi5编程指南》上抄下来的了，可惜这还真的没用，我也觉得很奇怪！调用和关闭动态库的时候根本就没有调用DllProc。
chechy 2001-09-20
- 打赏
- 举报
library DLLEntryLib;
uses
SysUtils,
Windows,
Dialogs,
Classes;
procedure DLLEntryPoint(dwReason: DWord);
begin
case dwReason of
DLL_PROCESS_ATTACH: ShowMessage('Attaching to process');
DLL_PROCESS_DETACH: ShowMessage('Detaching from process');
DLL_THREAD_ATTACH: MessageBeep(0);
DLL_THREAD_DETACH: MessageBeep(0);
end;
end;
begin
{ First, assign the procedure to the DLLProc variable }
DllProc := @DLLEntryPoint;
{ Now invoke the procedure to reflect that the DLL is attaching to the
process }
DLLEntryPoint(DLL_PROCESS_ATTACH);
end.
uses
SysUtils,
Windows,
Dialogs,
Classes;
procedure DLLEntryPoint(dwReason: DWord);
begin
case dwReason of
DLL_PROCESS_ATTACH: ShowMessage('Attaching to process');
DLL_PROCESS_DETACH: ShowMessage('Detaching from process');
DLL_THREAD_ATTACH: MessageBeep(0);
DLL_THREAD_DETACH: MessageBeep(0);
end;
end;
begin
{ First, assign the procedure to the DLLProc variable }
DllProc := @DLLEntryPoint;
{ Now invoke the procedure to reflect that the DLL is attaching to the
process }
DLLEntryPoint(DLL_PROCESS_ATTACH);
end.
