setup.rul

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

          
          
    if RegDBCreateKeyEx('\\Software\\Borland\\Database Engine','')<0 then
        abort;
    endif;     
    if RegDBSetKeyValueEx('\\Software\\Borland\\Database Engine','DLLPATH',REGDB_STRING,TARGETDIR+'\\bde',-1)<0 then
        abort;
    endif;  
    if RegDBCreateKeyEx('\\Software\\Borland\\BLW32','')<0 then
        abort;
    endif;     
    if RegDBSetKeyValueEx('\\Software\\Borland\\BLW32','BLAPIPATH',REGDB_STRING,TARGETDIR+'\\bde',-1)<0 then
        abort;
    endif;   
    if RegDBSetKeyValueEx('\\Software\\Borland\\BLW32','LOCALE_LIB0',REGDB_STRING,TARGETDIR+'\\bde\\fareasst.btl',-1)<0 then
        abort;
    endif;
    if RegDBSetKeyValueEx('\\Software\\Borland\\BLW32','LOCALE_LIB1',REGDB_STRING,TARGETDIR+'\\bde\\usa.btl',-1)<0 then
        abort;
    endif;
    
if InstallType==1 then
if RegDBCreateKeyEx('\\software\\odbc\\odbc.ini\\ODBC Data Sources','')<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\ODBC Data Sources','esdd',REGDB_STRING,'Epsoft SQLAnywhere',-1)<0 then
       abort;
 endif;
 if RegDBCreateKeyEx('\\software\\odbc\\ODBC.INI\\esdd','')<0 then
        abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','AutoStop',REGDB_STRING,'yes',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','DatabaseFile',REGDB_STRING,szDatabasePath+'esdd.db',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','DatabaseName',REGDB_STRING,'esdd',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','Driver',REGDB_STRING,szDatabasePath+'wod50t.dll',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','PWD',REGDB_STRING,'sql',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','Start',REGDB_STRING,szDatabasePath+'dbeng50.exe   -Q -d -c512',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','UID',REGDB_STRING,'dba',-1)<0 then
       abort;
 endif;

endif;

if InstallType==2 then
 if RegDBCreateKeyEx('\\software\\odbc\\odbc.ini\\ODBC Data Sources','')<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\ODBC Data Sources','esdd',REGDB_STRING,'Epsoft SQLAnywhere',-1)<0 then
       abort;
 endif;
 if RegDBCreateKeyEx('\\software\\odbc\\ODBC.INI\\esdd','')<0 then
        abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','AutoStop',REGDB_STRING,'yes',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','DatabaseName',REGDB_STRING,'esdd',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','Driver',REGDB_STRING,szDatabasePath+'wod50t.dll',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','PWD',REGDB_STRING,'sql',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','Start',REGDB_STRING,szDatabasePath+'dbsrv50.exe -x TCPIP '+szDatabasePath+'esdd.db',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','UID',REGDB_STRING,'dba',-1)<0 then
       abort;
 endif;         
endif;

if InstallType==3 then
//MessageBox(szMsg,InstallType);
            //case 1 : //szMsg = "The user's video is unknown.";
           // case 2 : //szMsg = "EGA resolution.";
            //case 3 :
 if RegDBCreateKeyEx('\\software\\odbc\\odbc.ini\\ODBC Data Sources','')<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\ODBC Data Sources','esdd',REGDB_STRING,'Epsoft SQLAnywhere',-1)<0 then
       abort;
 endif;
 if RegDBCreateKeyEx('\\software\\odbc\\ODBC.INI\\esdd','')<0 then
        abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','AutoStop',REGDB_STRING,'yes',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','DatabaseName',REGDB_STRING,'esdd',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','Driver',REGDB_STRING,szDatabasePath+'wod50t.dll',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','PWD',REGDB_STRING,'sql',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','Start',REGDB_STRING,szDatabasePath+'dbclient.exe -x tcpip',-1)<0 then
       abort;
 endif;
 if RegDBSetKeyValueEx('\\software\\odbc\\odbc.ini\\esdd','UID',REGDB_STRING,'dba',-1)<0 then
       abort;
 endif;

endif;
//endswitch;
if SYSINFO.WIN9X.bWin9X then
   nbootkey =HKEY_CURRENT_USER;    
   if RegDBSetDefaultRoot(nbootkey) < 0 then
        abort
    endif;
   if RegDBSetKeyValueEx('\\Control Panel\\International','sShortDate',REGDB_STRING,'yyyy-M-d',-1)<0 then
       abort;
   endif;   
   nbootkey =HKEY_USERS;    
   if RegDBSetDefaultRoot(nbootkey) < 0 then
        abort
    endif;
   if RegDBSetKeyValueEx('\\.DEFAULT\\Control Panel\\International','sShortDate',REGDB_STRING,'yyyy-M-d',-1)<0 then
       abort;
   endif;
endif; 

return 1;

end;

/////////////////////////////////////////////
//
//
/////////////////////////////////////////////
function SetupFolders()

 string svPathname;
   STRING szProgramFolder, szItemName, szCommandLine, szWorkingDir, szIconPath;
   STRING szShortCutKey, szProgram, szParam;
   NUMBER nIcon, nFlag;
   STRING szDatabasePath;
   STRING svLogFile;

 begin
   svLogFile=TARGETDIR+'\\'+UNINST_LOGFILE_NAME;
   szDatabasePath  = TARGETDIR + '\\database\\';
   szProgramFolder = FOLDER_PROGRAMS^SHELL_OBJECT_FOLDER^"社保直通车";
   szItemName    = "恩普社保直通车";
   szProgram = "";
   szParam   = "";
   szCommandLine = "";
   szWorkingDir  = TARGETDIR ;
