Foros Club Delphi - abrir cmd.exe ejecutando una orden

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - abrir cmd.exe ejecutando una orden (https://www.clubdelphi.com/foros/showthread.php?t=8357)

Novás

18-03-2004 17:53:20

abrir cmd.exe ejecutando una orden

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

18-03-2004 18:11:05

Algo así no te serviría?

Código:

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

18-03-2004 18:34:58

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

18-03-2004 18:49:38

Cita:

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

18-03-2004 18:51:26

yusnerqui

Prueba esto

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

Debe funcionar, de hecho me funciona en Delphi 5

Saludos Yusnerqui

La franja horaria es GMT +2. Ahora son las 04:06:43.