Инжект dll в игру

[dolphin705]

Procedure RemoteLoadLibrary(PID:Cardinal; name:Pchar);   
 var   
 h:Cardinal;   
 NameLength: Cardinal;   
 dllNameInProc : Pointer;   
 FuncAdr : Pointer;   
 nw:Cardinal;   
 id:Cardinal;   
 begin   
 NameLength := Length(String(name));   
 h := OpenProcess(PROCESS_ALL_ACCESS,false,PID);   
 dllNameInProc := VirtualAllocEx(h,0,NameLength+1,MEM_COMMIT,PAGE_READWRITE);   
 FuncAdr:=GetProcAddress(GetModuleHandle(kernel32),'LoadLibraryA');   
 WriteProcessMemory(h,dllNameInProc,name,NameLength+1,nw);   
 CreateRemoteThread(h,0,0,FuncAdr,dllNameInProc,0,id);   
 CloseHandle(h);   
 end;