строчки тоже нарисовал простейшие средствами клиента..
procedure uDrawString(x,y :integer ; pText:PWideChar; pfnt
ointer; color : DWORD);
var
forig : pointer;
dll
WORD;
begin
dll:=GetModuleHandle('engine.dll');
forig:=GetProcAddress(dll,'?DrawString@FCanvasUtil @@QAEHHHPBGPAVUFont@@VFColor@@@Z');
asm
push color
push pfnt
push pText // шрифт взят из перехвата ??0UFont@@QAE@XZ (хз че за функция и че за шрифт) не заморачивалса)
push y
push x
mov ecx,uCanvas // в есх помещаем добытый ранее экземпляр класса
call forig
end
end;
врятли буду пользовать эти функции клиента, просто проверил для общего познания что работают =))))))))