_isres.dll _setup.lib : aggiunte le risorse (in italiano) per IS3

*.rul: nuovi script per l'installazione del server di chiavi


git-svn-id: svn://10.65.10.50/trunk@6068 c028cbd2-c16b-5b4b-a496-9718f37d4682

support/interni/src/aga/declare.rul

@@ -16,6 +16,9 @@ declare
    STRING szAppPath[ _MAX_LENGTH ];
    // szDataPath e' la directory dove risiederanno i dati
    STRING szDataPath[ _MAX_LENGTH ];
+   // nome della macchina server delle chiavi
+   STRING szDongleServerName[ _MAX_LENGTH ];
+   STRING szAutoRunFolder[ _MAX_LENGTH ];
    STRING szDisk [_MAX_LENGTH];
    STRING szBitmapFile [_MAX_LENGTH];
    STRING szTmp[_MAX_LENGTH];
@@ -79,8 +82,11 @@ declare
 
 #define ZIP_DIRECTORY "ZIP"
 #define ZIPDEMO_DIRECTORY "ZIPDEMO"
+
 #define DEFAULT_LOCALPATH  "C:\\PRASSI"
 #define DEFAULT_NETPATH  "F:\\PRASSI"
+
+#define SELECTFOLDER_DIALOG 12008
 // Prototipo delle funzioni
 // main
 prototype   _ProgramPrologue( );
@@ -90,19 +96,23 @@ prototype    _FindExistingInst(BYREF STRING);// controlla la presenza dell'appli
 prototype    _CheckExistingInst(STRING);// controlla la presenza dell'applicazione
 prototype    _CheckExistingData(STRING);// controlla la presenza dell'applicazione
 
-prototype   _SelectInstall();   // sceglie cosa installare
+prototype   _SelectInstall(BYREF NUMBER);   // sceglie cosa installare
-prototype   _AddOrOverwrite();
+prototype   _AddOrOverwrite(BYREF NUMBER);
-prototype   _SelectComponents();
+prototype   _SelectComponents(BYREF NUMBER);
-prototype   _SelectDataType( );
+prototype   _SelectDataType( BYREF NUMBER);
-prototype   _ChiediDestinazione();
+prototype   _ChiediDestinazione(BYREF NUMBER);
-prototype   _ChiediDestDati();
+prototype   _ChiediDestDati(BYREF NUMBER);
-prototype   _InstallazioneMinima();
+prototype   _InstallazioneMinima(BYREF NUMBER);
-prototype   _InstallazioneDati();
+prototype   _InstallazioneDati(BYREF NUMBER);
 prototype   _Ask4Purchase();
-prototype   _NewNetWorkPlace();
+prototype   _NewNetWorkPlace(BYREF NUMBER);
+prototype   _ChooseDongleServer(BYREF NUMBER);
+prototype   _ChiediDestDongleServer(BYREF NUMBER);
+prototype   _InstallDongleServer(BYREF NUMBER);
+prototype   _WhereIsDongleServer(BYREF NUMBER);
+
 // first level
 prototype   _ExitOnConfirm( );
-
 prototype   _PerformSet(STRING);
 prototype   _TrovaPrgSuRete( );
 prototype   _DeleteFilesMinima();
@@ -125,7 +135,7 @@ prototype   _SetPathpref();
 prototype   _CopiaPRASSIINI( );
 prototype   _CopiaINSTALLINI( );
 prototype   _CopiaRESETHL( );
-prototype   _SettaFlagNet();
+prototype   _SettaFlagNet(BYREF NUMBER);
 prototype   _PrimaInstallazione( STRING, BYREF NUMBER, BYREF STRING );
 // **************
 // utility
@@ -161,7 +171,6 @@ prototype   _CheckNet( );
 prototype   _DeleteFiles( );
 
 
-
 prototype   _FinalChecks( );
 
 */

support/interni/src/aga/setup.rul

@@ -11,7 +11,7 @@ declare
   STRING szSXTR1,szSXTR2, szDoMnu, szText, szModifiedPath, szBaCnv;
   STRING sInstType;
   BOOL bPurchase, bInstallModules, bInstallAutoform, bInstallEnv, bInstallFirm, bInstallDemo, bInstallDemoData, bInstallNetWrk;
