Delphi

Вопрос

Я недавно начал изучать Delphi и у меня есть небольшой вопросик.

Как, зная IP-адресс компа в локальной сети, послать ему сообщение?

Ответ

В Win2000/XP я сделал такую феньку.

procedure TForm1.BitBtn1Click(Sender: TObject); Var A,Cur:LongInt; begin Form1.Enabled:=False; Cur:=Screen.Cursor; Screen.Cursor:=-11; For A:=0 to ListView1.Items.Count-1 do If ListView1.Items.item[A].Checked Then Begin WinExec(Pchar('Net send '+ListView1.Items.item[A].Caption+' '+Edit1.text),SW_HIDE); AddLog('Отправлено сообщение по адресу '+ListView1.Items.item[A].Caption+' "'+Edit1.text+'"'); End; Form1.Enabled:=True; Screen.Cursor:=Cur; end;

Т.е. вызвал админимстративную службу «net send» при помощи функции WinExec()

Из конференции Expert_FAQ