Aguardando a Execução

Delphi

23/09/2005

Olá gente,,,

Estou executando um processo de copiar as dll´s e preciso que execute um programa de instalação (*.exe)

Como faço para executar o que venho executando e aguardar o término deste programa e só depois disso continuar a executar os procedimento

Ex.:

Showmessage(´1´);
Showmessage(´2´);
Showmessage(´3´);

Executar o programa de instalação

Showmessage(´4´);
Showmessage(´5´);
Showmessage(´6´);


Só aparecer as mensagens 4 ,5 6 depois de instalado o programa...

Obrigado

Abraços..


Tremonti

Tremonti

Curtidas 0

Respostas

Massuda

Massuda

23/09/2005

[url=http://forum.clubedelphi.net/viewtopic.php?t=68347]Este tópico recente[/url] tem dois modos diferentes de executar um programa e aguardar pelo término dele.


GOSTEI 0
Tremonti

Tremonti

23/09/2005

Ok, mas como eu mandaria executar um exe e esperar pelo seu termino


Abraços


GOSTEI 0
Massuda

Massuda

23/09/2005

Por exemplo, usando a função ExecuteAndWaitEx que o colega alexandre_sbo encontrou...
  Showmessage(´1´);
  Showmessage(´2´);
  Showmessage(´3´);

  // Executar o programa de instalação
  ExecuteAndWaitEx(´caminho\para\o\setup.exe´);

  Showmessage(´4´);
  Showmessage(´5´);
  Showmessage(´6´);



GOSTEI 0
Tremonti

Tremonti

23/09/2005

Pude notar que ele usa outra poderia me ajudar tb?


GOSTEI 0
Massuda

Massuda

23/09/2005

Usando a que o ipc$ sugeriu...
var
  SHE:SHELLEXECUTEINFO; 
...
  Showmessage(´1´); 
  Showmessage(´2´); 
  Showmessage(´3´); 

  FillChar(SHE, SizeOf(SHE), 0); 
  SHE.cbSize := SizeOf(SHE); 
  SHE.fMask  := See_Mask_NoCloseProcess; 
  SHE.Wnd    := Handle; 
  SHE.lpVerb := ´Open´; 
  SHE.lpFile := ´cmd´; 
  SHE.lpParameters := PChar(´caminho\para\o\setup.exe´); 
  SHE.nShow  := SW_Hide; 
  ShellExecuteEx(@SHE); 
  WaitForSingleObject(SHE.hProcess, Infinite); 

  Showmessage(´4´); 
  Showmessage(´5´); 
  Showmessage(´6´); 
...



GOSTEI 0
Tremonti

Tremonti

23/09/2005

cara, Obrigado, ainda nao testei...

mas deverá funcionar...

valew Mesmo, qq coisa te contato...rs

Abraços...


GOSTEI 0
POSTAR