-  BOOL bInstallData, bInstallPrg, bInstallManual;
+  BOOL bInstallData, bInstallPrg, bInstallManual, bInstallDongleServer, bUseDongleServer;
   // Function declarations.
   prototype _SetupScreen();
   prototype _CheckRequirements();
@@ -27,10 +27,11 @@ Step_start:
 //---------------------------------- defaults
   bInstallPrg = TRUE;
   bInstallData = FALSE;
+
   _ProgramPrologue();
 
 #define SPACE_REQUIRED          3000          // Disk space in bytes.
-#define APP_NAME                "Easy Campo"
+#define APP_NAME                "EasyCAMPO"
 #define PROGRAM_FOLDER_NAME     "PRASSI"
 #define APPBASE_PATH            "\\"
 #define COMPANY_NAME            "A.G.A. Informatica"
@@ -55,7 +56,7 @@ Step_welcome:
 
 Step_chooseinst:
   // sceglie cosa installare
-  nDirection=_SelectInstall();
+  _SelectInstall(nDirection);
   if (nDirection=BACK) then
     goto Step_welcome;
   endif ;   
@@ -66,83 +67,72 @@ Step_chooseinst:
   endif;
 
 Step_choosewhere:
-  nDirection= _ChiediDestinazione();
+    _ChiediDestinazione(nDirection);
     if nDirection=BACK then
       goto Step_chooseinst;
     endif;
-  if bInstallDemo then
-    bInstallPrg = TRUE;
-    bInstallData = TRUE;
-    bInstallDemoData=TRUE;
-    goto Step_choosewhereD;
-  endif;
 
 Step_choosecomp:
-  if nDirection=BACK && bInstallDemo then
+    _SelectComponents(nDirection );
-    goto Step_choosewhere;
-  endif;
-  nDirection= _SelectComponents( );
     if nDirection=BACK then
       goto Step_choosewhere;
     endif;
 
 Step_choosewhereD:
-  nDirection= _ChiediDestDati();
+    _ChiediDestDati(nDirection);
     if nDirection=BACK then
       goto Step_choosecomp;
     endif;
 
 Step_choosedata:
-  if bInstallData then
+    _SelectDataType(nDirection);
-    nDirection= _SelectDataType();
     if nDirection=BACK then
-      if bInstallDemo then
-        goto Step_choosewhere;
-      else
       goto Step_choosewhereD;
     endif;
+
+Step_chooseDongleServer:
+    _ChooseDongleServer(nDirection);
+    if nDirection=BACK then
+      goto Step_choosedata;
     endif;
+
+Step_whereDongleServer:
+    _ChiediDestDongleServer(nDirection);
+    _WhereIsDongleServer(nDirection);
+    if nDirection=BACK then
+      goto Step_chooseDongleServer;
     endif;
 
 Step_fromnet:
-  nDirection = _SettaFlagNet();
+    _SettaFlagNet(nDirection);
     if nDirection=BACK then
-    if bInstallDemo  then
+      goto Step_whereDongleServer;
-      goto Step_choosewhere;
-    elseif !bInstallData  then
-      goto Step_choosewhereD;
-    else  
-      goto Step_choosedata;
-    endif;
     endif;
 
 Step_newORupdate:
-  if (bInstallPrg  || bNuovaInst) && nDirection=BACK then
+    _AddOrOverwrite(nDirection);
-    goto Step_fromnet;
-  endif;
-  if bInstallPrg then
-    nDirection=_AddOrOverwrite();
-  endif;
   if nDirection=BACK then
     goto Step_fromnet;
   endif;
 
 Step_installData:
-  if bInstallData then
+    _InstallazioneDati(nDirection);
-    nDirection = _InstallazioneDati();
     if (nDirection=BACK) then
       goto Step_newORupdate;
     endif;
-  endif;
 
 Step_installPrg:
