[Gravitas]

Хочу запустить в чужом процессе функцию с несколькими параметрами, но не представляю, как можно сделать больше одного.
Заранее спасибо.

[PhoeniX]

Передавать указатель на структуру (record)?

[Gravitas]

Уже так и сделал, спасибо

[PhoeniX]

Не хочу создавать новый топик ради одного ответа, а проблема как раз по теме:
Кто может поделиться кодом для запуска треда в чужом процессе? На данный момент известен только PID. Как ни пытался - не получается, гугл молчит (или я его неправильно спрашиваю).

[Bargest]

Когда-то давно нашел в инете. Суть примерно ясна.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117

function EnableDebugPrivilege():Boolean; var  hToken: dword;  SeDebugNameValue: Int64;  tkp: TOKEN_PRIVILEGES;  ReturnLength: dword; begin  Result:=false;  //Добавляем привилегию SeDebugPrivilege  //Получаем токен нашего процесса  OpenProcessToken(INVALID_HANDLE_VALUE, TOKEN_ADJUST_PRIVILEGES                   or TOKEN_QUERY, hToken);  //Получаем LUID привилегии  if not LookupPrivilegeValue(nil, 'SeDebugPrivilege', SeDebugNameValue) then   begin    CloseHandle(hToken);    exit;   end;  tkp.PrivilegeCount := 1;  tkp.Privileges[0].Luid := SeDebugNameValue;  tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  //Добавляем привилегию к процессу  AdjustTokenPrivileges(hToken, false, tkp, SizeOf(TOKEN_PRIVILEGES),                        tkp, ReturnLength);  if GetLastError() <> ERROR_SUCCESS then exit;  Result:=true; end;   Function InjectDll(hwd: hWnd; ModulePath: PAnsiChar): boolean; var   Memory:pointer;   Code: dword;   BytesWritten: dword;   ThreadId: dword;   hThread: dword;   hKernel32: dword;   prcID: cardinal;   prc: THandle;   Inject: packed record            PushCommand:byte;            PushArgument:DWORD;            CallCommand:WORD;            CallAddr:DWORD;            PushExitThread:byte;            ExitThreadArg:dword;            CallExitThread:word;            CallExitThreadAddr:DWord;            AddrLoadLibrary:pointer;            AddrExitThread:pointer;            LibraryName:array[0..MAX_PATH] of char;           end; begin   Result := false;   if  GetWindowThreadProcessID(Hwd, prcID) = 0 then   begin    MessageBox(0,'Не удалось получить ID процесса',0,0);    exit;   end;   prc := OpenProcess(PROCESS_CREATE_THREAD or PROCESS_VM_WRITE             or PROCESS_VM_OPERATION, false, prcID);   if prc = 0 then   begin    MessageBox(0,'Не удалось открыть процесс',0,0);    exit;   end;     Memory := VirtualAllocEx(Prc, nil, sizeof(Inject),                            MEM_COMMIT, PAGE_EXECUTE_READWRITE);   if Memory = nil then   begin     MessageBox(0,'Ошибка выделения памяти',0,0);     exit;   end;     Code := dword(Memory);   //инициализация внедряемого кода:   Inject.PushCommand    := $68;   inject.PushArgument   := code + $1E;   inject.CallCommand    := $15FF;   inject.CallAddr       := code + $16;   inject.PushExitThread := $68;   inject.ExitThreadArg  := 0;   inject.CallExitThread := $15FF;   inject.CallExitThreadAddr := code + $1A;   hKernel32 := GetModuleHandle('kernel32.dll');   inject.AddrLoadLibrary := GetProcAddress(hKernel32, 'LoadLibraryA');   inject.AddrExitThread  := GetProcAddress(hKernel32, 'ExitThread');   lstrcpyA(@inject.LibraryName, ModulePath);   //записать машинный код по зарезервированному адресу   if not WriteProcessMemory(Prc, Memory, @inject, sizeof(inject),                         BytesWritten) then   begin     MessageBox(0,'Ошибка при записи',0,0);     exit;   end;   //выполнить машинный код   hThread := CreateRemoteThread(prc, nil, 0, Memory, nil, 0, ThreadId);   if hThread = 0 then   begin     MessageBox(0,'Ошибка при запуске потока',0,0);     exit;   end;   CloseHandle(hThread);   Result := True; end; ... // usage:   if not EnableDebugPrivilege then   begin    MessageBox(0,'Не получены привилегии дебаг',0,0);    exit;   end;   if not InjectDll(Handle,'SPAddDll.dll') then   begin    MessageBox(0,'Не удалось внедрить DLL',0,0);    exit;   end;

Че-то в этом духе. Если есть PID, то можно начать с OpenProcess.
З.Ы. Только что выполнил этот код, посмотрел в отладчике другого процесса - код потока выполняется.
З.З.Ы. Это не вирус, это я хотел в одну прогу добавить несколько фич.