Вместо "if FromClient and(pck=HStr('2F 00 01 00 00 00 00 00 00 00')) then begin" попробуй
"if FromClient and (pck[1]=#$2F <<ИД нужного пакета>>) and (ReadD(2)=256 <<ИД скила\действия>>) then begin" и хоть с контрл хоть с шифтом жми - будет срабатывать.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 21.08.2010 в 19:47.
|