Цитата:
|
Сообщение от 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 |
класс!!! а как историю пингов создать? чтоб записывалось в **.тхт или в **.дос файл? |