20.03.2008, 18:26
общий
это ответ
Здравствуйте, Sefiros!
WinExec(‘NET SEND MaxPC Testing‘, SW_SHOW); - эта команда отправит сообщение "Testing" на компьютер с именем MaxPC.
При щелчке мыши по элементу TTreeView в Edit1 мы заносим IP-адрес компьютера. IP-адрес получаем, используя функцию, созданную Вами для его получения.
procedure TForm1.TreeView1Click(Sender: TObject);
begin
edit1.Text:=GetIp(treeview1.Selected.Text);
end;
Удачи!!!