Как проще всего установить свою программу с базой?

← →
Zhekson (2005-04-28 15:55) [0]

Т.е. если BDE отсутствует то поставить и прописать в ней свою базу данных.

← →
Виталий Панасенко (2005-04-28 16:03) [1]

InstallShield for Delphi

← →
Leonid (2005-04-29 09:55) [2]

Заархивируй BDE.
Она находится в C:\Program Files\Common Files\Borland Shared\BDE.
При инстоляци распакуй.
Вот процедура, которая прописывает в Registry всё что нужно.
Через заголовок передаётся путь к BDE.
Можно разместить на файл-сервере.

procedure InstallBde(Pth:String);
const
Bor: string = "SOFTWARE\Borland";
var
Reg: TRegistry;
BPath: string;
begin
BPath:=PTH;
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(Bor + "\Database Engine", True);
WriteString("CONFIGFILE01", BPath+"\IDAPI32.CFG");
WriteString("DLLPATH", BPath);
WriteString("RESOURCE", "0009");
WriteString("SaveConfig", "WIN32");
WriteString("UseCount", "6");
CloseKey;
OpenKey(Bor+"\BLW32",True);
WriteString("BLAPIPATH", BPath);
WriteString("LOCALE_LIB3", BPath+"\OTHER.BLL");
WriteString("LOCALE_LIB4", BPath+"\CHARSET.BLL");
CloseKey;
OpenKey(Bor+"\Database Engine\Settings\SYSTEM\INIT",True);
WriteString("AUTO ODBC", "FALSE");
WriteString("DATA REPOSITORY", "Sample Data Dictionary");
WriteString("DEFAULT DRIVER", "DBASE");
WriteString("LANGDRIVER", "DBWINUS0");
WriteString("LOCAL SHARE", "TRUE");
WriteString("LOW MEMORY USAGE LIMIT", "32");
WriteString("MAXBUFSIZE", "2048");
WriteString("MAXFILEHANDLES", "48");
WriteString("MEMSIZE", "16");
WriteString("MINBUFSIZE", "128");
WriteString("MTS POOLING", "FALSE");
WriteString("SHAREDMEMLOCATION", "");
WriteString("SHAREDMEMSIZE", "2048");
WriteString("SQLQRYMODE", "");
WriteString("SYSFLAGS", "0");
WriteString("VERSION", "4.0");
CloseKey;
OpenKey(Bor+"\Database Engine\Settings\SYSTEM\FORMATS\DATE",True);
WriteString("FOURDIGITYEAR", "FALSE");
WriteString("LEADINGZEROD", "FALSE");
WriteString("LEADINGZEROM", "FALSE");
WriteString("MODE", "0");
WriteString("SEPARATOR", "/");
WriteString("YEARBIASED", "TRUE");
CloseKey;
OpenKey(Bor+"\Database Engine\Settings\SYSTEM\FORMATS\NUMBER",True);
WriteString("DECIMALDIGITS", "2");
WriteString("DECIMALSEPARATOR", ".");
WriteString("LEADINGZERON", "TRUE");
WriteString("THOUSANDSEPARATOR", ",");
CloseKey;
OpenKey(Bor+"\Database Engine\Settings\SYSTEM\FORMATS\TIME",True);
WriteString("AMSTRING", "AM");
WriteString("MILSECONDS", "FALSE");
WriteString("PMSTRING", "PM");
WriteString("SECONDS", "TRUE");
WriteString("TWELVEHOUR", "TRUE");
CloseKey;
OpenKey(Bor+"\Database Engine\Settings\REPOSITORIES",True);
CloseKey;
OpenKey(Bor+"\Database Engine\Settings\DRIVERS\DBASE\INIT",True);
WriteString("LANGDRIVER", "DBWINUS0");
WriteString("TYPE", "FILE");
WriteString("VERSION", "4.0");
CloseKey;
OpenKey(Bor+"\Database Engine\Settings\DRIVERS\DBASE\TABLE CREATE",True);
WriteString("MDX BLOCK SIZE", "1024");
WriteString("MEMO FILE BLOCK SIZE", "1024");
WriteString("LEVEL", "5");
CloseKey;
end;
Reg.Free;
end;

Как проще всего установить свою программу с базой? Найти похожие ветки