MyException - 我的异常网
当前位置:我的异常网» Delphi » 一个很奇怪的有关问题:加载dll的出错有关问题

一个很奇怪的有关问题:加载dll的出错有关问题

www.MyException.Cn  网友分享于:2013-04-25  浏览:23次
一个很奇怪的问题:加载dll的出错问题!
小弟写了一个dll 源码:
library Hook;
uses
  SysUtils,//我要是不用ShareMem,在调用loadlibrary的时候弹出个对话框 提示raised too many consecutive exceptions 如果用了将会出现另外一种错误 请往下看
  Classes,
  Windows,
  Messages,
  ApiHook in 'ApiHook.pas';
type
 Tdata=record
  hook:THandle;
  hooked:Boolean
 end;
 Pdata=^Tdata;
{$R *.res}
 var
  DllData:Pdata;
  dizhi:Cardinal;
procedure HookPro(Ncode,Lparam,Wparam:LongWord);stdcall;
begin
  if not DllData^.hooked then
  begin
  HookApi(dizhi);
  DllData^.hooked:=True;
  end;
  CallNextHookEx(dlldata^.hook,Ncode,Lparam,Wparam);
end;
function HookInstall(sWindow:LongWord;ss:DWORD):Boolean;stdcall;
var
 threadId:LongWord;
begin
  Result:=False;
  DllData^.hook:=0;
  threadId:=GetWindowThreadProcessId(sWindow,nil);
  DllData^.hook:=SetWindowsHookEx(WH_GETMESSAGE,@HookPro,HInstance,threadId);
  if DllData^.hook >0 then
  begin
  Result:=True;
  end
  else
  begin
  Exit;
  end;
end;
procedure UnHook;
begin
  UnHookApi;
  if DllData^.hooked then
  begin
  UnhookWindowsHookEx(dlldata^.hook);
  end;
end;
procedure MyDllHandle(Reason:integer);
var
fhandle:THandle;
begin
  case Reason of
  DLL_PROCESS_ATTACH:
  begin
  fhandle:=CreateFileMapping($ffffffff,nil,PAGE_READWRITE,0,$ffff,'Mydll');
  if fhandle=0 then
  begin
  if GetLastError=ERROR_ALREADY_EXISTS then
  begin
  fhandle:=OpenFileMapping(FILE_MAP_ALL_ACCESS,False,'Mydll');
  if fhandle=0 then
  begin
  Exit;
  end;
  end
  else
  begin
  Exit;
  end;
  DllData:=MapViewOfFile(fhandle,FILE_MAP_ALL_ACCESS,0,0,0);
  if DllData=nil then
  begin
  CloseHandle(fhandle);
  end;
   
  end;
  end;
  DLL_PROCESS_DETACH:
  begin
  if Assigned(DllData) then
  begin
  UnmapViewOfFile(DllData);
  DllData:=nil;
  end;
   
  end;
  end;
end;
exports
HookInstall, UnHook, HookPro;
begin
 DllProc:=@MyDllHandle;
 MyDllHandle(DLL_PROCESS_ATTACH);
 DllData^.hooked:=False;
end.
如果在dll里加入了sharemen 我在程序里调用的代码:
这个是uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
如果在uses里加入sharemen 程序编译不过
 str:=GetCurrentDir()+'\Hook.dll';
  if not FileExists(str) then
  begin
  ShowMessage('没有这个dll');
  Exit;
  end;
  modlueHandle:=LoadLibrary(PChar(str));//它的modluehandle总是0
ShowMessage(IntToStr(GetLastError));//他的返回错误值是126
  @InstallHook:=GetProcAddress(modlueHandle,'HookInstall');
请问 我这个应该怎么调用这个dll呀? 谢谢!

------解决方案--------------------
sharemem是加在工程(不是*.pas)的第一行
不过,你的例子看不出有加sharemem的必要

文章评论

那些争议最大的编程观点
那些争议最大的编程观点
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
程序员应该关注的一些事儿
程序员应该关注的一些事儿
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
程序员和编码员之间的区别
程序员和编码员之间的区别
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
我的丈夫是个程序员
我的丈夫是个程序员
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
10个调试和排错的小建议
10个调试和排错的小建议
编程语言是女人
编程语言是女人
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
程序员的鄙视链
程序员的鄙视链
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
程序员都该阅读的书
程序员都该阅读的书
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
漫画:程序员的工作
漫画:程序员的工作
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
代码女神横空出世
代码女神横空出世
每天工作4小时的程序员
每天工作4小时的程序员
我是如何打败拖延症的
我是如何打败拖延症的
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
旅行,写作,编程
旅行,写作,编程
如何成为一名黑客
如何成为一名黑客
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
程序员必看的十大电影
程序员必看的十大电影
Java程序员必看电影
Java程序员必看电影
鲜为人知的编程真相
鲜为人知的编程真相
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
为什么程序员都是夜猫子
为什么程序员都是夜猫子
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有