Программная конфигурация BDE [Paradox]
art © (2004-10-29 13:16:00)
Нужна функция или реализация чтобы можно было программно
проверить опцию LOCAL SHARED на вкладке BDEAdministrator'а
Configuration, секция INIT, и если она TRUE, то поменять на FALSE,
или вообще любая программная реализация редактирования Конфигурации
BDE, НО НЕ АЛИАСОВ!
art (2004-11-02 07:53:00) [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; (с) исходный текст был немного другой
Наверх 
ЧАТ |
Орешник |
|
