一个很奇怪的问题:加载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的必要
