Пишем трейнер на Delphi для Warface

[joker100497]

1. Скачиваем портейбл версию Delphi 7 весит она мало, кучу компонентов от туда по удаляли, но для создания трейнера нам более чем достаточно.
У кого Delphi уже есть пропускаем 1-й шаг и переходим ко 2-му.
2. Запускаем Delphi 7, после запуска создается новый проект. Как раз то что нам и нужно.
3. В файле исходного кода находим implementation и после него пишем:

const
  ProcessName='Game.exe';
  //Адреса
  toch=$0101521A;

//Байты
  tochON: array[0..1] of Byte = ($90,$90);
  tochOFF:array[0..1] of Byte =($75,$05);

Далее пишем:

function perizar_memhack(ProcessName:string;address: Integer; membyte: array of Byte): Cardinal; external 'memhack.dll';

5. Кидаем на форму CheckBox.
6. Кликаем по нему 2 раза. Между begin и end; пишем:

if CheckBox1.Checked= true then
begin
perizar_memhack(ProcessName,toch,tochON);
end
else
perizar_memhack(ProcessName,toch,tochOFF);

7. Сохраняем проект туда, куда вам удобно.
8. Скачиваем [Ссылки могут видеть только зарегистрированные пользователи. ]
9. Кидаем ее в папку сохраненного проекта
10. Компилируем проект

Видеогайд

Автор статьи perizar

[Dinmaite]

Открыв тему, я думал мне не хватит слов. После просмотра видео я понял как ошибался.

Стиль программирования ужасен.

if CheckBox1.Checked then
  perizar_memhack( ProcessName, toch, tochON);
else
  perizar_memhack( ProcessName, toch, tochOFF);

Статью следовало бы назвать "Как использовать одну функцию из библиотеки memhack".
Ибо не сказано ни слова о том каким образом мы получили входные данные.
Видео тоже аля "повтори все за мной" и будет хорошо. Ни слова пояснения почему так, а не иначе.

[Yukikaze]

Солидарен с Дином, хотя бы написал на что трейнер, да и вообще это статьей то не назвать

[RenatPro]

Сурцов не нашол на эту dll но по инструкциям в интернете я понял что в dll делается запрос по указанному адресу и выводит результат обратно только вот зачем там ведь коду 2 строчки))