Цитата:
Сообщение от 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)) утечки нет.  |
Вообще для красоты кода все сообщения надо вынести в шаблоны и забить в константы Вида.
const
StartServ= 'На %d зарегистрирован локальный сервер';
юзать
format(StartServ,[ntohs(LPortConst)]);