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.