Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-12-2008
jplj jplj is offline
Miembro
 
Registrado: oct 2003
Posts: 189
Poder: 22
jplj Va por buen camino
Ejecutar un programa y esperar a que termine.

Hola:

Es un tema recurrente en el foro, pero que no me acaba de funcionar correctamente:
Código Delphi [-]

procedure TForm2.Button2Click(Sender: TObject);
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; end;
var Process, i: Cardinal; begin Application.Minimize; Process := ExecuteProcess(prog_7Zip.unistall); if Process <> 0 then
WaitForSingleObject(Process, INFINITE);
Application.Restore; end;

Lo que pretendo es que el programa principal espere minimizado hasta que el usuario finalice con el que se iniciado.
Lo que me ocurre es que se minimiza el programa, se lanza el desintalador pero inmediatamente se restarura el programa principal. En este ejemplo se trata de llamar al desintalador de 7-Zip, pero me sucede no sólo con él.

También he probado con el truco 168 con el mismo resultado.

Trabajo con XP y Delphi 7 / Borland Developer Estudio 2006

Muchas gracias de antemano.
__________________
Sonríe. Mañana puede ser peor.
Responder Con Cita
  #2  
Antiguo 04-12-2008
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Muchos de los programas de instalación al ejecutarlos descomprimen una serie de archivos, ejecutan alguno de los archivos que extrajo y luego se cierran dejando que el segundo ejecutable termine el trabajo. Me temo que vas a tener que buscar otra forma de controlar la desinstalación.
Responder Con Cita
  #3  
Antiguo 04-12-2008
jplj jplj is offline
Miembro
 
Registrado: oct 2003
Posts: 189
Poder: 22
jplj Va por buen camino
Gracias.

Al menos ahora sé porqué no funciona

Aquí os dejo un enlace con algunas funciones similares por si pudieran servirle a alguien.
__________________
Sonríe. Mañana puede ser peor.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ejecutar archivo y esperar que termine Ana María API de Windows 2 05-09-2008 20:57:54
Ejecutar Exe de mi Aplicacion y Esperar a que Termine spider_Ramon API de Windows 4 07-09-2005 02:07:01
ejecutar archivo y esperar que termine agustincs API de Windows 4 18-08-2004 23:53:21
Esperar a que termine un proceso felixgo OOP 4 02-06-2004 20:46:45
Ejecutar el Word y esperar a que lo cierren Salomon Varios 1 22-04-2004 17:41:22


La franja horaria es GMT +2. Ahora son las 01:29:42.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi