Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.16;
Скачать: CL | DM;

Вниз

Как установить 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(.. , ..)
Делает по сути тоже что и "ученик". только чуть быстрее.



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

Текущий архив: 2002.09.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
3-50590
progger
2002-08-25 10:44
2002.09.16
Помогите с Query


14-50953
Flash1
2002-08-21 21:51
2002.09.16
Методика оценки программного продукта?


4-51037
hovl
2002-07-26 20:26
2002.09.16
extracting icon from file


1-50712
reach
2002-09-02 12:41
2002.09.16
Как получить версию ActiveX компонента


14-50958
Феликс
2002-08-21 23:18
2002.09.16
Odigo - прикольная вещь!