abrir cmd.exe ejecutando una orden

[Novás]

Hola a todos...

Mi pregunta es simple aunque no se si lo será la solución...

Necesito crear una aplicación que me abra tantas ventanas de línea de comandos y ejecute el programa ping con una dirección ip distinta en cada ventana que yo de indicaré en un archivo...

El sistema operativo en el que se va a ejecutar es Windows XP

Muchas gracias.

[__cadetill]

Algo así no te serviría?

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(handle, 'open', 'ping', '192.168.100.1', '', sw_normal);
  ShellExecute(handle, 'open', 'ping', '192.168.100.2', '', sw_normal);
  ShellExecute(handle, 'open', 'ping', '192.168.100.3', '', sw_normal);
end;

PD: añade ShellAPI en el uses.

[Novás]

Gracias...

Tu respuesta me funciona pero ahora me surge otro problemilla... Tengo el siguiente código donde LstIps es un control TListView...

ShellExecute(handle, 'open', 'ping', LstIps.Selected.Caption, '', sw_normal);

el cual me genera el siguiente error:

[Error] UPrincipal.pas(486): Incompatible types: 'String' and 'PAnsiChar'

que se te ocurre para solucionarlo...

Gracias de nuevo.

[__cadetill]

Empezado por Novás

que se te ocurre para solucionarlo...

Castear el string a PChar

ShellExecute(handle, 'open', 'ping', PChar(LstIps.Selected.Caption), '', sw_normal);

[yusnerqui]

Prueba esto

ShellExecute(handle, 'open', 'ping', PChar(LstIps.Selected.Caption), '', sw_normal);

Debe funcionar, de hecho me funciona en Delphi 5

Saludos Yusnerqui