ejecucion en DOS

[nazly]

Buena tarde.
Alguien me puede ayudar , necesito ejecutar un comando en D.O.S
por ejemplo : ping kronos

Gracias

[Neftali [Germán.Estévez]]

Código Delphi [-]
uses
  ShellAPI;

...

  ShellExecute(Handle, '', 'ping', PChar(' Kronos'), nil, SW_SHOW);

[delphi.com.ar]

Solo una cuestión semántica Ejecutar comandos del DOS?


PD: Para tu ejemplo, yo utilizaría WinExec!

[nazly]

Gracias funciona muy bien.

Nazly

[nazly]

help... Necesito ahora que la ventana del DOS permanezca algunos segundos abierta para poder ver la ejecución del comando; se cierra muy rápido, he utilizado el timer pero no me funciona.
Ademas que si algún servidor no hace el ping poder tomar la respuesta para generar un mensaje..

Gracias

[delphi.com.ar]

Lo que podes hacer es alocar una consola, ejecutar tu aplicación de DOS, y vos decidir cuando cerrar la consola:

Código Delphi [-]
var
  StartInfo: STARTUPINFO;
  ProccesInfo: PROCESS_INFORMATION;
  ExitCode: DWORD;
begin
  AllocConsole;
  try
    ZeroMemory(@StartInfo, SizeOf(STARTUPINFO));
    StartInfo.cb := SizeOf(STARTUPINFO);

    Win32Check(CreateProcess(nil, 'ping 127.0.0.1', nil, nil, FALSE, 
                               CREATE_SEPARATE_WOW_VDM, nil, nil, StartInfo, ProccesInfo));
    WaitForSingleObject(ProccesInfo.hProcess, INFINITE);

    Sleep(3000); { La espera... }
  finally
    FreeConsole;
  end;

Saludos!

[[AzidRain]]

Si lo que quieres es hacer un Ping para ver si un servidor x está en línea mejor utiliza el componente TIDcmpClient de las Indy, que precisamente hace eso: un ping.

Yo lo hice con esta Función:

Código Delphi [-]
 
function TFConfig.ServerIsUp(aserver:String):Boolean;
var Pinger: TIDcmpClient
Begin
  Pinger:= TIDcmpClient(nil);
  Try
    Pinger.Host := aserver;
    Pinger.Ping;
    ServerIsUp := Pinger.ReplyStatus.BytesReceived <> 0;
  finally
    Pinger.Free;
  end;
end;

Saludos