Ayuda con InstallShield URGENTE

[paldave]

Hola.
Puedes ejecutar programas secuencialmente, lo único que tienes que hacer es indicarle que espere hasta que el proceso termine antes de llamar al siguiente. Hablando más claramente (en código) sería:

Código Delphi [-]
type
  TLaunchMode = (lmNormal, lmMaximized, lmMinimizedActive, lmMinimizedInactive, lmHide);
  TPriority =(pIdle, pNormal, pHigh,pRealTime);

function LaunchExtended(Filename:String; WaitForEnd: Boolean; TimeForWait:Cardinal=0; Parameters, StartFolder:String; LaunchMode:TLaunchMode; Priority:TPriority):Integer;
var
  Directorio, ArchivoyParametros: PChar;
  ModoMostrar, Prior: Integer;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
  Cancel:Boolean;
begin
  
if TimeForWait=0 then TimeForWait:=INFINITE;

  if Parameters='' then
      ArchivoyParametros:=PChar(FileName)
  else
      ArchivoyParametros:=PChar(FileName+' '+Parameters);

  if StartFolder='' then
    Directorio:=nil
  else
    Directorio := PChar(StartFolder);

  case LaunchMode of
    lmNormal: ModoMostrar := SW_SHOWNORMAL;
    lmMaximized: ModoMostrar := SW_SHOWMAXIMIZED;
    lmMinimizedActive: ModoMostrar := SW_SHOWMINIMIZED;
    lmMinimizedInactive: ModoMostrar := SW_SHOWMINNOACTIVE;
    lmHide: ModoMostrar := SW_HIDE;
  end;

  case Priority of
    pIdle: Prior:=IDLE_PRIORITY_CLASS;
    pNormal: Prior:= NORMAL_PRIORITY_CLASS;
    pHigh: Prior:= HIGH_PRIORITY_CLASS;
    pRealTime: Prior:=REALTIME_PRIORITY_CLASS;
  end;

 //Ejecuta el archivo
   FillChar(StartupInfo, Sizeof(StartupInfo), #0);
   StartupInfo.cb := Sizeof(StartupInfo);
   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
   StartupInfo.wShowWindow := ModoMostrar;
     if (CreateProcess(nil, ArchivoyParametros, nil, nil, False, CREATE_NEW_CONSOLE or Prior, nil, Directorio, StartupInfo, ProcessInfo)) then
    begin
        result:=0;
        if WaitForEnd then   Result:=WaitforSingleObject(ProcessInfo.hProcess, TimeForWait);
     end
     else
         result:=-1;
end;

Debes llamar el procedimiento por ejemplo de la siguiente forma:

Código Delphi [-]
LaunchExtended(FileName, WaitForEnd, TimeForWait, Parameters, StartFolder, LaunchMode, Priority:TPriority)

por ejemplo

Código Delphi [-]
LaunchExtended('C:\Windows\System32\Calc.exe', True, 0,'', 'C:\Windows\System32', lmNormal, pNormal)

donde Filename es el nombre del archivo ejecutable que deseas correr; WaitForEnd es un booleano que indica si quieres que la rutina espere a que el ejecutable se cierre para retornar; TimeForWait es la cantidad de milisegundos que la rutina debe esperar por que el ejecutable se cierre antes de retornar, si no se ha cerrado en ese tiempo retorna igual, si quieres que espere indefinidamente hasta que se cierre debes especificar 0 en este parámetro; Parameters son los parámetros que quieres pasarle al ejecutable; StartFolder es la carpeta de inicio para ese ejecutable (normalmente la misma en que se encuentra); LaunchMode es el modo en que quieres que la ventana se ejecute (normal, minimizada, maximizada, etc); y Priority es la prioridad con que quieres que se ejecute el archivo (baja, normal, alta, etc). La rutina devuelve 0 si el archivo se pudo ejecutar o -1 si no se pudo ejecutar.

[jymy788]

Buenas paldave.

Gracias por tu aportación.

Tengo un problema con el código que pusiste de la función. Al compilarlo:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TLaunchMode = (lmNormal, lmMaximized, lmMinimizedActive, lmMinimizedInactive, lmHide);
  TPriority =(pIdle, pNormal, pHigh,pRealTime);
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function LaunchExtended(Filename:String; WaitForEnd: Boolean; TimeForWait:Cardinal=0; Parameters, StartFolder:String; LaunchMode:TLaunchMode; Priority:TPriority):Integer;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}
 
...

Tendría un botón que llamaría a ese función como pones pero como decía, en la compilación da el siguiente error:

[Error] Unit1.pas(16): Default value required for 'StartFolder'
...

Por qué puede ser?

perdona mi ignorancia

[jymy788]

me respondo a mi mismo.... Si definimos la función de la siguiente forma compila sin problemas.

function LaunchExtended(Filename:String; WaitForEnd: Boolean; TimeForWait:Cardinal=0; Parameters:string=''; StartFolder:String='c:\'; LaunchMode:TLaunchMode=lmNormal; Priority:TPriority= pNormal):Integer;

Pero ahora tengo un problema porque en un botón hago lo siguiente:

LaunchExtended(mysql_odbd_3.52.exe', True, 0, '', 'C:\Windows\System32', lmNormal, pNormal);
  LaunchExtended(Setup.exe', True, 0, '', 'C:\Windows\System32', lmNormal, pNormal);

y me sigue ejecutando los dos de golpe sin esperar el segundo a que termine el primero...

Por qué puede ser? Cómo solucionarlo?

Gracias de nuevo

[jymy788]

Al parecer el problema radica en que, por ejemplo, el ejecutar mysql_odbd_3.52.exe para esa función y ShellExecuteEx (que es similar) el control lo devuelve en cuanto abre el instalador y éste, en si, es otra aplicación distinta.

Vamos, que sigo estando como al principio !!!!

Necesito Ayuda !!!

Gracias

[paldave]

¿Te has fijado si el ejecutable mysql_odbd_3.52.exe no es un archivo zip o rar autoextraible? Ahí podría estar el problema, ya que lo que necesitas es llamar directamente al ejecutable del instalador.

[jymy788]

Si, me he fijado. Realmente mysql_odbd_3.52.exe abre un "Windows instaler" automáticamente pero no encuentro la forma de invocarlo directamente.

Se admite cualquier idea más, jejejeje.

Gracias