Ejecutar Aplicaciones Con Parametros
Publicado: 18 Feb 2010, 00:39
Con esta Unit se pueden ejecutar aplicaciones con parametros usando la clase TProcess, la ventaja de usar esta clase es que es multi-plataforma por lo tanto funciona en Windows y en Linux
Ejemplo de uso:
EjecutarParam('/usr/lib/firefox-3.5.8/firefox', '[Enlace externo eliminado para invitados]');
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.
EjecutarParam('/usr/lib/firefox-3.5.8/firefox', '[Enlace externo eliminado para invitados]');