Скачать: CL | DM;

Программная конфигурация 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; (с) исходный текст был немного другой

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c