-  if bInstallPrg then
+    _InstallazioneMinima(nDirection);
-    if bInstallEnv || bInstallDemo then
-        nDirection = _InstallazioneMinima();
     if (nDirection=BACK) then
       goto Step_newORupdate;
     endif;
+
+Step_installDongleServer:
+    if bInstallDongleServer then
+      _InstallDongleServer(nDirection);
     endif;
+    if (nDirection=BACK) then
+      goto Step_newORupdate;
     endif;
 
 Step_purchase:
@@ -158,8 +148,10 @@ Step_purchase:
     _ProgramEpilogue();
     exit;
 
+
+
 Step_installnet:
-  nDirection = _NewNetWorkPlace();
+  _NewNetWorkPlace(nDirection);
   if (nDirection=BACK) then
     goto Step_chooseinst;
   endif;

support/interni/src/aga/setup1.rul

@@ -1,10 +1,10 @@
 //----------------------------------------------------------------------------
 // **** Selezione del tipo di installazione 
 // **** (programmi o postazione di rete)
-function _SelectInstall( )
+function _SelectInstall(nRetv )
-  NUMBER nRetv;
   STRING szMsg[512];
 begin
+
   szMsg       = "Setup puo' essere utilizzato per installare ";
   szMsg=szMsg + "EasyCampo in versione normale o demo, oppure per installare "; 
   szMsg=szMsg + "una postazione di lavoro che sfrutta una precedente intallazione su disco di rete"; 
@@ -16,35 +16,52 @@ begin
     "Installazione nuova postazione di lavoro in &rete",
     bInstallNetWrk
     ); 
-  return nRetv;
 end;
 
 //----------------------------------------------------------------------------
 // **** Selezione del tipo di installazione 
 // **** 
-function _SelectComponents()
+function _SelectComponents(nRetv)
-  NUMBER nRetv;
   BOOL bJunk;
   STRING szMsg[512];
 begin
+  if bInstallDemo then
+    bInstallPrg = TRUE;
+    bInstallData = TRUE;
+    bInstallDemoData=TRUE;
+    return;
+  endif;
   repeat
-      szMsg= "E' possibile installare i programmi (ambiente e moduli) e/o l'area dati. ";
+    if szOSName = "Windows" || bInstallDemo then
+        szMsg= "E' possibile installare i programmi (ambiente e moduli) oppure l'area dati. ";
         szMsg=szMsg + "\nSelezionare almeno una delle componenti"; 
         nRetv = AskOptions(NONEXCLUSIVE,szMsg,
           "Installa i programmi", bInstallPrg,
           "Installa l'area dati", bInstallData 
         ); 
-  until  nRetv!=NEXT || bInstallData || bInstallPrg;
+      bInstallDongleServer = FALSE;
-  return nRetv;
+    else
+        szMsg= "E' possibile installare i programmi (ambiente e moduli), l'area dati oppure il server di rete per le chiavi. ";
+        szMsg=szMsg + "\nSelezionare almeno una delle componenti"; 
+        nRetv = AskOptions(NONEXCLUSIVE,szMsg,
+          "Installa i programmi", bInstallPrg,
+          "Installa l'area dati", bInstallData ,
+          "Installa il server di chiavi", bInstallDongleServer 
+        ); 
+    endif;
+  until  nRetv!=NEXT || bInstallData || bInstallPrg || bInstallDongleServer;
+  return ;
 end;
 
 // **** Selezione del tipo di installazione 
 // **** 
-function _SelectDataType( )
+function _SelectDataType( nRetv)
-  NUMBER nRetv;
   BOOL bJunk;
   STRING szMsg[512];
 begin
+  if !bInstallData then
+    return;
+  endif;
   szMsg= "Si e' selezionato di installare gli archivi. \n";
   szMsg=  szMsg + "L'area dati deve contenere:";
   repeat
@@ -57,7 +74,7 @@ begin
       bInstallAutoform
     ); 
     if nRetv=BACK then
-      return BACK;
+      return ;
     endif;
     sInstType = INST_ENVIRONMENT;
     if      bInstallDemoData then
@@ -67,16 +84,15 @@ begin
     endif;
   
   until nRetv=NEXT;
