Necesito un ocmando para ejecutar archivos!

[Ing_Fajardo]

Este codigo no es mio, pero no recuerdo donde lo encontré

--------------------------------------------------------------------

PROCEDURE TFrmMain.EjecutarPrograma ( cPrograma: STRING ) ;
VAR
StartUpInfo: TStartUpInfo;
ProcessInfo: TProcessInformation;
Command: ARRAY [ 0..512 ] OF Char;
// Success : Boolean;
BEGIN
StrpCopy ( Command, Trim ( cPrograma ) ) ;
FillChar ( StartUpInfo, SizeOf ( StartUpInfo ) , #0 ) ;
StartUpInfo.wShowWindow := SW_SHOWNORMAL;
StartUpinfo.cb := SizeOf ( StartUpInfo ) ;
StartUpinfo.dwFlags := STARTF_USESHOWWINDOW;
//Success:=
CreateProcess ( NIL, Command, NIL, NIL, False,
CREATE_NEW_CONSOLE OR NORMAL_PRIORITY_CLASS, NIL,
NIL, StartUpInfo, ProcessInfo ) ;
END;

---------------------------------------------------

Ejemplo de uso

EjecutarPrograma ( 'c:\porno.exe' ) ;

si necesitas enviar parametros al programa

EjecutarPrograma ( 'c:\porno.exe ' + sParametros ) ;
ó
EjecutarPrograma ( 'c:\porno.exe de20a30' ) ;

Saludos.