Показать сообщение отдельно
Старый 18.09.2010, 22:59   #1
Пользователь
 
Аватар для ALF
 
Регистрация: 18.09.2010
Адрес: Киев
Сообщений: 70
Сказал Спасибо: 9
Имеет 10 спасибок в 6 сообщенях
ALF пока неопределено
Восклицание Вывод текста в окно игры

Помогите вывести текст в игру.
Вот мой код, но он не работает.
Буду очень благодарен за помощь.
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.

Последний раз редактировалось xkor, 19.09.2010 в 15:32.
ALF вне форума   Ответить с цитированием