[gebs]

У меня кстати сия процедура не работает:

Код:

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

[DCC Warning] Unit1.pas(193): W1044 Suspicious typecast of string to PAnsiChar

Delphi 2009