[Помогите!] Инжектор dll в процесс игры

[matrixkot2]

Доброе время суток, знаю на этом форуме сидит не мало одаренных программистов, ищу уже неделю в инете исходник инжектора на delphi, что бы процесс прописывался названием а не id и все безрезультатно, скиньте любой исходник у кого есть, буду очень благодарен за помощь.

[VeTaL_UA]

Поиск по названию процесса? Вот по быстрому функцию накидал:

function GetPIDByProcessName(Name:string):DWord;
var
hProcessSnap:THandle;
pe32:TProcessEntry32;
begin
result:=0;
hProcessSnap:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
pe32.dwSize:=SizeOf(TProcessEntry32);
  if Process32First(hProcessSnap,pe32) then
    repeat
      if pe32.szExeFile = Name then
        begin
        result:=pe32.th32ProcessID;
        Exit;
        end;
    until not Process32Next(hProcessSnap,pe32);
CloseHandle(hProcessSnap);
end;

Функция возвращает ID процесса по его названию. Не забуть в uses добавить Tlhelp32.

[Mebius]

Цитата: Сообщение от VeTaL_UA Поиск по названию процесса? Вот по быстрому функцию накидал: function GetPIDByProcessName(Name:string):DWord; var hProcessSnap:THandle; pe32:TProcessEntry32; begin result:=0; hProcessSnap:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0); pe32.dwSize:=SizeOf(TProcessEntry32); if Process32First(hProcessSnap,pe32) then repeat if pe32.szExeFile = Name then begin result:=pe32.th32ProcessID; Exit; end; until not Process32Next(hProcessSnap,pe32); CloseHandle(hProcessSnap); end; Функция возвращает ID процесса по его названию. Не забуть в uses добавить Tlhelp32.

а еще не забудь добавить сравнение пид с наиденым пид, иначе постоянно будешь инжектить

[VeTaL_UA]

Цитата: Сообщение от Mebius а еще не забудь добавить сравнение пид с наиденым пид, иначе постоянно будешь инжектить

Ты о чём? Функция закончит действовать, как только найдёт первый PID, и да, там таки есть ошибка, но она элементарная и сделана для того, чтобы у ТСа не закисли мозги

[matrixkot2]

Спосибо с этим разобрался, а как заинжектить dll который находится в нашем ехе