Как установить LANGDRIVER для драйвера PARADOX программно?

← →
agrig (2002-08-26 16:10) [0]

Сабж.
Все знают как сделать это через BDE Admin. Но как установить этот параметр в программе?
Надо для инсталяции.

← →
3JIA9I CyKA (2002-08-26 16:15) [1]

В параметрах Database засунь
langdrv=ancyrr

← →
Ученик (2002-08-26 16:52) [2]

function WriteLanguageDriver(const DriverName, LanguageName : string) : Boolean;

function FindAndWrite(const ConfigPath : string) : Boolean;
var
sConfigPath : string;
Cursor: HDBICur;
ConfigDesc: CFGDesc;
begin
Result := False;
sConfigPath := Format(ConfigPath, [DriverName]);
if (DbiOpenCfgInfoList(nil, dbiReadOnly, cfgPERSISTENT,
PChar(sConfigPath), Cursor) = 0) then begin
DbiCloseCursor(Cursor);
if (DbiOpenCfgInfoList(nil, dbiReadWrite, cfgPERSISTENT,
PChar(sConfigPath), Cursor) = 0) then try
while DbiGetNextRecord(Cursor, dbiNOLOCK, @ConfigDesc, nil) = 0 do begin
if StrComp(ConfigDesc.szNodeName, "LANGDRIVER") = 0 then begin
StrPCopy(ConfigDesc.szValue, LanguageName);
Result := DbiModifyRecord(Cursor, @ConfigDesc, True) = 0;
Break
end
end
finally
DbiCloseCursor(Cursor);
end
end
end;

begin
Result := FindAndWrite("\DRIVERS\%s\INIT") or FindAndWrite("\DRIVERS\%s\DB OPEN")
end;

← →
agrig (2002-08-27 11:45) [3]

Спасибо ребята,

пока ждал ответа, я понял, почему у самого не получалось.
есть еще такой способ:
Session.ModifyDriver(.. , ..)
Делает по сути тоже что и "ученик". только чуть быстрее.

Как установить LANGDRIVER для драйвера PARADOX программно? Найти похожие ветки