通过远程注入的dll中的函数为什么运行不起来？？？

[ctks2009]

dll文件如下(remoteinject.dll)
library remoteinject;

uses
SysUtils,
windows,
Classes;

{$R *.res}
procedure func;
begin
MessageBox(0,'test','test dll',0);
end;

begin
func;
end.


远程注入的程序如下：

procedure TForm1.Button2Click(Sender: TObject);

var
h,pid:longword;
tmp:longword；
DllName:pchar;
Mysize:longword;
Parameter:pointer;//放那个参数的指针(位置在目标进程内)
hwnd1: HWND;

begin
DLLName:='remoteinject.dll';
Mysize:=strlen(Dllname)+1;


hwnd1:=FindWindow('notepad', nil);

GetWindowThreadProcessId(hwnd1, @pid);

h:=OpenProcess(PROCESS_ALL_ACCESS, False, pid);

parameter:= VirtualAllocEx(h, nil, Mysize, MEM_COMMIT, PAGE_READWRITE);
WriteProcessMemory(h, Parameter, Pointer(DllName), MySize, tmp);


CreateRemoteThread(h,nil, 0, GetProcAddress(GetModuleHandle('KERNEL32.DLL'), 'LoadLibraryA'),
Parameter, 0 , tmp);
end;

我运行的过程是这样的：
先打开记事本，然后运行上面的程序，但是记事本没反应，dll中的函数没有运行，请教这是什么原因？？

[gyk120]

换成LoadLibraryW可以吗？

[xiaoxiao_8]

兄弟，你的程序代码一点都没错。
至于为什么dll中的函数没有运行
是因为LoadLibraryA找不到'remoteinject.dll'
windows是在当前目录（记录本启动时的目录）或系统目录下查找，而你的dll估计不是在这里面。
你把'remoteinject.dll'改为绝对路径就可以了，如：'d:\dlp\remoteinject.dll'

[taste品味]

我试了一下 会把记事本关掉
notepad.ext 遇到问题需要关闭。我们对此引起的不便表示抱歉。

[ctks2009]

感谢xiaoxiao_8
按照你的方法，函数已经能执行起来了

[ctks2009]

ff

[klyh007]

换成LoadLibraryW可以吗？