| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как установить LANGDRIVER для драйвера PARADOX программно? [D6, Paradox, BDE]

agrig ©   (2002-08-26 16:10:00) 

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

---

agrig   (2002-08-27 11:45:00) [1]

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

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

---

Ученик   (2002-08-26 16:52:00) [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;

---

3JIA9I CyKA   (2002-08-26 16:15:00) [3]

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

---

Наверх