Fórum Atualização do executável nos clientes #256218

No create do form coloque isso:

// atualizando versão so sistema automaticamente
  DtLocal := FileDateToDateTime(FileAge(´c:\crm.exe´));
  DtRede := FileDateToDateTime(FileAge(´\\servidor\crm.exe´));
  If DtLocal < DtRede then
   begin
    Try
      WinExec(PCHAR(modulodados.caminho+´\Atualizador.exe´),         SW_SHOWNORMAL);
      Application.Terminate;
      Except
      Mensagem := ´Não foi possível efetuar a atualização disponível.! ´ +
       #13 + 13 + ´Entre em contato com o Administrador do Sistema.´;
      Application.MessageBox(PChar(Mensagem), ´Informação´,        MB_OK+MB_ICONINFORMATION);
    End;
   End; //Fim de procedimentos de Atualização

 VsLocal := ´c:\crm.exe´;
  VsRede := ´\\servidor\crm.exe´;

  Try

    Mensagem := ´Foi detectada uma nova versão do CRM.´ +#13+ ´O sistema será atualizado. ´ + 13 + 13;
    Application.MessageBox(PChar(Mensagem),
      ´Pctel Crm´, MB_OK+MB_ICONEXCLAMATION);

    C := 1;
    While not (CopyFile(Pchar(VsRede),Pchar(VsLocal), False)) do
      Inc(C);

    //| Após copiar a versao local é executada.

    WinExec(PChar(VsLocal), SW_SHOWNORMAL);

  Except

     //| É exibida uma mensagem de erro caso algo saia errado.

    Mensagem := ´Erro Atualizar o Sistema! ´ + 13 + 13;
    Application.MessageBox(PChar(Mensagem), ´Erro´, MB_OK+MB_ICONERROR);
    Abort;
  End;

  //| A aplicação é finalizada

  Application.Terminate;