[RusSTEEL]

Встал вопрос, больше вопрос теории, а можно ли?)

можно ли в делфи написать программу которая бы пинговала адреса, подобно командной строке в виндоус cmd=>ping *****
Или какое-то подключение к командной строке, чтоб адрес я вводил в форму написанную в делфи?

[NumLock]

Код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
...
procedure TForm1.Button4Click(Sender: TObject);
begin
  WinExec(PChar('ping '+Edit1.Text), SW_SHOW);
end;

возможно так же захочется http://www.delphisources.ru/forum/sh...65&postcount=5

[RusSTEEL]

Сообщение от NumLock

Код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
...
procedure TForm1.Button4Click(Sender: TObject);
begin
  WinExec(PChar('ping '+Edit1.Text), SW_SHOW);
end;

возможно так же захочется http://www.delphisources.ru/forum/sh...65&postcount=5

класс!!! а как историю пингов создать? чтоб записывалось в **.тхт или в **.дос файл?

[NumLock]

подсказка:

Код:

ping 127.0.0.1 >> c:\Downloads\log.txt

http://www.delphisources.ru/forum/sh...3&postcount=11