CommFort

Код: Выделить всё

const option:string='DC++Ping/'; //Папка в которой лежит наш файл с текстом приветствия

procedure tema();
var
aDataToSend :AnsiString;
app:string;
begin
    App := ExtractFilePath(ParamStr(0));//Опредиляет путь до файла
    //Добовляем текст в приветствие канала
    aDataToSend := fTextToAnsiString('main')+  //канал
    fTextToAnsiString(app+option+'Privetstvie.txt'); //Текст который нужно отправить.
    CommFortProcess(dwPluginID, 62, PAnsiChar(aDataToSend), Length(aDataToSend)); //Отправляем
end;

Код: Выделить всё

const option:string='DC++Ping/'; //Папка в которой лежит наш файл с текстом приветствия

procedure tema();
var
aDataToSend : AnsiString;
app:string;
begin
    App := ExtractFilePath(ParamStr(0));//Опредиляет путь до файла
    //Добовляем текст в приветствие канала
    aDataToSend := fTextToAnsiString('bot')+  //Виртуальный пользоватль
    fTextToAnsiString('main')+  //канал
    fTextToAnsiString(app+option+'Privetstvie.txt'); //Текст который нужно отправить.
    CommFortProcess(dwPluginID, 1024, PAnsiChar(aDataToSend), Length(aDataToSend)); //Отправляем
end;