Программная конфигурация BDE

← →
art (2004-10-29 13:16) [0]

Нужна функция или реализация чтобы можно было программно проверить опцию LOCAL SHARED на вкладке BDEAdministrator"а Configuration, секция INIT, и если она TRUE, то поменять на FALSE, или вообще любая программная реализация редактирования Конфигурации BDE, НО НЕ АЛИАСОВ!

← →
art (2004-11-02 07:53) [1]

в общем пока ждал ответ уже сам нарыл да переделал, так что вот, любую конфигурационную настройку BDE тобишь вкладка Configuration можно поменять так:

var
hCur : hDBICur;
Config : CFGDesc;
ContinueIt: boolean;

...

begin
if DbiInit(nil) = DBIERR_NONE then
begin
hCur := nil;
if DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent,
"\SYSTEM\INIT", hCur) = DBIERR_NONE then
begin
if DbiSetToBegin(hCur) = DBIERR_NONE then
begin
ContinueIt := true;
while ContinueIt do
begin
if(DbiGetNextRecord(hCur, dbiWRITELOCK, @Config, nil)
<> DBIERR_NONE) then
ContinueIt := false
else
if StrIComp(Config.szNodeName, "LOCAL SHARE") = 0 then
begin
StrCopy(Config.szValue, "FALSE");
DbiModifyRecord(hCur, @Config, true);
ContinueIt := false
end;
end;
end;
end;
DbiExit();
end;
end; (с) исходный текст был немного другой

Программная конфигурация BDE Найти похожие ветки