BDE - mudando configuracoes

Top  Previous  Next

Para mudar qualquer configuracao do BDE via código:

--------------------------------------------------

var

  hCursor : HDBICur;

  ConfigDesc: CFGDesc;

begin

  Check(dbiInit(Nil)); { inicializar a bde }

  Check( DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPERSISTENT,'\drivers\dbase\table create', hCursor ));

  try

    { Para cada registro em nosso novo cursor }

    while DbiGetNextRecord(hCursor, dbiNOLOCK, @ConfigDesc, nil) = 0 do

      With ConfigDesc do

        If StrComp( szNodeName, 'LEVEL') = 0 then

        begin

          { Troca o valor do Local Share para True }

          StrPLCopy(szValue, '5', sizeOf(szValue));

          AnsiToOem(SzValue, szValue);

          Check(DbiModifyRecord(hCursor, @ConfigDesc, True));

          Break;

        end;

  finally

    DbiCloseCursor(hCursor); { Fechar o cursor }

  end;

 

 

Este exemplo troca o LEVEL do DBASE para 5

Note que a chave '\drivers\dbase\table create' é igual a que está no

registro do Windows, apesar de mudar via BDE....