root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
*.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
This commit is contained in:
augusto 1998-01-30 10:10:10 +00:00
parent 70a04614b4
commit 3e6d3d0bd4
8 changed files with 296 additions and 161 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
support/interni/_isres.dll Executable file
View File

Binary file not shown.

BIN
support/interni/_setup.lib Executable file
View File

Binary file not shown.

33
support/interni/src/aga/declare.rul
View File

@ -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 _AddOrOverwrite();
prototype _SelectComponents();
prototype _SelectDataType( );
prototype _ChiediDestinazione();
prototype _ChiediDestDati();
prototype _InstallazioneMinima();
prototype _InstallazioneDati();
prototype _SelectInstall(BYREF NUMBER); // sceglie cosa installare
prototype _AddOrOverwrite(BYREF NUMBER);
prototype _SelectComponents(BYREF NUMBER);
prototype _SelectDataType( BYREF NUMBER);
prototype _ChiediDestinazione(BYREF NUMBER);
prototype _ChiediDestDati(BYREF NUMBER);
prototype _InstallazioneMinima(BYREF NUMBER);
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( );
*/

124
support/interni/src/aga/setup.rul
View File

@ -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,14 +27,15 @@ 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"
#define PRODUCT_NAME "EasyCampo"
#define PRODUCT_NAME "Easy Campo"
#define PRODUCT_VERSION "1.0 beta"
#define DEINSTALL_KEY "SampleDeinstKey"
#define PRODUCT_KEY "ba0.exe"
@ -55,7 +56,7 @@ Step_welcome:
Step_chooseinst:
// sceglie cosa installare
nDirection=_SelectInstall();
_SelectInstall(nDirection);
if (nDirection=BACK) then
goto Step_welcome;
endif ;
@ -66,100 +67,91 @@ Step_chooseinst:
endif;
Step_choosewhere:
nDirection= _ChiediDestinazione();
if nDirection=BACK then
goto Step_chooseinst;
endif;
if bInstallDemo then
bInstallPrg = TRUE;
bInstallData = TRUE;
bInstallDemoData=TRUE;
goto Step_choosewhereD;
endif;
_ChiediDestinazione(nDirection);
if nDirection=BACK then
goto Step_chooseinst;
endif;
Step_choosecomp:
if nDirection=BACK && bInstallDemo then
goto Step_choosewhere;
endif;
nDirection= _SelectComponents( );
if nDirection=BACK then
goto Step_choosewhere;
endif;
_SelectComponents(nDirection );
if nDirection=BACK then
goto Step_choosewhere;
endif;
Step_choosewhereD:
nDirection= _ChiediDestDati();
if nDirection=BACK then
goto Step_choosecomp;
endif;
_ChiediDestDati(nDirection);
if nDirection=BACK then
goto Step_choosecomp;
endif;
Step_choosedata:
if bInstallData then
nDirection= _SelectDataType();
_SelectDataType(nDirection);
if nDirection=BACK then
if bInstallDemo then
goto Step_choosewhere;
else
goto Step_choosewhereD;
endif;
endif;
endif;
Step_fromnet:
nDirection = _SettaFlagNet();
if nDirection=BACK then
if bInstallDemo then
goto Step_choosewhere;
elseif !bInstallData then
goto Step_choosewhereD;
else
endif;
Step_chooseDongleServer:
_ChooseDongleServer(nDirection);
if nDirection=BACK then
goto Step_choosedata;
endif;
endif;
Step_whereDongleServer:
_ChiediDestDongleServer(nDirection);
_WhereIsDongleServer(nDirection);
if nDirection=BACK then
goto Step_chooseDongleServer;
endif;
Step_fromnet:
_SettaFlagNet(nDirection);
if nDirection=BACK then
goto Step_whereDongleServer;
endif;
Step_newORupdate:
if (bInstallPrg || bNuovaInst) && nDirection=BACK then
goto Step_fromnet;
endif;
if bInstallPrg then
nDirection=_AddOrOverwrite();
endif;
_AddOrOverwrite(nDirection);
if nDirection=BACK then
goto Step_fromnet;
endif;
Step_installData:
if bInstallData then
nDirection = _InstallazioneDati();
_InstallazioneDati(nDirection);
if (nDirection=BACK) then
goto Step_newORupdate;
endif;
endif;
Step_installPrg:
if bInstallPrg then
if bInstallEnv || bInstallDemo then
nDirection = _InstallazioneMinima();
if (nDirection=BACK) then
goto Step_newORupdate;
endif;
_InstallazioneMinima(nDirection);
if (nDirection=BACK) then
goto Step_newORupdate;
endif;
Step_installDongleServer:
if bInstallDongleServer then
_InstallDongleServer(nDirection);
endif;
if (nDirection=BACK) then
goto Step_newORupdate;
endif;
endif;
Step_purchase:
if bPurchase then
if bPurchase then
ChangeDirectory(szAppPath);
LaunchAppAndWait("ba1.exe","-4 -uPRASSI",WAIT);
endif;
if bInstallModules then
endif;
if bInstallModules then
ChangeDirectory(szAppPath);
LaunchAppAndWait("ba1.exe","-6 -uPRASSI",WAIT);
endif;
endif;
_ProgramEpilogue();
exit;
_ProgramEpilogue();
exit;
Step_installnet:
nDirection = _NewNetWorkPlace();
_NewNetWorkPlace(nDirection);
if (nDirection=BACK) then
goto Step_chooseinst;
endif;