-  return nRetv;
+  return ;
 end;
 
 //----------------------------------
 // chiede la directory dell'applicazione e dei dati;
 // l'installazione dei soli dati ha bisogno di dir_applicaz (per settare pathpref)
 // l'installazione dei soli programmi ha bisogno di dir_dati (per sapere se esiste un direttorio dati)
-function _ChiediDestinazione()
+function _ChiediDestinazione(nRetv)
   BOOL bReenterPath, bConfirmdatapath;
-  NUMBER nRetv;
 begin
   // ricontrolla la presenza di una installazione 
   // e determina la posizione della directory "DATI"
@@ -85,8 +101,9 @@ begin
     szAppPath= "c:\prassi";
     bNuovaInst =  _FindExistingInst(szAppPath);
   endif;
-    if (AskDestPath( "", "", szAppPath, 0 )=BACK) then
+    nRetv=AskDestPath( "", "", szAppPath, 0 );
-      return BACK;
+    if (nRetv=BACK) then
+      return ;
     endif;
     bNuovaInst = ! _CheckExistingInst(szAppPath);
     szTmp = szAppPath ^ "PATHPREF.INI";
@@ -117,18 +134,18 @@ begin
       endif;
       CloseFile( nTmp );
     endif;
-  return nRetv;
+  return ;
 end;
 
 //----------------------------------
-function _ChiediDestDati()
+function _ChiediDestDati(nRetv)
   BOOL bConfirmdatapath;
   STRING szChangedPath[256]
   STRING sMsg[256]
 begin
 // ricontrolla la presenza di una installazione 
 // e determina la posizione della directory "DATI"
-// step 2: data path
+  if bInstallData || bInstallPrg then
     if bInstallData then
       sMsg = "I dati verranno installati nel seguente direttorio.";
     else  
@@ -137,8 +154,9 @@ begin
     sMsg = sMsg + "\nE' possibile cambiare il direttorio digitando il nuovo nome o scegliendo il pulsante <Sfoglia>";
     repeat  
       bConfirmdatapath=TRUE;
-      if (AskPath(sMsg ,szDataPath, szChangedPath)=BACK) then
+      nRetv=AskPath(sMsg ,szDataPath, szChangedPath);
-        return BACK;
+      if (nRetv=BACK) then
+        return ;
       endif;
       szDataPath=szChangedPath;
       bDatiPresenti = _CheckExistingData(szDataPath);
@@ -150,8 +168,8 @@ begin
         bConfirmdatapath=FALSE;
       endif;
     until (bConfirmdatapath);
-
+  endif;
-  return NEXT;
+  return ;
 end;
 
 
@@ -160,11 +178,14 @@ end;
 //----------------------------------------------------------------------------
 // **** Installi o aggiungi moduli ?
 
-function _AddOrOverwrite()
+function _AddOrOverwrite(nRet)
   STRING szMsg[512];
   BOOL bJunk;
-  NUMBER nRet;
 begin
+  if !bInstallPrg then
+    return;
+  endif;
+
   if bNuovaInst then
     szMsg= "Setup procedera' con l'installazione dei programmi di ambiente.";
     szMsg=szMsg + "Si desidera acquistare e abilitare nuovi moduli prima di installarli?"; 
@@ -183,7 +204,7 @@ begin
       bInstallModules
       ); 
   endif;
-  return nRet;
+  return ;
 end;
 
 //-----------------------------------------------------------------------------
@@ -251,13 +272,14 @@ end;
 //-----------------------------------------------------------------------------
 // **** installazione postazione di rete
 // **** 
-function _NewNetWorkPlace( )
+function _NewNetWorkPlace(nDirection )
    STRING szText[ _MAX_LENGTH ];
    NUMBER nGoOut, nRet, nResult, nDisk;
    BOOL bRet;
 begin
-  if (_TrovaPrgSuRete() =BACK) then 
+  nDirection = _TrovaPrgSuRete();
-    return BACK;
+  if (nDirection  =BACK) then 
+    return ;
   endif;
 
   bRet = _Verifica("Installare anche le librerie di CG ? ");
