打包的两个问题!
lzuyh 2003-12-15 10:31:00 1、pb9+asa8怎么用installshield打包,第一没用过,第二搜索了论坛,不太详细。
2、能否帮助分析一下下面的东西(那位前辈写的)。
function SetupRegistry()
NUMBER nResult;
begin
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
if(RegDBKeyExist ("Software\\ODBC") < 0) then
RegDBCreateKeyEx ("Software\\ODBC\\" ,"");
RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI" ,"");
RegDBCreateKeyEx ("Software\\ODBC\\ODBCINST.INI" ,"");
RegDBCreateKeyEx ("Software\\ODBC\\ODBCINST.INI\\ODBC Drivers" ,"");
RegDBCreateKeyEx ("Software\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 7.0" ,"");
endif;
//Adaptive Server Anywhere 7.0
if (RegDBKeyExist("Software\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 7.0") < 0) then
RegDBCreateKeyEx ("Software\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 7.0" ,"");
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 7.0" , "Driver" , REGDB_STRING ,TARGETDIR ^ "\\Asa70\\WIN32\\dbodbc7.dll", -1); // TARGETDIR + "\dbodbc7.dll", -1);
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 7.0" , "Setup" , REGDB_STRING ,TARGETDIR ^ "\\Asa70\\WIN32\\dbodbc7.dll", -1); //TARGETDIR + "\dbodbc7.dll ", -1);
endif;
//Adaptive Server Anywhere 7.0 Translator
if (RegDBKeyExist("Software\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 7.0 Translator") < 0) then
RegDBCreateKeyEx ("Software\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 7.0 Translator" ,"");
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 7.0 Translator" , "Setup" , REGDB_STRING ,TARGETDIR ^ "\\Asa70\\WIN32\\dbodtr7.dll", -1);
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 7.0 Translator" , "Translator" , REGDB_STRING ,TARGETDIR ^ "\\Asa70\\WIN32\\dbodtr7.dll", -1);
endif;
///////
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBCINST.INI\\ODBC Drivers" , "Adaptive Server Anywhere 7.0" , REGDB_STRING , "Installed" , -1);
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBCINST.INI\\ODBC Translators" , "Adaptive Server Anywhere 7.0 Translator" , REGDB_STRING , "Installed" , -1);
RegDBSetDefaultRoot ( HKEY_CURRENT_USER );
if(RegDBKeyExist("Software\\ODBC\\ODBC.INI\\TEST") < 0) then
if(RegDBKeyExist("Software\\ODBC\\ODBC.INI") < 0) then
if(RegDBKeyExist("Software\\ODBC") < 0) then
RegDBCreateKeyEx ("Software\\ODBC","");
endif;
RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI","");
endif;
RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\TEST","");
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\TEST", "AutoStop" , REGDB_STRING , "YES" , -1); //AutoStop
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\TEST", "Driver" , REGDB_STRING ,TARGETDIR ^ "\\Asa70\\WIN32\\dbodbc7.dll" , -1); //Driver
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\TEST", "Integrated" , REGDB_STRING ,"NO" , -1); //Integrated
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\TEST", "PWD" , REGDB_STRING , "sql" , -1); //PWD
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\TEST", "UID" , REGDB_STRING ,"dba" , -1); //UID
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\TEST", "Start" , REGDB_STRING , TARGETDIR ^ "\\Asa70\\WIN32\\dbsrv7.exe -c 16m" , -1);
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\TEST", "DatabaseFile" , REGDB_STRING , TARGETDIR ^ "\\DataBase\\TEST.db" , -1);
//RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\TEST", "Start" ,REGDB_STRING ,TARGETDIR ^ "Asa70\\win32\\dbsrv7.exe -c 16m" , -1);//Start
//else
// RegDBDeleteKey ("Software\\ODBC\\ODBC.INI\\TEST");
// RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\TEST","");
endif;
if(RegDBKeyExist("Software\\ODBC\\ODBC.INI\\ODBC Data Sources") < 0) then
RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\ODBC Data Sources","");
endif;
RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\ODBC Data Sources", "TEST" , REGDB_STRING ,"Adaptive Server Anywhere 7.0" , -1);
// TODO : Add all your registry entry keys here
// RegDBCreateKeyEx, RegDBSetKeyValueEx....
return 0;
//nResult=CreateRegistrySet("");
//return nResult;
end;