Ну
Код:
const
name='';
procedure Enabled;
begin
timer1.enabled:=true;
SENDMSG('Таймер включен...');
end;
procedure Disable;
begin
timer1.enabled:=False;
SENDMSG('Таймер выключен...');
end;
begin
if (fromClient) and (Connectname=name) and (Pck[1]=#$1B) and (ReadD(2)=2) then Enabled;
if (fromClient) and (Connectname=name) and (Pck[1]=#$1B) and (ReadD(2)=3) then Disable;
End.
Пашет
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
|