@@ -290,8 +312,6 @@ begin
   Delay(1);
   FileSetEndPerform (  "SYS" );
 
-  
-
   _UpdateSysFiles();   
   _SetPathpref();
   ChangeDirectory( szAppPath);
@@ -299,12 +319,12 @@ begin
 
   Disable( FEEDBACK_FULL );
   Disable(STATUS);
-  return NEXT;
+  return ;
 end;
 
 
 //----------------------------------
-function _InstallazioneDati()
+function _InstallazioneDati(nDirection)
   BOOL bReenterPath, bConfirmdatapath;
   STRING  szTitle[_MAX_LENGTH];
   STRING  szPath[_MAX_LENGTH];
@@ -312,7 +332,10 @@ function _InstallazioneDati()
   NUMBER nTmp;
 begin
 
-
+  if !bInstallData then
+    return;
+  endif;
+  nDirection=BACK;
   TARGETDIR = szDataPath; // i .z hanno gia' il sottodirettorio nel nome di file
   if ( CreateDir( TARGETDIR ) < 0 ) then
     _Attenzione( STR_DATA_DIR_NOTCREATED );
@@ -325,11 +348,9 @@ begin
   	SetColor(STATUSBAR,BLUE);
   	Enable(FEEDBACK_OPERATION);
   	Enable(STATUS);
-  	SetStatusWindow(  0, "Installazione dati in corso..." );
     // ******** installa dati DEMO ?
     if bInstallDemoData then
       szTitle = "Installazione dati dimostrativi su " + szDataPath;
-    	SetStatusWindow(  0, szTitle );
       FileSetBeginDefine ( "DDEMO");
       if ( CompressGet(  "DATIDEMO.Z", "*.*", INCLUDE_SUBDIR ) < 0) then
         szText = STR_ERR_DECOMPRESS + " il modulo Dati dimostrativi.";
@@ -337,12 +358,12 @@ begin
       endif;
       FileSetEndDefine ( "DDEMO");
       StatusUpdate(  ON, 100 );
+    	SetStatusWindow(  0, szTitle );
       _PerformSet ( "DDEMO");
 
     // ******** installa dati autoformazione ?
     elseif bInstallAutoform then
       szTitle = "Installazione dati di autoformazione su " + szDataPath;
-    	SetStatusWindow(  0, szTitle );
       FileSetBeginDefine ( "DAUTO");
       if ( CompressGet(  "DATIAUTO.Z", "*.*", INCLUDE_SUBDIR ) < 0) then
         szText = STR_ERR_DECOMPRESS + " il modulo Dati di autoformazione.";
@@ -350,6 +371,7 @@ begin
       endif;
       FileSetEndDefine ( "DAUTO");
       StatusUpdate(  ON, 100 );
+    	SetStatusWindow(  0, szTitle );
       _PerformSet ( "DAUTO");
 
     // ******** installa dati iniziali ditte
@@ -392,15 +414,17 @@ begin
   CreateFile( nTmp, szPath, DATATYPE_FILE);
   WriteLine(nTmp,sInstType);
   CloseFile( nTmp );
-
+  nDirection=NEXT;
 end;
 
 //----------------------------------
-function _InstallazioneMinima()
+function _InstallazioneMinima(nRetv)
   BOOL bReenterPath, bConfirmdatapath;
   STRING sTmp[32],sPath[64];
 begin
 
+  if bInstallPrg then
+    if bInstallEnv || bInstallDemo then
       _ForceAttrib4Dll( );
       // Effettua la vera e propria installazione minima
       _DeleteFilesMinima( );
@@ -421,16 +445,9 @@ begin
   
       _SetPathpref();
     
-// IlMiticoINST.EXE: //( Trice.exe cb0000.exe ):
+      nRetv=NEXT;
-// E' stato spostato come post-process della CG
+    endif;
-//  if bNuovaInst then
+  endif;
-//    if nInstallCG then
-//      ChangeDirectory( szAppPath);
-//      szRunProgram = szAppPath ^ "\\INST.EXE";
-//      LaunchAppAndWait( szRunProgram , szAppPath, WAIT );
-//    endif;
-//  endif;
-  return NEXT;
 end;
 
 function _Ask4Purchase()
