[gebs]

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

вот прямо сейчас проверил:

Код:

var
  ip: String;
  s: String;
begin
  ip:='127.0.0.1'; // var
  s:='ping '+ip;
  WinExec(PAnsiChar(s), SW_SHOW);
end;

куда еще подробней - не знаю

Изменил на :

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var
  ip: String;
  s: String;
begin
  ip:=fm_main.MyQ.FieldByName('remote_switch_id').AsString;; // var
  s:='ping '+' 10.100.10.' +ip;
  showmessage(s);
  WinExec(PAnsiChar(s), SW_SHOW);
end;

Мессага нормальная, а дальше командная строка не запуская, просто тишина.