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. Компилируем проект
Открыв тему, я думал мне не хватит слов. После просмотра видео я понял как ошибался.
Стиль программирования ужасен.
Код:
if CheckBox1.Checked then
perizar_memhack( ProcessName, toch, tochON);
else
perizar_memhack( ProcessName, toch, tochOFF);
Статью следовало бы назвать "Как использовать одну функцию из библиотеки memhack".
Ибо не сказано ни слова о том каким образом мы получили входные данные.
Видео тоже аля "повтори все за мной" и будет хорошо. Ни слова пояснения почему так, а не иначе.
________________
Ни одно доброе дело не остается безнаказанным.
Сурцов не нашол на эту dll но по инструкциям в интернете я понял что в dll делается запрос по указанному адресу и выводит результат обратно только вот зачем там ведь коду 2 строчки))