Fechar e abrir programas.exe com delphi

Question

Boa tarde!Mais uma vez recorro aos colegas,Estou tentando fazer o seguinte, o usu�ria executa o sistema vamos chamar de XXX.exe,  nesse momento o sistema verifica se tem uma novo vers�o instalada no...

Renato Rubinho · Answer

Se o XXX ainda estiver em execu��o no momento em que o YYY tentar copiar o novo arquivo, acontecer� a falha na c�pia.

Tenta, no YYY, colocar um loop com algumas tentativas com intervalos para aguardar o fechamento do XXX onde tenta renomear o XXX e, quando conseguir, a� sim, copia o novo.
Obs: N�o costumo usar, mas se por algum motivo seu XXX n�o estiver fechando ap�s chamar o YYY, usa o Application.Terminate;

Exemplo:

  // XXX
  ShellExecute(0,nil,'YYY.exe',nil,'c:\caminhodosistema\',SW_SHOWNORMAL);
  Self.Close; // Caso esteja no form principal ou FrmPrincipal.Close; caso esteja em outro. Se n�o funcionar o fechamento do sistema, usa o Application.Terminate;

  //YYY
  // tenta at� 10 vezes
  for i:1 to 10 do
  begin
    // Apaga um antigo arquivo que tenha sido renomeado para atualiza��o
    DeleteFile('c:\caminhodosistema\XXX_bkp.exe');

    // Renomeia o atual
    RenameFile('c:\caminhodosistema\XXX.exe','c:\caminhodosistema\XXX_BKP.exe');

    // Copia o novo arquivo caso tenha conseguido renomear o atual
    if not FileExists('c:\caminhodosistema\XXX.exe') then
    begin
      //copia o novo arquivo
      CopyFile('c:\caminhodosistema\XXX_novo.exe','c:\caminhodosistema\XXX.exe');

      // apaga o antigo renomeado
      DeleteFile('c:\caminhodosistema\XXX_bkp.exe');

      // finaliza o loop quando conseguir atualizar
      break;
    end;

    // Aguarda 1 segundo at� a pr�xima tentativa para dar tempo do XXX fechar caso n�o tenha conseguido atualizar
    Sleep(1000);
  end;

Luiz Estevam · Answer

Valeu colega, coloquei um Sleep() e funcionou....

F�rum Fechar e abrir programas.exe com delphi #513434