با سلام Inprise
کد رو به دلفی تبدیل کردم ولی کار نکرد امکان داره اشکال کار رو بگی با تشکر ...
function InjectDLL(ProcessID: DWORD): Boolean;
var
Proc: THandle;
RemoteString,
LoadLibAddy: Pointer;
begin
Result := False;
if ProcessID = INVALID_HANDLE_VALUE then Exit;
Proc := OpenProcess(PROCESS_CREATE_THREAD, False, ProcessID);
if Proc = INVALID_HANDLE_VALUE then Exit;
LoadLibAddy := GetProcAddress(GetModuleHandle('kernel32.dll'), 'LoadLibraryA');
RemoteString := VirtualAllocEx(Proc, nil, Length('DLL_NAME'), MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
CreateRemoteThread(Proc, nil, 0, LoadLibAddy, RemoteString, 0, 0);
Result := True;
end;
با تشکر ...