274
support/interni/src/aga/setup1.rul
View File

@ -1,10 +1,10 @@
//----------------------------------------------------------------------------
// **** Selezione del tipo di installazione
// **** (programmi o postazione di rete)
function _SelectInstall( )
NUMBER nRetv;
function _SelectInstall(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()
NUMBER nRetv;
function _SelectComponents(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. ";
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;
return nRetv;
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
);
bInstallDongleServer = FALSE;
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( )
NUMBER nRetv;
function _SelectDataType( 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
@ -56,8 +73,8 @@ begin
"gli archivi di Auto&formazione",
bInstallAutoform
);
if nRetv=BACK then
return BACK;
if nRetv=BACK then
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
return BACK;
nRetv=AskDestPath( "", "", szAppPath, 0 );
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
return BACK;
nRetv=AskPath(sMsg ,szDataPath, szChangedPath);
if (nRetv=BACK) then
return ;
endif;
szDataPath=szChangedPath;
bDatiPresenti = _CheckExistingData(szDataPath);
@ -150,8 +168,8 @@ begin
bConfirmdatapath=FALSE;
endif;
until (bConfirmdatapath);
return NEXT;
endif;
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
return BACK;
nDirection = _TrovaPrgSuRete();
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,45 +414,40 @@ 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
_ForceAttrib4Dll( );
// Effettua la vera e propria installazione minima
_DeleteFilesMinima( );
_InstallaFilesMinima( );
Disable( FEEDBACK_FULL );
Disable( STATUS );
// Ripristina il valore di TARGETDIR
VarRestore( SRCTARGETDIR );
_UpdateRegistry( );
_UpdateSysFiles( );
ChangeDirectory( szAppPath);
_CopiaINSTALLINI( );
_CopiaRESETHL( );
_RemoveHDLOCK( );
_SetPathpref();
// IlMiticoINST.EXE: //( Trice.exe cb0000.exe ):
// E' stato spostato come post-process della CG
// if bNuovaInst then
// if nInstallCG then
// ChangeDirectory( szAppPath);
// szRunProgram = szAppPath ^ "\\INST.EXE";
// LaunchAppAndWait( szRunProgram , szAppPath, WAIT );
// endif;
// endif;
return NEXT;
if bInstallPrg then
if bInstallEnv || bInstallDemo then
_ForceAttrib4Dll( );
// Effettua la vera e propria installazione minima
_DeleteFilesMinima( );
_InstallaFilesMinima( );
Disable( FEEDBACK_FULL );
Disable( STATUS );
// Ripristina il valore di TARGETDIR
VarRestore( SRCTARGETDIR );
_UpdateRegistry( );
_UpdateSysFiles( );
ChangeDirectory( szAppPath);
_CopiaINSTALLINI( );
_CopiaRESETHL( );
_RemoveHDLOCK( );
_SetPathpref();
nRetv=NEXT;
endif;
endif;
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;

15
support/interni/src/aga/setup2.rul
View File

@ -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
szItemName = "EasyCAMPO";
if bInstallDemo then
szItemName = "EasyDEMO";
else
szItemName = "EasyCAMPO";
endif;
szCmdLine = szAppPath ^ "\\BA0.EXE";
szIconPath = szCmdLine;
AddFolderIcon( szFolder, szItemName, szCmdLine, "", szIconPath, 0, "", REPLACE );

9
support/interni/src/aga/setup3.rul
View File

@ -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;

2
support/interni/src/aga/setup4.rul
View File

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