Fórum Application.terminate #356332

procedure TAtu.Execute; var url: string; begin try if FrmFuncs.VerInt = true then begin FrmLogado.barra.Visible := true; url := FrmLogado.web.Get(´http://www.infatica.com/clientes/scaffini/versao.php´); if AppVr <> url then begin FrmLogado.barra.Visible := false; if Application.MessageBox(´Atualização disponível, deseja atualizar agora?´, ´Atualização´, MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_TOPMOST) = IDYES Then begin winexec(PCHAR(ExtractFilePath(Application.ExeName) + ´atualizacao.exe´),sw_shownormal); halt; end; end else begin FrmLogado.barra.Visible := false; Application.MessageBox(´Nenhuma atualização disponível no momento´,´Atualizações´,64); Exit; end; end; except FrmLogado.barra.Visible := false; Application.MessageBox(´Erro ao verificar atualizações´,´Atualização´,16); exit; end; end;