关于dll加载失败的问题!

[kongling12]

小弟写了一个dll 可是加载的时候老是加载不上 代码:
str:=GetCurrentDir();
modlueHandle:=LoadLibrary(PChar(str+'Hook.dll'));//modlueHandle总是0 也不知道为什么
@InstallHook:=GetProcAddress(modlueHandle,'HookInstall');

dll中:
uses//中间省略若干变量定义和无用的方法
Sharemem,
SysUtils,
Classes,
Windows;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);
end.

请问 为什么总是加载不了这个dll呀?
我modlueHandle:=LoadLibrary('Hook.dll');
modlueHandle:=LoadLibrary(PChar('Hook.dll'));都试过 就是不行

[starluck]

PChar(str+'Hook.dll')

fileExists ?

[wintergoes]

str:=GetCurrentDir() + '\';

[wintergoes]

或者modlueHandle:=LoadLibrary('.\hook.dll');

[kongling12]

str:=GetCurrentDir()+'\Hook.dll';
if not FileExists(str) then
begin
ShowMessage('没有这个dll');
Exit;
end;
modlueHandle:=LoadLibrary(PChar(str+'\Hook.dll')); 我改成这样了 FileExists存在的 [Quote=引用 1 楼 starluck 的回复:]
PChar(str+'Hook.dll')

fileExists ?
[/Quote]

[kongling12]

modlueHandle:=LoadLibrary(PChar(str+'\Hook.dll')); 这句改了modlueHandle:=LoadLibrary(PChar(str)); [Quote=引用 4 楼 kongling12 的回复:]
str:=GetCurrentDir()+'\Hook.dll';
  if not FileExists(str) then
  begin
    ShowMessage('没有这个dll');
    Exit;
  end;
  modlueHandle:=LoadLibrary(PChar(str+'\Hook.dll')); 我改成这样了 FileExists存在的引用 1 楼 starluck 的回复:
PChar(str+'Hook.dll')

fileExists ?

[/Quote]

[kongling12]

没人?

[wintergoes]

还不对，你的DLL和你程序在一个目录里吗？

[kongling12]

[Quote=引用 7 楼 wintergoes 的回复:]
还不对，你的DLL和你程序在一个目录里吗？
[/Quote]在啊 是一个目录的 都能找到

[simonhehe]

modlueHandle:=LoadLibrary(PChar(str+'Hook.dll'));//modlueHandle总是0 也不知道为什么

看看PChar(str+'Hook.dll')的值是什么, 肯定路径错了,没别的原因

[wintergoes]

modlueHandle:=LoadLibrary('.\hook.dll');
这样也不行吗？
dll和你的exe在同一目录里？

[kongling12]

是的 就在同一个目录下