Delphi - ShellExecute

Hola a todos,

Alguien que me pueda ayudar. Como puedo realizar una pausa cuando el ShellExecute se está ejecutando, dado que cuando esta en ejecución realiza una llamado a una aplicación externa pero sigue ejecutando las líneas de programa que vienen a continuación.
Necesito esperar a que termine el ShellExecute antes de seguir, como lo hago?

Ocupe el WaitForSingleObject pero no me resulta, que estoy haciendo mal??, se puede hacer??

Ejecuta Procedure Nro 1;

ShellExecute( Self.Handle,'OPEN',PChar( 'xx'), 'xx', Nil, SW_SHOWMINIMIZED);

{Esperamos que termine el ShellExecute para continuar con Procedure Nro. 2, aqui no se como se espera a que termine, hoy sigue y ejecuta Procedure 2 mientras se está ejecutando el ShellExecute.}

repeat
exitCode := WaitForSingleObject( tpi.hProcess ,1000);
Application.ProcessMessages;
until (exitCode <> 1000);

Ejecuta Procedure Nro 2;

Muchas gracias a quien me pueda ayudar.

Saluos.
Oscar.

Probaste otra forma a parte de shellexecute?

http://www.clubdelphi.com/foros/showthread.php?t=13422&highlight=WaitForSingleObject

http://www.ajpdsoft.com/modules.php?name=Content&pa=showpage&pid=203

