Ver Mensaje Individual
  #25  
Antiguo 08-08-2007
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Reputación: 22
cHackAll Va por buen camino
Hola a todos, espero no llegar muy tarde


Cita:
Empezado por nosferatu177 Ver Mensaje
hola buenas tardes, alguien de ustedes podria decirme como hacer q se ejecute un archivo .msi en el evento onclick;es q extoy haciendo un instalador y no logro hacer q se ejecute :S, ya utilice WinExec, pero creo q solo es con los .exe; gracias de antemano
Código Delphi [-]
 WinExec('msiexec /i c:\windows\system32\sasetup.msi', SW_SHOW);

Cita:
Empezado por JULIPO Ver Mensaje
Pero que pasaria si ademas cuando cierre mi aplicacion, quiero saber si el programa que abri desde mi aplicacion al presionar el boton esta aun ejecutandose y si es asi cerrarlo ;

Este hilo se refiere a la ejecucion de un programa al presionar un boton;

Yo quiero saber si al cerrar mi aplicacion el programa que ejecute al presionar el boton aun esta activo y si es asi cerrarlo junto a mi aplicacion

espero sea clara la pregunta

gracias por su ayuda
Código Delphi [-]
 
...
 
implementation
 
{$R *.dfm}
 
var
 si: TStartupInfo = (cb: SizeOf(TStartupInfo));
 pi: TProcessInformation;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 CreateProcess(nil, 'notepad', nil, nil, False, 0, nil, nil, si, pi);
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := WaitForSingleObject(pi.hProcess, 0) = WAIT_OBJECT_0;
 if not CanClose then
  MessageBox(0, 'No puedes cerrar la aplicacion hasta que cierres el Bloc de notas', nil, 0);
end;
 
end.

Saludos.
Responder Con Cita