2 llamadas a ShellExecute

[dec]

Hola,

Echa un vistazo en el apartado de Trucos Darwin. Concretamente busca trucos con la palabra clave "ejecutar" y verás.

[D-MO]

Empezado por dec

Echa un vistazo en el apartado de Trucos Darwin. Concretamente busca trucos con la palabra clave "ejecutar" y verás.

Muchísimas gracias David, no se como se me pasaron por alto los trucos.

Saludos.

[D-MO]

Hola de nuevo David, dejame decirque que tengo un pequeño problema con esta función, y es que necesito enviarle parámetros al programa a ejecutar.

Código Delphi [-]
ShellExecute(Form1.Handle, nil,pChar(Comp.Path+Comp.ExeName),pChar(ActiveFile), nil, SW_SHOWNORMAL);

donde ActiveFile es el parámetro que necesito pasar a el archivo a ejecutar.

Me hechas una mano?

saludos.

[[seoane]]

Empezado por D-MO

Hola de nuevo David, dejame decirque que tengo un pequeño problema con esta función, y es que necesito enviarle parámetros al programa a ejecutar.

ShellExecute(Form1.Handle, nil,pChar(Comp.Path+Comp.ExeName),pChar(ActiveFile), nil, SW_SHOWNORMAL);

donde ActiveFile es el parámetro que necesito pasar a el archivo a ejecutar.

Me hechas una mano?

saludos.

¿y cual es el problema?

[D-MO]

Empezado por seoane

¿y cual es el problema?

jejejeej, lo siento, lo que pasa es que con shellexecute lo hago como lo expresé arriba y todo bién pero me ejecuta el shellexecute uno tras otro y necesito esperar a ejecuar el segundo cuando termine el primero.

Intento hacerlo como lo explican en el truco:
http://www.clubdelphi.com/trucos/ind...ll=0&scrollb=0
Pero no se como pasarles los parámetros extras al ejecutable.

Gracias por contestar Seoane.

Slaudos.

[[seoane]]

En principio solo tienes que pasar el programa que quieres ejecutar y los parámetros separados por espacios, es decir, si quieres ejecutar el notepad y pasarle como parámetro hola.txt, deberías de hacer algo como esto:

Código Delphi [-]
  WinExecAndWait32('notepad.exe hola.txt',sw_show);

[[seoane]]

También puedes modificar la función un poquito:

Código Delphi [-]
function Ejecutar(Filename, Param: string; ShowWindow: WORD): DWORD;
var
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
  GetStartupInfo(StartupInfo);
  StartupInfo.wShowWindow:= ShowWindow;
  if CreateProcess(nil,PChar(Filename + ' ' + Param),nil,nil, FALSE,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,
    ProcessInfo) then
  begin
    WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess,Result);
  end else
    Result:= DWORD(-1);
end;


// Ejemplo de uso
Ejecutar('notepad.exe','hola.txt',sw_show);

[D-MO]

Empezado por seoane

En principio solo tienes que pasar el programa que quieres ejecutar y los parámetros separados por espacios,

Pues ya había intentado esto pero supongo que en algo me equivoque pues no me funcionó, en todo caso si funciona. Gracias.

Me quedo con la función ejecutar que me diste, es mucho mas corta y me confunde menos. He cambiado el valor de retorno a booleano para colocarlo dentro de un if y si devuelve true ejecuto el siguiente código.

He comentado la línea:

Código Delphi [-]
GetExitCodeProcess(ProcessInfo.hProcess,Result);

puesto que involucrava la variable result y debería ser como DWORD y no BOOLEAN, hay algun problema si la dijo asi?


Además, me gustaría tomar el resultado de la ejecución del programa, es decir, lo que mostraría este programa en consola.

En lo que trabajo es un editor, el cual, junto con FreePascal puedo crear/editar/compilar aplicaciones escritas en pascal pero necesito saber cual es el resultado de la compilación, si hubieron errores y ya saben, los mensajes que te manda el compilador si compilas en consola.

Agradezco cualquier comentario.

Saludos y Gracias.