En realidad probé con winexecute pero pasa lo mismo , traté de implementar lo que me indicas en las ( http://) pero no me resultó ,lo más probable es que este haciendo al go mal, volvere a intentar.

Se gradece mucho la respuesta.

Saludos
Oscar

Hola E.T.,

Muchas gracias por tu respuesta, te cuento que intenté nuevamente de realizar el ejercicio pero no me resulta. Te cuento que el ejemplo que me indicaste funciona perfecto cuando se trata de una aplicación, sin embargo yo necesito además de ejcutar la aplcación pasar un parámetro a esta aplicación y este no me lo reconoice me da error.

De antemano se agradece cualquier ayuda.

**********************************************************
EJEMPLO QUE ME INDICASTE
*********************************************************
function ExecuteProcess(ProcessName: String): Cardinal;
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;

begin
Result := 0;

FillChar(StartInfo, SizeOf(StartInfo), 0);
StartInfo.cb := SizeOf(StartInfo);

if CreateProcess(
PChar(ProcessName), nil, nil, nil, false, 0,
nil, nil, StartInfo, ProcInfo)
then
Result := ProcInfo.hProcess;

///Hasta ahí funciona perfecto

//****************************************************************
//MI CÓDIGO QUE NECESITO IMPLEMENTAR EN EJEMPLO
//EN EL IF CREATEPROCESS
//********************************************************************
//Yo ocupo el
//ShellExecute( Self.Handle,'OPEN',PChar( 'xx'), 'xx', Nil, SW_SHOWMINIMIZED);

//DONDE PCHAR('XX') ES LA APLICACIÓN .EXE que necesito levantar.
// ',xx', es el parámetro que necesito pasar a la aplicación.

//esto no me resulta, intenté con cambiándolo con lo que me indicaste en el CreateProcess

// PChar(ProcessName), parametro, nil, nil, false, 0,
// nil, nil, StartInfo, ProcInfo)

// PChar(ProcessName), PChar(parametro), nil, nil, false, 0,
// nil, nil, StartInfo, ProcInfo)

// No me resultó y no sé como se hace.
// Si me puedes contestar y ayudar lo agradezco mucho. Gracias.

end;

Procedure EjecutayEspera
var
Process: Cardinal;

begin
Application.Minimize;

Process := ExecuteProcess('c:windows otepad.exe');
if Process <> 0 then
WaitForSingleObject(Process, INFINITE);

Application.Restore;
end;

Yo envio parámetros junto con el nombre del archivo, algo como esto

// PChar(ProcessName+parametro), nil, nil, nil, false, 0,
// nil, nil, StartInfo, ProcInfo)

// PChar('c: otepad.exe "c: exto.txt"'), nil, nil, nil, false, 0,
// nil, nil, StartInfo, ProcInfo)

Checa que la ruta del programa a llamar no lleva comillas(comillas dobles), y el parámetro si las lleva

'c: otepad.exe "c: exto.txt"'

además la la aplicación y el parámetro son separados por un espacio, intentalo así, haber si funciona

Estimado E.T.,

Textual:

function TfrmMain.ExecuteProcess( ProcessName, ParameterName : String ) : Cardinal;
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;
begin
Result := 0;

FillChar(StartInfo, SizeOf(StartInfo), 0);
StartInfo.cb := SizeOf(StartInfo);

if CreateProcess( PChar( ' ProcessName "ParameterName" ' ),nil ,nil , nil, false, 0, nil, nil, StartInfo, ProcInfo)
then
Result := ProcInfo.hProcess;
end;

procedure TfrmMain.btnInyectaClick(Sender: TObject);
var
Process: Cardinal;
cAplicacion : string;
begin

cAplicacion := 'C:Aplicacion.exe';
cParametro :='C:Fparametro.txt'

Procedure1() ;

Process := ExecuteProcess( cAplicacion, cParametro );
if Process <> 0 then
WaitForSingleObject(Process, INFINITE);

Procedure2();

end;

*****************************************************************************
LLAME TAMBIEN DE ESTA FORMA ESCRIBIENDO DIRECTAMENTE
y NO ME RESULTA, el programa no realiza la pausa y ejecuta procedure 2
****************************************************************************

if CreateProcess( PChar( ProcessName + ' "C:Fparametro.TXT" ' ),nil ,nil , nil, false, 0, nil, nil, StartInfo, ProcInfo)

if CreateProcess( PChar( 'C:APLICACION.EXE "C:Fparametro.TXT" ' ),nil ,nil , nil, false, 0, nil, nil, StartInfo, ProcInfo)

if CreateProcess( PChar( ProcessName + ParameterName ),nil ,nil , nil, false, 0, nil, nil, StartInfo, ProcInfo)

if CreateProcess( PChar( ProcessName +' '+ ParameterName ),nil ,nil , nil, false, 0, nil, nil, StartInfo, ProcInfo)

QUE ESTOY HACIENDO MAL, ????......Muchas gracias por tu ayuda.

Recien probado, solo habia que cambiar los parámetros de "CreateProcess"

function ExecuteProcess(ProcessName: String): Cardinal;
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;

begin
Result := 0;

FillChar(StartInfo, SizeOf(StartInfo), 0);
StartInfo.cb := SizeOf(StartInfo);

if CreateProcess(nil, PChar(ProcessName), nil, nil, false, 0,
nil, nil, StartInfo, ProcInfo)
then
Result := ProcInfo.hProcess;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Process: Cardinal;

begin
Application.Minimize;

Process := ExecuteProcess('c:windowssystem32 otepad.exe c:ftp.txt');
if Process <> 0 then
WaitForSingleObject(Process, INFINITE);

Application.Restore;
end;

Grande Maestro E.T.!!!!!

Funciona impecable,claro!!! ahora se dispara como una línea de comando....excelente.......MUCHISIMAS GRACIAS......... gran aporte!!!!!!!

Sólo una duda más ,como hago para que el "CreateProcess(nil, PChar(ProcessName), nil, nil, false, 0, nil, nil, StartInfo, ProcInfo) ", ejecute la aplicación minimizada, es decir, la aplicación que se llama en "ProcessName", esto porque com Application.Minimize, minimiza toda la aplicación principal e incluye la aplicación que se llama en CreateProcess, sólo necesito que se ejecute minimizada la aplicación que se llama en ProcessName y la principal que se siga viendo en pantalla.

Nuevamente muchas gracias por todo y si puedes me contestas.

Saludos
Agradecido

Oscar.

mmm... tardé un poco en encontrarlo, pero si se puede, en una pagina que ya he recomendado antes

http://delphiallimite.blogspot.com/2007/06/ejecutar-un-programa-y-esperar-que.html

function ExecuteProcess(ProcessName: String): Cardinal;
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;

begin
Result := 0;

FillChar(StartInfo, SizeOf(StartInfo), 0);
StartInfo.cb := SizeOf(StartInfo);
StartInfo.dwFlags:= STARTF_USESHOWWINDOW;
StartInfo.wShowWindow:=SW_SHOWMINIMIZED;
if CreateProcess(nil, PChar(ProcessName), nil, nil, false, 0,
nil, nil, StartInfo, ProcInfo)
then
Result := ProcInfo.hProcess;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Process: Cardinal;

begin
Process := ExecuteProcess('c:windowssystem32 otepad.exe c:ftp.txt');
if Process <> 0 then
WaitForSingleObject(Process, INFINITE);
end;

Grande Gurú !!!! extraordinario.....

Excelente dato , sólo me queda dar las infinitas gracias a sus grandes y valiosos aportes, así como también su muy buena voluntad de ayudar a un despistado!!!

MUCHAS GRACIAS E.T. :-D

Saludos.
Oscar

...Amigo "Oscar", te recomiendo que utilices la instruccion ShellExecute dentro de Try...Finally o Try...Except. O bien, si prefieres, puedes utilizar un contador inmediatamente despues de la instruccion (con For to); si utilizas Try...Finally dentro de Finally metes el codigo que sigue a la instruccion...

Saludos Cordiales...

Hola,

Muchísimas gracias por tu valioso aporte , te cuento que ya pude hacer lo que necesitaba sin embargo probaré con lo que me indicas así podré tener otra alternativa a la hora de seguir desarrollado.

Muchas gracias.....saludos.

Agradecido.

Oscar.