Цитата:
Сообщение от NLObP
Выложил свежую версию. Тестируйте.
3.3.8 от 16.09.2008
[+] устранил утечки памяти, спс. Argot;
Добавлено через 6 минут
Выкладывай, я посмотрю. что можно ещё сделать.
PS: так и не понял, что тут можно сделать:
delphi Код:
tmp:='На '+IntToStr(ntohs(LPortConst))+' зарегистрирован локальный сервер';
LogMsg:=PChar(tmp);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));
Без IntToStr(ntohs(LPortConst)) утечки нет.
|
попробуй так:
tmp := format('На %d зарегистрирован локальный сервер',[ntohs(LPortConst)]);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@tmp[1]));