posted by crystalbit filed under delphi,
Кодинг
Выкладываю свой модуль crt для delphi, недавно написанный для одной программы
что в модуле:
type
_color=0..255;
function _inputhandle:integer;
function _outputhandle:integer;
function GetMaxX:integer;
function GetMaxY:integer;
procedure GotoXY(x,y:integer);
procedure ClrScr;
procedure ClrLine(y:integer);
procedure SetCursorState(visible:Boolean);
function ForeRGB(r,g,b,i:boolean):_color;
function BackRGB(r,g,b,i:boolean):_color;
function MixColors(A,B:_color):_color;
procedure SetTextAttr(attribute:word);
function GetTextAttr:word;
function WhereX:integer;
function WhereY:integer;
GetMaxX, GetMaxY, GotoXY, ClrScr, WheteX, WhereY выполняют то же, что в паскале
ClrLine - заполнить пробелами соответствующую строку
SetTextAttr, GetTextAttr - работа с цветом текста и фона
ForeRGB, BackRGB, MixColors - работа с цветами
четвертый параметр у
...more»
posted by crystalbit filed under Софт
ICQ Mail Forwarding - программа-бот, пересылающая все входящие сообщения на указанный почтовый адрес
написана на основе ICQ Gate v3
идея Sergik'а
что можно указывать:
номер/пароль бота, статус
адрес получателя
шаблон письма/темы(см. ниже)
адрес отправителя (бесплатные почтовые сервисы, как правило, запрещают отправку с другого адреса)
smtp-сервер
логин и пароль для smtp сервера (если требуются)
шаблон письма/темы может состоять из:
собственно текста
\n - переход на новую строку
\uin - номер бота
\time - текущее время
\from
...more»