//   LongPathToQuote (szWorkingDir,TRUE);
   szIconPath    = TARGETDIR+'\\picture\\esiis.ico';
   nIcon         = 0;
   szShortCutKey = "";
   nFlag         = REPLACE;
   svPathname = TARGETDIR + '\\esdd.exe';
   LongPathToQuote ( svPathname , TRUE );
   AddFolderIcon (szProgramFolder, szItemName, svPathname, szWorkingDir,szIconPath, nIcon, szShortCutKey, nFlag);
   
   szProgramFolder = FOLDER_PROGRAMS^SHELL_OBJECT_FOLDER^"社保直通车";
   szItemName    = "社保直通车升级程序";
   szProgram = "";
   szParam   = "";
   szCommandLine = "";
   szWorkingDir  = TARGETDIR ;
   szIconPath    = TARGETDIR+'\\picture\\update.ico';
   nIcon         = 0;
   szShortCutKey = "";
   nFlag         = REPLACE;
   svPathname = TARGETDIR + '\\update.exe';
   LongPathToQuote ( svPathname , TRUE );
   AddFolderIcon (szProgramFolder, szItemName, svPathname, szWorkingDir,szIconPath, nIcon, szShortCutKey, nFlag);
   
   szProgramFolder = FOLDER_PROGRAMS^SHELL_OBJECT_FOLDER^"社保直通车";
   szItemName    = "社保直通车售后服务用户说明";
   szProgram = "";
   szParam   = "";
   szCommandLine = "";
   szWorkingDir  = TARGETDIR ;
   szIconPath    = TARGETDIR+'\\picture\\service.ico';
   nIcon         = 0;
   szShortCutKey = "";
   nFlag         = REPLACE;
   svPathname = TARGETDIR + '\\社保直通车售后服务用户说明.htm';
   LongPathToQuote ( svPathname , TRUE );
   AddFolderIcon (szProgramFolder, szItemName, svPathname, szWorkingDir,szIconPath, nIcon, szShortCutKey, nFlag);
   
   if InstallType==2 then
   szProgramFolder = FOLDER_PROGRAMS^SHELL_OBJECT_FOLDER^"社保直通车";
   szItemName    = "数据库服务器";
   szProgram = "";
   szParam   = "";
   szCommandLine = "";
   szWorkingDir  = TARGETDIR + '\\database\\';
   szIconPath    = "";
   nIcon         = 0;
   szShortCutKey = "";
   svPathname = szDatabasePath+'dbsrv50.exe';
   nFlag         = REPLACE;
   LongPathToShortPath(svPathname);
   svPathname = '"'+szDatabasePath+'dbsrv50.exe" -x TCPIP "'+szDatabasePath+'esdd.db"';
 //  LongPathToQuote ( svPathname , TRUE );
   AddFolderIcon (szProgramFolder, szItemName, svPathname, szWorkingDir,szIconPath, nIcon, szShortCutKey, nFlag);
   
   AddFolderIcon (szWorkingDir, szItemName, svPathname, szWorkingDir,szIconPath, nIcon, szShortCutKey, nFlag);
  
   endif;   

   szProgramFolder = FOLDER_DESKTOP;
   szItemName    = "恩普社保直通车";
   szProgram = "";
   szParam   = "";
   szCommandLine = "";
   szWorkingDir  = TARGETDIR;
   //LongPathToQuote (szWorkingDir,TRUE);
    szIconPath    = TARGETDIR+'\\picture\\esiis.ico';      
  nIcon         = 0;
   szShortCutKey = "";
   nFlag         = REPLACE;
    svPathname = TARGETDIR + '\\esdd.exe';
  LongPathToQuote ( svPathname , TRUE );
  AddFolderIcon (szProgramFolder, szItemName, svPathname, szWorkingDir,szIconPath, nIcon, szShortCutKey, nFlag);
   return 0;  
   

end;
 
//////////////////////////////////////////////////////////////////////////////
//
//  FUNCTION:   OnInstallingFile
//
//  EVENT:      Installing File event is sent before a file that is being installed
//
//  ARGUMENTS:  File - full path of file being installed
//
///////////////////////////////////////////////////////////////////////////////
function OnInstallingFile(File)
begin
end;
 
//////////////////////////////////////////////////////////////////////////////
//
//  FUNCTION:   OnUninstallingFile
//
//  EVENT:      Uninstalling File event is sent before a file that is being uninstalled
//
//  ARGUMENTS:  File - full path of file being uninstalled
//
///////////////////////////////////////////////////////////////////////////////
function OnUninstallingFile(File)
begin
end;
 
//////////////////////////////////////////////////////////////////////////////
//
//  FUNCTION:   OnCCPSearch
//
//  EVENT:      CCPSearch event is used as an entry point to implement code to 
//              search for existing applications. This event is sent
//              only for a first time installation.
//
///////////////////////////////////////////////////////////////////////////////
function OnCCPSearch()
begin
end;
 
//////////////////////////////////////////////////////////////////////////////
//
//  FUNCTION:   OnAppSearch
//
//  EVENT:      AppSearch event is used as an entry point to implement code to 
//              search for previous versions of the current application. This
//		        event is sent only for a first time installation.
//
///////////////////////////////////////////////////////////////////////////////
function OnAppSearch()
begin
end;