打包的两个问题！

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;