@@ -441,3 +458,110 @@ begin
   return NEXT;
 end;
 
+
+// sceglie il tipo di chiave (locale o server)
+function _ChooseDongleServer(nRetv)
+  BOOL bJunk;
+begin
+
+  if !bInstallDemo then
+    if bInstallDongleServer then
+      bUseDongleServer=FALSE;
+    else
+      nRetv = AskOptions(EXCLUSIVE,"I programmi sono protetti da una chiave hardware.\nIl controllo delle autorizzazioni va effettuato:",
+        "tramite chiave locale",
+        bJunk, 
+        "tramite un server di chiavi",
+        bUseDongleServer
+      );
+    endif; 
+  else
+    bUseDongleServer=FALSE;
+  endif; 
+  return nRetv;
+end;
+
+function _WhereIsDongleServer(nDirection)
+  NUMBER lResult;
+  NUMBER listID;
+  NUMBER nRetv;
+  STRING szTempore[_MAX_LENGTH];
+  BOOL bJunk;
+begin
+  if !bUseDongleServer then
+    return;
+  endif;
+  szTempore=szDongleServerName;
+  nDirection = AskText("L'installazione attuale sarà priva della chiave hardware locale e farà riferimento ad un server esterno. Inserire il nome della macchina (NON preceduto '\\') che fa da server per le chiavi hardware.\nSu questa macchina deve essere stato installato con Setup il server delle chiavi.",szTempore,szDongleServerName);
+  if nDirection=BACK then
+    szDongleServerName=szTempore;
+  endif;
+  return ;
+end;
+
+
+function _ChiediDestDongleServer(nDirection)
+  NUMBER nItems;
+  NUMBER lResult;
+  NUMBER listID;
+  NUMBER nRetv;
+  STRING szTempore,szStartFolder;
+  BOOL bJunk;
+begin
+  if !bInstallDongleServer then
+    return;
+  endif;
+  RegDBSetDefaultRoot(HKEY_CURRENT_USER);
+
+  if RegDBGetKeyValueEx("\\.Default\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders","Startup",lResult,szAutoRunFolder,nItems) < 0 then
+    // Registry access failed (16 bit DLL?)
+    szAutoRunFolder="";
+    // try to determine the folder by names...
+    listID = ListCreate(STRINGLIST);
+    if (GetGroupNameList(listID)<0) then
+        MessageBox("Can't get the folders list",SEVERE);
+    endif;
+    lResult=  ListGetFirstString(listID,szTempore);
+    while (lResult != END_OF_LIST)
+      lResult = ListGetNextString(listID,szTempore);
+      if szTempore = "Esecuzione Automatica" then
+        szAutoRunFolder=szTempore;
+      endif;
+      if szTempore = "Startup" then
+        szAutoRunFolder=szTempore;
+      endif;
+    endwhile;
+
+    if szAutoRunFolder="" then
+      _Attenzione("Non riesco a determinare la cartella di Esecuzione Automatica di Windows");
+      repeat 
+        szStartFolder="";
+        nDirection=SelectFolder("Cartella di Esecuzione Automatica",szAutoRunFolder,szAutoRunFolder);
+        if nDirection = BACK then
+          return;
+        endif;
+        if QueryProgGroup(szAutoRunFolder,szStartFolder,nItems) then
+          _Attenzione("La cartella indicata non fa parte delle cartelle programmi di Windows");
+          nDirection=BACK;
+        endif;
+      until nDirection=NEXT;
+    endif;
+
+  endif;
+  return ;
+end;
+
+function _InstallDongleServer(nDirection)
+  STRING szTempore;
+begin
+  if !bInstallDongleServer then
+    return;
+  endif;
+  
+  TARGETDIR = szAppPath;
+
+  szTempore   = szAppPath ^ "\\frontend.exe";
+  AddFolderIcon( szAutoRunFolder, "Frontend", szTempore, "", szTempore, 0, "", REPLACE ); 
+
+end;
+

support/interni/src/aga/setup2.rul

