Fórum Como inicializar o Form principal desativado e aguardando o login com o Delphi #561561

program Posto;

uses
  Winapi.Windows,
  Vcl.Controls,
  Vcl.Forms,
  UntPrincipal in 'UntPrincipal.pas' ,
  UntDtMdl in 'UntDtMdl.pas' {DtMdl: TDataModule},
  UntCadPadrao in 'UntCadPadrao.pas' ,
  UntVariaveisGlobais in 'UntVariaveisGlobais.pas',
  Vcl.Themes,
  Vcl.Styles,
  UntCadCodCidades in 'UntCadCodCidades.pas' ,
  UntPesqPadrao in 'UntPesqPadrao.pas' ,
  UntPesqCodCidades in 'UntPesqCodCidades.pas' ,
  UntLhtPadrao in 'UntLhtPadrao.pas' ,
  UntLhtUsuarios in 'UntLhtUsuarios.pas' ,
  UntLhtGruposUsr in 'UntLhtGruposUsr.pas' ,
  UntCadTiposComb in 'UntCadTiposComb.pas' ,
  UntCadFornecedores in 'UntCadFornecedores.pas' ,
  UntFormModal in 'UntFormModal.pas' ,
  UntConsCNPJ in 'UntConsCNPJ.pas' ,
  UntConsCPF in 'UntConsCPF.pas' ,
  UntConsCEP in 'UntConsCEP.pas' ,
  UntCadCodLancs in 'UntCadCodLancs.pas' ,
  UntCadLancExtras in 'UntCadLancExtras.pas' ,
  UntPesqCodLancs in 'UntPesqCodLancs.pas' ,
  UntPesqCodCCorrente in 'UntPesqCodCCorrente.pas' ,
  UntPesqCodDespLimite in 'UntPesqCodDespLimite.pas' ,
  UntCadDepartamento in 'UntCadDepartamento.pas' ,
  UntCadClientes in 'UntCadClientes.pas' ,
  UntCadCodDespLimite in 'UntCadCodDespLimite.pas' ,
  UntCadCodECFs in 'UntCadCodECFs.pas' ,
  UntPesqCodSitTributaria in 'UntPesqCodSitTributaria.pas' ,
  UntCadCodSitTributario in 'UntCadCodSitTributario.pas' ,
  UntCadTotECFs in 'UntCadTotECFs.pas' ,
  UntCadCFOP in 'UntCadCFOP.pas' ,
  UntCadTransportadora in 'UntCadTransportadora.pas' ,
  UntCadObs in 'UntCadObs.pas' ,
  UntCadPlacas in 'UntCadPlacas.pas' ,
  UntCadNCMs in 'UntCadNCMs.pas' ,
  UntCadRedes in 'UntCadRedes.pas' ,
  UntCadVendedores in 'UntCadVendedores.pas' ,
  UntCadDias_Liberados in 'UntCadDias_Liberados.pas' ,
  UntCadCheques in 'UntCadCheques.pas' ,
  UntExcecao in 'UntExcecao.pas' ,
  UntCadDetDepositoCheque in 'UntCadDetDepositoCheque.pas' ,
  UntCadDetPadrao in 'UntCadDetPadrao.pas' ,
  UntCadOcorrencias in 'UntCadOcorrencias.pas' ,
  UntCadStaMovimentacao in 'UntCadStaMovimentacao.pas' ,
  UntCadUnidades in 'UntCadUnidades.pas' ,
  UntCadLimCredito in 'UntCadLimCredito.pas' ,
  UntCadAutorizacoes in 'UntCadAutorizacoes.pas' ,
  UntVisualizaCheques in 'UntVisualizaCheques.pas' ,
  Untfuncoes in 'Untfuncoes.pas',
  UntPesqCodCCBancos in 'UntPesqCodCCBancos.pas' ,
  UntCadClientesChq in 'UntCadClientesChq.pas' ,
  UntProcPadrao in 'UntProcPadrao.pas' ,
  UntCadSaidaComb in 'UntCadSaidaComb.pas' ,
  UntPesqCodUnidade in 'UntPesqCodUnidade.pas' ,
  UntCadLeituraBomba in 'UntCadLeituraBomba.pas' ,
  UntCadLeituraBico in 'UntCadLeituraBico.pas' ,
  UntEnvArqEmail in 'UntEnvArqEmail.pas' ,
  UntCadDetRepasse in 'UntCadDetRepasse.pas' ,
  UntProcBaixaAutomatica in 'UntProcBaixaAutomatica.pas' ,
  UntCadMovCheques in 'UntCadMovCheques.pas' ,
  UntPesqCadStaMovimento in 'UntPesqCadStaMovimento.pas' ,
  UntPesqCadFornecedores in 'UntPesqCadFornecedores.pas' ,
  UntCadResumos in 'UntCadResumos.pas' ,
  UntSenha in 'UntSenha.pas' ,
  UntCadEmails in 'UntCadEmails.pas' ,
  UntCadEntradaOleo in 'UntCadEntradaOleo.pas' ,
  UntCadTitulos in 'UntCadTitulos.pas' ,
  UntCadBaixas in 'UntCadBaixas.pas' ,
  UntPesqCadTitulos in 'UntPesqCadTitulos.pas' ,
  UntCadDetCombEnt in 'UntCadDetCombEnt.pas' ,
  UntComplCombust in 'UntComplCombust.pas' ,
  UntProcMovAutomatica in 'UntProcMovAutomatica.pas' ,
  UntCadDetDespLimite in 'UntCadDetDespLimite.pas' ,
  UntCadBicoGas in 'UntCadBicoGas.pas' ,
  UntCadBicos in 'UntCadBicos.pas' ,
  UntCadDispenser in 'UntCadDispenser.pas' ,
  UntCadTanques in 'UntCadTanques.pas' ,
  UntCadTanquesData in 'UntCadTanquesData.pas' ,
  UntPesqCadTanques in 'UntPesqCadTanques.pas' ,
  UntCadChequeDev in 'UntCadChequeDev.pas' ,
  UntCadNotasAntigas in 'UntCadNotasAntigas.pas' ,
  UntCadNotas in 'UntCadNotas.pas' ,
  UntCadConhecimentoFrete in 'UntCadConhecimentoFrete.pas' ,
  UntPesqCadCFOP in 'UntPesqCadCFOP.pas' ,
  UntCadClientesNotas in 'UntCadClientesNotas.pas' ,
  UntCadLimiteNota in 'UntCadLimiteNota.pas' ,
  UntProcExportaNotas in 'UntProcExportaNotas.pas' ,
  UntProcImportaNotas in 'UntProcImportaNotas.pas' ,
  UntProcPlanilha in 'UntProcPlanilha.pas' ,
  UntPesqPlanilha in 'UntPesqPlanilha.pas' ,
  UntProcConfigFTP in 'UntProcConfigFTP.pas' ,
  UntCadDetGruposProd in 'UntCadDetGruposProd.pas' ,
  UntCadDetProdutos in 'UntCadDetProdutos.pas' ,
  UntCadTributacao in 'UntCadTributacao.pas' ,
  UntPesqCadProdutos in 'UntPesqCadProdutos.pas' ,
  UntPesqCodECF in 'UntPesqCodECF.pas' ,
  UntPesqTributacao in 'UntPesqTributacao.pas' ,
  UntProcConsCheques in 'UntProcConsCheques.pas' ,
  UntProcConsCHClientes in 'UntProcConsCHClientes.pas' ,
  UntPesqCadClientes in 'UntPesqCadClientes.pas' ,
  UntCadBicoOleo in 'UntCadBicoOleo.pas' ,
  UntCadIBPT in 'UntCadIBPT.pas' ,
  UntCadProdsFornec in 'UntCadProdsFornec.pas' ,
  UntCadTambOleo in 'UntCadTambOleo.pas' ,
  UntCadDetCompProd in 'UntCadDetCompProd.pas' ,
  UntProcConsMedCliente in 'UntProcConsMedCliente.pas' ,
  UntRelPadrao in 'UntRelPadrao.pas' ,
  UntRelEmissao in 'UntRelEmissao.pas' ,
  UntProcConsGeral in 'UntProcConsGeral.pas' ,
  UntRelVencimento in 'UntRelVencimento.pas' ,
  UntRelChequesResumo in 'UntRelChequesResumo.pas' ,
  UntRelResVenc in 'UntRelResVenc.pas' ,
  UntRelChequeCliente in 'UntRelChequeCliente.pas' ,
  UntRelClienteDetal in 'UntRelClienteDetal.pas' ,
  UntRelCltIrregulares in 'UntRelCltIrregulares.pas' ,
  UntRelCheque in 'UntRelCheque.pas' ,
  UntdmAux in 'UntdmAux.pas' {DtMdlAux: TDataModule},
  UntProcExportaChqClt in 'UntProcExportaChqClt.pas' ,
  UntProcImportaCheques in 'UntProcImportaCheques.pas' ,
  UntProcImpChequesArq in 'UntProcImpChequesArq.pas' ,
  UntProcExportaWeb in 'UntProcExportaWeb.pas' ,
  UntRelResumo in 'UntRelResumo.pas' ,
  UntRelResLucro in 'UntRelResLucro.pas' ,
  UntRelResVendas in 'UntRelResVendas.pas' ,
  UntRelMovProduto in 'UntRelMovProduto.pas' ,
  UntRelVendas in 'UntRelVendas.pas' ,
  UnTPesqVendasProd in 'UnTPesqVendasProd.pas' ,
  UntRelFisFinProd in 'UntRelFisFinProd.pas' ,
  UntCadContaCorrente in 'UntCadContaCorrente.pas' ,
  UntRelFisFinTanques in 'UntRelFisFinTanques.pas' ,
  UntRelQntFixo in 'UntRelQntFixo.pas' ,
  UntRelProdMapa in 'UntRelProdMapa.pas' ,
  UntRelCodLanc in 'UntRelCodLanc.pas' ,
  UntRelProdECF in 'UntRelProdECF.pas' ,
  UntPesqGruposProd in 'UntPesqGruposProd.pas' ,
  UntPesqSubGrpProd in 'UntPesqSubGrpProd.pas' ,
  UntRelProdporIBPT in 'UntRelProdporIBPT.pas' ,
  UntPesqIBPT in 'UntPesqIBPT.pas' ,
  UntRelNotasCliente in 'UntRelNotasCliente.pas' ,
  UntResNotasAberto in 'UntResNotasAberto.pas' ,
  UntResNotasCliente in 'UntResNotasCliente.pas' ,
  UntRelListaNotas in 'UntRelListaNotas.pas' ,
  UntRelNotasImport in 'UntRelNotasImport.pas' ,
  UntRelLancExtras in 'UntRelLancExtras.pas' ,
  UntRelResLancExtras in 'UntRelResLancExtras.pas' ,
  UntRelLancExtGrp in 'UntRelLancExtGrp.pas' ,
  UntRelDocVenc in 'UntRelDocVenc.pas' ,
  UntRelDocEmis in 'UntRelDocEmis.pas' ,
  UntRelDocForn in 'UntRelDocForn.pas' ,
  UntCadDetMovProd in 'UntCadDetMovProd.pas' ,
  UntModalComplNFE in 'UntModalComplNFE.pas' ,
  UntRelRecibo in 'UntRelRecibo.pas' ,
  UntExtensos in 'UntExtensos.pas',
  UntRelEntComb in 'UntRelEntComb.pas' ,
  UntProcBxAutoNotas in 'UntProcBxAutoNotas.pas' ,
  UntRelSaldoDiarios in 'UntRelSaldoDiarios.pas' ,
  UntProcInformaConferencia in 'UntProcInformaConferencia.pas' ,
  UntCadLeituraOleo in 'UntCadLeituraOleo.pas' ,
  UntRelCaixaDia in 'UntRelCaixaDia.pas' ,
  UntSenhaDinamica in 'UntSenhaDinamica.pas' ,
  UntRelImpRelatorios in 'UntRelImpRelatorios.pas' ,
  UntRelNotasEntrada in 'UntRelNotasEntrada.pas' ,
  UntRelContasCorrentes in 'UntRelContasCorrentes.pas' ,
  UntProcEstornoBaixa in 'UntProcEstornoBaixa.pas' ,
  UntProcBxManualNotas in 'UntProcBxManualNotas.pas' ,
  UntProcExportaTXT in 'UntProcExportaTXT.pas' ,
  UntProcExportaCHNT in 'UntProcExportaCHNT.pas' ,
  UntProcRelatorioTXT in 'UntProcRelatorioTXT.pas' ,
  UntProcImpDespLim in 'UntProcImpDespLim.pas' ,
  UntProcImportStatus in 'UntProcImportStatus.pas' ,
  UntProcExportaCod in 'UntProcExportaCod.pas' ,
  UntProcTransfereSG in 'UntProcTransfereSG.pas' ,
  UntProcGeraLub in 'UntProcGeraLub.pas' ,
  UntRelDescontosECF in 'UntRelDescontosECF.pas' ,
  UntProcImportaNotasSG in 'UntProcImportaNotasSG.pas' ,
  UntRelCartoes in 'UntRelCartoes.pas' ,
  UntCadCartoes in 'UntCadCartoes.pas' ,
  UntPesqRedes in 'UntPesqRedes.pas' ,
  UntProcExportaCartoes in 'UntProcExportaCartoes.pas' ,
  UntProcImportaCartoesSG in 'UntProcImportaCartoesSG.pas' ,
  UntProcAjusteCPF_CNPJ in 'UntProcAjusteCPF_CNPJ.pas' ,
  UntProcAjusteProduto in 'UntProcAjusteProduto.pas' ,
  UntProcGeraSenhaECF in 'UntProcGeraSenhaECF.pas' ,
  UntProcTrocaSenha in 'UntProcTrocaSenha.pas' ,
  UntVerificaIP in 'UntVerificaIP.pas' ,
  UntProcBaixaTitulosAutom in 'UntProcBaixaTitulosAutom.pas' ,
  UntProcImportaPista in 'UntProcImportaPista.pas' ,
  UntAltUsr in 'UntAltUsr.pas' ,
  UntAutUsr in 'UntAutUsr.pas' ,
  UntProcConfigSMTP in 'UntProcConfigSMTP.pas' ,
  UntProcConsultaVendas in 'UntProcConsultaVendas.pas' ,
  UntProcDept_MovCheques in 'UntProcDept_MovCheques.pas' ,
  UntProcDept_Notas in 'UntProcDept_Notas.pas' ,
  UntProcExportaMes in 'UntProcExportaMes.pas' ,
  UntProcImportaVendas in 'UntProcImportaVendas.pas' ,
  UntProcPermutaLanc in 'UntProcPermutaLanc.pas' ,
  UntPesqCodLancExtra in 'UntPesqCodLancExtra.pas' ,
  UntProcRecalcCusto in 'UntProcRecalcCusto.pas' ,
  UntProcBackup in 'UntProcBackup.pas' ,
  UntProcGeraTXT in 'UntProcGeraTXT.pas' ,
  UntProcFechaDia in 'UntProcFechaDia.pas' ,
  UntCadCodCCBancos in 'UntCadCodCCBancos.pas' ,
  UntDetalGeral in 'UntDetalGeral.pas' ,
  UntLhtInformacoes in 'UntLhtInformacoes.pas' ,
  UntPesqUnidades in 'UntPesqUnidades.pas' ,
  UntPesqUnidMedida in 'UntPesqUnidMedida.pas' ,
  UntPesqCadPlaca in 'UntPesqCadPlaca.pas' ,
  UntCadDetProdVenda in 'UntCadDetProdVenda.pas' ,
  supportfunctions6 in '..\\\\Componentes\\\\supportfunctions6.pas',
  UntCadDetNotaFiscal in 'UntCadDetNotaFiscal.pas' ,
  UntProcGeraNFe in 'UntProcGeraNFe.pas' ,
  UntProcImprimeNFe in 'UntProcImprimeNFe.pas' ,
  UntProcCancelaNFe in 'UntProcCancelaNFe.pas' ,
  UntProcEnviaNFe in 'UntProcEnviaNFe.pas' ,
  UntProcInutilizarNFe in 'UntProcInutilizarNFe.pas' ,
  UntProcCartaCorrecao in 'UntProcCartaCorrecao.pas' ,
  UntProcImprimeCartaCor in 'UntProcImprimeCartaCor.pas' ,
  UntProcEnviaCCE in 'UntProcEnviaCCE.pas' ,
  UntProcSelCertificado in 'UntProcSelCertificado.pas' ,
  UntProcAlteraTipoNFe in 'UntProcAlteraTipoNFe.pas' ,
  UntModalImpCartaCorrecao in 'UntModalImpCartaCorrecao.pas' ,
  UntQrRelatorio in 'UntQrRelatorio.pas' {FrmQrRelatorio: TQuickRep},
  UntProcRenumera in 'UntProcRenumera.pas' ,
  UntProcConsNFe in 'UntProcConsNFe.pas' ,
  UntModalRelValida in 'UntModalRelValida.pas' ,
  UntModalContingencia in 'UntModalContingencia.pas' ,
  UntInformaNFCe in 'UntInformaNFCe.pas' ,
  UntInformaCupons in 'UntInformaCupons.pas' ,
  UntPesqCadTransp in 'UntPesqCadTransp.pas' ,
  UntPesqREMNFCe in 'UntPesqREMNFCe.pas' ,
  UntCadAltProd in 'UntCadAltProd.pas' ,
  UntModalImportaSGLeituras in 'UntModalImportaSGLeituras.pas' ,
  UntPesqLeituraBomba in 'UntPesqLeituraBomba.pas' ,
  UntDtMdlWEB in 'UntDtMdlWEB.pas' {DtMdlWEB: TDataModule},
  UntRelResSaldoDia in 'UntRelResSaldoDia.pas' ,
  UntSuporte in 'UntSuporte.pas' ,
  UntRelQntProd in 'UntRelQntProd.pas' ;

{$R *.res}


  Begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TDtMdl, DtMdl);
  Application.CreateForm(TFrmPrincipal, FrmPrincipal);
  Application.CreateForm(TFExecao, FExecao);
  Application.CreateForm(TDtMdlAux, DtMdlAux);
  Application.CreateForm(TDtMdlWEB, DtMdlWEB);
  FrmAltUsr := TFrmAltUsr.Create(Application);

  if FrmAltUsr.Showmodal = mrOK then
  begin
    FrmAltUsr.Free;
    Application.Run;
  end
  else
  begin
    FrmAltUsr.Free;
    Application.Terminate;
  end;

end.