Fórum Configuração da Aplicação (Registro/INI) no Windows 2000 XP #244589

procedure TdmScwin.DataModuleCreate(Sender: TObject);
var
    vArqIni : TiniFile;
    vPasta: String;
    vEnderecoBanco:String;

begin
    CurrencyDecimals        := 2 ;
    DateSeparator           := ´/´ ;
    ThousandSeparator       := ´,´ ;
    DecimalSeparator        := ´.´;
    ShortDateFormat         := ´dd/mm/yyyy´;
    LongTimeFormat          := ´hh:mm:ss´;
    vPasta := ExtractFilePath(Application.ExeName)+´gerente.ini´;
    vArqIni := tIniFile.Create(vPasta);

    vEnderecoBanco:=dmScWin.ConeccaoVarejo.Params.Values[´Database´];
    if FileExists(vPasta) then
    begin
        try
        begin
            vEnderecoBanco := vArqIni.ReadString(´Configuracao´, ´EnderecoBanco´,´´);
            vLojaAtual:=vArqIni.ReadString(´Configuracao´,´LojaAtual´,´´);
            dmScWin.ConeccaoVarejo.close;
            dmScWin.ConeccaoVarejo.Params.Values[´Database´] := vEnderecoBanco;
            vEnderecoBanco:=dmScWin.ConeccaoVarejo.Params.Values[´Database´];
            dmScWin.ConeccaoVarejo.Open;
            vArqIni.Free;
        end;
        except
        begin
            messagedlg(´Arquivo de Configuracao nao encontrado ou nao pode ser aberto.´,mtError,[mbOk],0);
            Application.Terminate;
        end;
        end;
    end
    else
    begin
        messagedlg(´Arquivo de Configuracao nao encontrado ou nao pode ser aberto.´,mtError,[mbOk],0);
        Application.Terminate;
    end;

end;