Código: Seleccionar todo

(*

  Unit uEjecutarParam
  *******************
  Autor: D@rB-15
  Fecha: 17/02/10
  Hora: 6:53 p.m.
  Sitio Web: http://indetectables.net/
  *******************
  Con esta Unit se pueden ejecutar 
  aplicaciones con parametros.

*)

Unit uEjecutarParam;

Interface
  Procedure EjecutarParam(Archivo, Parametro: String);

Implementation

Uses
  Classes, SysUtils, Process;

Procedure EjecutarParam(Archivo, Parametro: String);
  Var
    Proceso: TProcess;

Begin
  Proceso := TProcess.Create(Nil);
  Proceso.CommandLine := Archivo + ' ' + Parametro;
  Proceso.Options := Proceso.Options + [poWaitOnExit];
  Proceso.Execute;
  Proceso.Free;
End;

End.