Помогите вывести текст в игру.
Вот мой код, но он не работает.
Буду очень благодарен за помощь.
delphi Код:
library MyFirstDLL;
uses
SysUtils,
Classes,
Graphics,
Forms,
Windows;
const
adres = '?DrawString@FCanvasUtil@@QAEHHHPBGPAVUFont@@VFColor@@@Z';
type
TBOB = procedure(x,y:Integer; text, font:PChar; color:TColor); stdcall;
procedure HelloWorld();
var
DLLInstance : THandle;
BOB: TBOB;
begin
{ загружаем DLL }
DLLInstance := LoadLibrary('Engine.dll');
@BOB := GetProcAddress(DLLInstance, adres);
BOB(100,100,'SSSSSSSSSSS','Font1',$00FFFFFF);
FreeLibrary(DLLInstance);
end;
{Какой-нибудь код, в котором используется SomeBuffer.}
exports
HelloWorld;
begin
end.