16.46.1. function SendNetMessage
function SendNetMessage(AHost, AFromSt, AToSt, AMessageSt: string) : boolean;
Отправляет сообщение по сети, аналог NET SEND.
Параметры:
·AHost - имя хоста, которому передается сообщение
·AFromSt - поле "От кого"
·AToSt - поле "Кому"
·AMessageSt - текст сообщения.
Значения параметров AFromSt, AToSt, AMessageSt могут содержать русские буквы, но в этом случае не гарантируется корректное отображение сообщения.
Пример:
begin
// Запуск сканирования
RunScan;
// Что-то подозрительное ??
if (GetSuspCount > 0) or (GetDetectedCount > 0) then begin
SendNetMessage('Monitoring', 'AVZ', 'Admin',
'Report from computer "' + GetComputerName + '" '+
'SuspCount = ' + InttoStr(GetSuspCount) + ', '
'DetectedCount = ' + InttoStr(GetDetectedCount)
);
end;
end.