[gebs]

Сообщение от Aristarh Dark

Ну как дети малые, чесное слово.

Код:

procedure Tfm_main.N13Click(Sender: TObject);
var a: string;
    b: string;
    c: string;
begin
a:=fm_main.MyQ.FieldByName('remote_switch_id').AsString;
b:='10.100.10.';
c:= b+a;
showmessage(c);
WinExec (('ping ' + PChar(c)), SW_SHOW);
//WinExec (('ping ' + '10.100.10.15'), SW_SHOW);
end;

Выдаёт туже ошибку, что и выше указана. Компилятор - D2009