TForm1.FormCreate() // Обработчик события OnCreate
var Data_Base_Path_String: string;
{
Data_Base_Path_String := ...; Считываем из Ini-файла, или отпределяем по каталогу самой программы
DBTable1.DataBase := Data_Base_Path_String;
}
Програмная регистрация alias-ов
Их же можно как-то регистрировать програмно? Расскажите, пожалуйста, срочно нужно...
Код:
Для большинства DB работает на ура. Можно добавить на форму объект DataBase и настроить требуемые свойства в дизайнере формы.
А если программно создавать allias'ы, то их потом как-нибудь придётся удалять :D
Их же можно как-то регистрировать програмно? Расскажите, пожалуйста, срочно нужно...[/QUOTE]
я вот недавно делал инсталл для программы с JET с помощью NSIS, вот кусок скрипта
Код:
; для регистрации ODBC для PrintDoc
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop" "Driver" "$SYSDIR\System32\odbcjt32.dll"
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop" "DefaultDir" "C:\(SCK1)"
WriteRegDword HKCU "Software\ODBC\ODBC.INI\AutoShop" "DriverId" 0x00000215
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop" "FIL" "dBase 5.0"
WriteRegDword HKCU "Software\ODBC\ODBC.INI\AutoShop" "SafeTransactions" 0x00000000
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop" "UID" ""
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "CollatingSequence" "ASCII"
WriteRegBin HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "Deleted" "00"
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "ImplicitCommitSync" ""
WriteRegDword HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "PageTimeout" 0x00000005
WriteRegBin HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "Statistics" "00"
WriteRegDword HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "Threads" 0x00000003
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "UserCommitSync" "Yes"
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop" "Driver" "$SYSDIR\System32\odbcjt32.dll"
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop" "DefaultDir" "C:\(SCK1)"
WriteRegDword HKCU "Software\ODBC\ODBC.INI\AutoShop" "DriverId" 0x00000215
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop" "FIL" "dBase 5.0"
WriteRegDword HKCU "Software\ODBC\ODBC.INI\AutoShop" "SafeTransactions" 0x00000000
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop" "UID" ""
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "CollatingSequence" "ASCII"
WriteRegBin HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "Deleted" "00"
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "ImplicitCommitSync" ""
WriteRegDword HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "PageTimeout" 0x00000005
WriteRegBin HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "Statistics" "00"
WriteRegDword HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "Threads" 0x00000003
WriteRegStr HKCU "Software\ODBC\ODBC.INI\AutoShop\Engines\Xbase" "UserCommitSync" "Yes"
Alias в данном случае AutoShop
И вообще сними реестр (сделай снимок), заведи Alias, еще раз сними и сравни. Разница это то , что нужно программно менять в реестре.
Главное при создании альясов для программы - это автоматически удалить его вместе с программой.
Используй компонент TDataBase (кажись)