procedure init;
begin
NoFreeOnClientDisconnect:=true;
end;
if FromClient and (ConnectName='Amorality')
and (pck=HStr('1b 04 00 00 00')) then begin
DisconnectClient;
end;
---
Значит такой код получается?
На счет Ему проги , если исходники то гляну , как скачаю дельфи 2006 , спасибо