@@ -24,6 +24,9 @@ begin
   WriteProfString(szTmpPath, "Main", "Program",szAppPath);
   WriteProfString(szTmpPath, "Main", "Study",szDataPath);
   WriteProfString(szTmpPath, "Main", "Firm","COM");
+  if (bUseDongleServer) then
+    WriteProfString(szTmpPath, "Server", "Dongle" , szDongleServerName);
+  endif;  
 end;
 
 //-----------------------------------------------------------------------------
@@ -89,7 +92,7 @@ begin
    ConfigSetFileName( szTemp );
    szWin_Ini = szSaveDir ^ "WIN.PRA";
   endif;
-  if (szOSName != "3.95") then
+  if (szOSName = "Windows") then
     EzBatchReplace( STR_SHARE );
   endif;
   EzBatchReplace( STR_TEMP );
@@ -215,7 +218,6 @@ begin
 	Enable(FEEDBACK_OPERATION);
 	Enable(STATUS);
 
-	SetStatusWindow(  0, "Installazione programmi di ambiente in corso..." );
 
   FileSetBeginDefine ( "WIN");
 	TARGETDIR = WINDIR ^ "SYSTEM";
@@ -253,8 +255,11 @@ begin
   StrToUpper( szAppPath, szAppPath );
   szStatusText = "Installazione su " + szAppPath;
   StatusUpdate(  ON, 50 );
+	SetStatusWindow(  0, "Installazione librerie e programmi di ambiente ..." );
   _PerformSet ( "WIN");
+
   StatusUpdate(  ON, 100 );
+	SetStatusWindow(  50, "Installazione programmi di base .." );
   _PerformSet ( "BA");
 
   szTemp = szAppPath ^ "RECDESC";
@@ -359,7 +364,11 @@ begin
     ShowGroup (szFolder , SW_NORMAL  );
     if ( TRUE) then
         // Aggiunge EasyCAMPO Program Manager
+        if bInstallDemo then
+          szItemName  = "EasyDEMO";
+        else
           szItemName  = "EasyCAMPO";
+        endif;
         szCmdLine   = szAppPath ^ "\\BA0.EXE";
         szIconPath  = szCmdLine;
         AddFolderIcon( szFolder, szItemName, szCmdLine, "", szIconPath, 0, "", REPLACE ); 

support/interni/src/aga/setup3.rul

@@ -81,9 +81,10 @@ begin
 end;
 
 //-----------------------------------------------------------------------------
-function _SettaFlagNet( )
+function _SettaFlagNet( nDirection)
 begin
-  return AskOptions(EXCLUSIVE, "L'installazione sul PC puo' essere indipendente o basarsi su una installazione su server di rete. \n I programmi di EasyCAMPO ",
+
+  nDirection = AskOptions(EXCLUSIVE, "I programmi di EasyCAMPO possono essere installati localmente sul PC o utilizzare una precedente installazione su server di rete. \nSpecificare se i programmi ",
       "vanno installati sul disco locale", bProgrammiServer, 
       "si trovano sul server di rete", bProgrammiServer );
 end;
@@ -147,7 +148,7 @@ begin
    szAuto = "";
    szConf = "";
    szWinIni = "";
-   if (szOSName != "3.95") then
+   if (szOSName = "Windows") then
      szAuto = szAuto + STR_SHARE;
      szAuto = szAuto + "\n";
    endif;
@@ -256,7 +257,7 @@ function _RemoveHDLOCK( )
 begin
    // HARDLOCK.VXD e' necessario solo su Win95,
 // si è scoperto che è sempre necessario
-//   if (szOSName != "3.95") then
+//   if (szOSName != "Windows") then
 //     DeleteFile("HARDLOCK.VXD");
 //   endif;
 end;

support/interni/src/aga/setup4.rul

@@ -135,7 +135,7 @@ function _GetOSName( )
 begin
    VarSave(SRCTARGETDIR);
    TARGETDIR = WINDIR ^ "SYSTEM";
-   GetSystemInfo(WINMAJOR,nResult,szOSName);
+   GetSystemInfo(OS,nResult,szOSName);
    VarRestore(SRCTARGETDIR);
 end;