BDE - Como alterar o MAXFILEHANDLES via código?

up!

up!

[url=http://www.activedelphi.com.br/forum/viewtopic.php?p=184266#184266]Isto[/url] não funcionou?

an.der.son,

Achei esse procedimento.
Funciona perfeitamente.
Obrigado pela ajuda e atenção.

procedure SetMaxFileHandles;
var hCur: hDBICur;
rslt: DBIResult;
Config: CFGDesc;
Temp: array[0..255] of char;
SettingsChanged : Boolean;
begin
try
SettingsChanged := False;
Check(DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPERSISTENT, StrPCopy(Temp, ´\SYSTEM\INIT\´), hCur));
repeat
rslt := DbiGetNextRecord(hCur, dbiNOLOCK, @Config, nil);
if rslt = DBIERR_NONE then begin
if StrPas(Config.szNodeName) = ´MAXFILEHANDLES´ then begin
if Config.szValue <> ´255´ then begin
StrPCopy(Config.szValue, ´255´);
Check(DbiModifyRecord(hCur, @Config, TRUE));
SettingsChanged := True;
end;
end;
end else if rslt <> DBIERR_EOF then Check(rslt);
until rslt <> DBIERR_NONE;
finally
if (hCur <> nil) then Check(DbiCloseCursor(hCur));
end;
if SettingsChanged then begin
ShowMessage(PChar(´Algumas configurações necessárias foram efetuadas.´ + chr(13) +
´O Sistema será finalizado.´));
Halt;
end;
end;