Как создать плагин для HD мода

Скачайте аналог patcher_x86 для Delphi (см. PatchApi.pas в архиве):
h3hota.com/HD/Patcher_x86_SDK.zip

Спасибо. Длл на делфи уже раньше делал - не проблема, игры писал тоже. Главное разобраться с самим кодированием под герои 3.

Разобраться сразу не так просто, потому что все современное программирование - это ООП, объекты, компоненты и тд. Всю внутреннюю кухню программирования они как правило скрывают. А внутрення кухня программирования - это работа с адресами памяти и инструкции процессора.
Без базового понимания Ассемблера не обойтись. Я в свое время подбирал книжку для этого, и остановился на Крупнике (моя настоящая фамилия - почти такая же ))
http://publ.lib.ru/ARCHIVES/K/KRUPNIK_A ... _A.B..html

Понял. Спасибо.

Проверил. Патчер на Delphi работает. Только пропущена ; перед virtual здесь (строка 124):

Код: Выделить всё

procedure SetValue(value: _dword_) virtual; stdcall; abstract;

Вот пример простенького плагина, который после завершения хода игрока показывает кол-во прошедших игровых дней:

Код: Выделить всё

library MyFirstDelphiPlugin;

uses System.SysUtils, System.Classes, Windows, PatchApi;

// {$R *.res}

var _P: TPatcher;
    _PI: TPatcherInstance;

function TestHook(h: TLoHook; c: PHookContext): Integer; stdcall;
var TextBuffer: string[200];
    GameMgr: PDWORD;
    Day, Week, Month: Word;
begin
  GameMgr := Ptr($699538);
  Day := Word(Ptr(GameMgr^ + $1F63E)^);
  Week := Word(Ptr(GameMgr^ + $1F640)^);
  Month := Word(Ptr(GameMgr^ + $1F642)^);

  TextBuffer := ShortString('Hello, World!'#13#10'Day passed: ' +
    IntToStr(Day + 7 * Week + 28 * Month - 36));

  Call(FASTCALL_, $4F6C00, [TextBuffer, 1, -1, -1, -1, 0, -1, 0, -1, 0, -1, 0]);
  Result := EXEC_DEFAULT;
end;

procedure DLLMain(Reason: Integer);
begin
  if DLL_PROCESS_ATTACH = Reason then
  begin
    _P := GetPatcher;
    _PI := _P.CreateInstance('HD.Plugin.DelphiTest');
    _PI.WriteLoHook($4C80F4, @TestHook);
  end;
end;

begin
  DLLProc := @DLLMain;
  DLLMain(DLL_PROCESS_ATTACH);
end.

Шикарно ! Все переходим с С++ на Delphi

Delphi ведь, можно сказать, тоже мой первый язык программирования, а старая любовь не ржавеет... Вот только не навещал я эту любовь лет 10 )))

Статья о конвертировании хедеров С++ в Delphi:
http://www.rvelthuis.de/articles/articles-convert.html

Почему возникает следующая ошибка в H3API на VC++ 2008?

Код: Выделить всё

1>e:\projects\vc2008\h3api\h3api\H3Structures/H3Structures.cpp(580) : error C2059: syntax error : 'inline '

Delete line 580

_H3API_ is a macro to allow inline for header-only style or compilation as a static library, when I create a function definition with the macro, VS sometimes adds the macro to the return value, here I forgot to delete it.

All is OK now. Thanks.