./ : aggiunti i pif e gli exe per l'installazione moduli
src/aga : aggiunti i .rul e la lista per l'installazionecon InstallShield3 git-svn-id: svn://10.65.10.50/trunk@6061 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
7cb0311413
commit
2f90ce3bc6
167
support/interni/src/aga/declare.rul
Executable file
167
support/interni/src/aga/declare.rul
Executable file
@ -0,0 +1,167 @@
|
|||||||
|
|
||||||
|
// File di include con le dichiarazioni per DECLARE.RUL
|
||||||
|
|
||||||
|
declare
|
||||||
|
#define TITLE_FONTSIZE_USE 64
|
||||||
|
|
||||||
|
// Dichiarazione di variabili
|
||||||
|
NUMBER nInstallBA;
|
||||||
|
NUMBER nFileSpaceBA;
|
||||||
|
|
||||||
|
BOOL bInstPresente, bNuovaInst, bDatiPresenti;
|
||||||
|
BOOL bIsNet;
|
||||||
|
BOOL bProgrammiServer;
|
||||||
|
NUMBER nSystemFileModified;
|
||||||
|
// szAppPath e' la directory dove la applicazione verra' installata
|
||||||
|
STRING szAppPath[ _MAX_LENGTH ];
|
||||||
|
// szDataPath e' la directory dove risiederanno i dati
|
||||||
|
STRING szDataPath[ _MAX_LENGTH ];
|
||||||
|
STRING szDisk [_MAX_LENGTH];
|
||||||
|
STRING szBitmapFile [_MAX_LENGTH];
|
||||||
|
STRING szTmp[_MAX_LENGTH];
|
||||||
|
STRING szTmp2[_MAX_LENGTH];
|
||||||
|
STRING szRunProgram[_MAX_LENGTH];
|
||||||
|
NUMBER nTmp;
|
||||||
|
NUMBER nInstallDiskSpace;
|
||||||
|
NUMBER nDataDiskSpace;
|
||||||
|
// szGroupName e' il nome del gruppo
|
||||||
|
STRING szGroupName[ _MAX_LENGTH];
|
||||||
|
STRING szOSName;
|
||||||
|
BOOL bSCREENSAVER;
|
||||||
|
|
||||||
|
#define STR_ERR_DLG "Errore di sistema. Impossibile visualizzare una finestra di dialogo."
|
||||||
|
#define STR_ERR_STRING "Errore di sistema. Impossibile ultimare l'installazione.\n\nRimuovere la causa dell'errore e ripetere l'installazione."
|
||||||
|
#define STR_BMP_FILE "PRASSI.BMP"
|
||||||
|
|
||||||
|
// #define STR_ERR_DLG "Errore di sistema. Impossibile visualizzare una finestra di dialogo."
|
||||||
|
#define STR_INVALID_PATH "Il percorso indicato non e' valido.\nIndicare un altro percorso.\n"
|
||||||
|
#define STR_TEXT1 "I programmi PR.A.S.S.I. verranno installati nella directory :"
|
||||||
|
#define STR_TEXTSER1 "I programmi PR.A.S.S.I. sono installati nella directory :"
|
||||||
|
#define STR_DATATEXT1 "I dati verranno installati nella directory :"
|
||||||
|
#define STR_ENT_DISK "Inserire il disco "
|
||||||
|
#define STR_TAGDISK1 "BA"
|
||||||
|
|
||||||
|
#define STR_DIR_READONLY "Impossibile scrivere nella directory scelta per i programmi."
|
||||||
|
#define STR_DIR_NOTCREATED "Impossibile creare la directory specificata per i programmi."
|
||||||
|
#define STR_NOTENUFROOM "Lo spazio su disco e' insufficiente per l'installazione dei programmi."
|
||||||
|
#define STR_DATA_DIR_READONLY "Impossibile scrivere nella directory scelta per i dati."
|
||||||
|
#define STR_DATA_DIR_NOTCREATED "Impossibile creare la directory specificata per i dati."
|
||||||
|
#define STR_DATA_NOTENUFROOM "Lo spazio su disco e' insufficiente per l'installazione dei dati."
|
||||||
|
#define STR_ERR_DECOMPRESS "E' stato riscontrato un errore cercando di decomprimere "
|
||||||
|
#define STR_INSERTDISK "Inserire il disco etichettato :\n"
|
||||||
|
#define STR_NOTENUFEXMEM "Memoria estesa insufficiente.\nNon e' possibile installare l'applicazione su macchine con meno di 4 Mb di memoria.\n"
|
||||||
|
#define STR_NOTHINGTOINSTALL "Non e' stato selezionato alcun modulo."
|
||||||
|
#define STR_NOTFIRST1 "Esiste una versione precedente nella directory %s. Confermando l'installazione nella directory indicata, la versione precedente sara' aggiornata. "
|
||||||
|
#define STR_NOTFIRST2 "Si desidera cambiare directory e mantenere inalterata tale versione ?"
|
||||||
|
#define STR_UPDATESPACE "Lo spazio potrebbe non essere sufficiente per effettuare l'aggiornamento del programma. Continuare ?"
|
||||||
|
#define STR_DATA_UPDATESPACE "Lo spazio potrebbe non essere sufficiente per effettuare l'aggiornamento dei dati. Continuare ?"
|
||||||
|
|
||||||
|
#define STR_NET "Si desidera utilizzare il programma in rete ?"
|
||||||
|
|
||||||
|
#define STR_FILE_MODIFIED "I files di sistema AUTOEXEC.BAT, CONFIG.SYS e WIN.INI sono stati modificati. Copie di backup di tali files sono state create nella directory %s, chiamate AUTOEXEC.PRA, CONFIG.PRA. e WIN.PRA"
|
||||||
|
#define STR_FILE_NOTMODIFIED "I files AUTOEXEC.PRA, CONFIG.PRA e WIN.PRA sono stati creati nella directory %s."
|
||||||
|
|
||||||
|
#define BA_MODULENUM 0
|
||||||
|
|
||||||
|
#define STR_SHARE "SHARE /F:5100 /L:500"
|
||||||
|
#define STR_TEMP "SET TEMP=C:\\TMP"
|
||||||
|
#define STR_MODSYSFILES "I file CONFIG.SYS, AUTOEXEC.BAT e WIN.INI devono essere modificati."
|
||||||
|
#define STR_MODIFY "Modifica automatica"
|
||||||
|
#define STR_NOTMODIFY "Modifica manuale. Seguire l'esempio dei file CONFIG.PRA, AUTOEXEC.PRA e WIN.PRA"
|
||||||
|
#define STR_INFOMODIFY "Visualizzazione delle modifiche."
|
||||||
|
#define NUM_FILES_IN_CONFIG 100
|
||||||
|
#define STR_PATHFILE "PATHPREF.INI"
|
||||||
|
|
||||||
|
#define INST_ENVIRONMENT "DITTA"
|
||||||
|
#define INST_DEMO "DEMO"
|
||||||
|
#define INST_AUTOFORM "AUTOFORM"
|
||||||
|
#define INST_WORKPLACE "WORKPLACE"
|
||||||
|
|
||||||
|
#define ZIP_DIRECTORY "ZIP"
|
||||||
|
#define ZIPDEMO_DIRECTORY "ZIPDEMO"
|
||||||
|
#define DEFAULT_LOCALPATH "C:\\PRASSI"
|
||||||
|
#define DEFAULT_NETPATH "F:\\PRASSI"
|
||||||
|
// Prototipo delle funzioni
|
||||||
|
// main
|
||||||
|
prototype _ProgramPrologue( );
|
||||||
|
prototype _ProgramEpilogue( );
|
||||||
|
prototype _Benvenuto( );
|
||||||
|
prototype _FindExistingInst(BYREF STRING);// controlla la presenza dell'applicazione
|
||||||
|
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 _Ask4Purchase();
|
||||||
|
prototype _NewNetWorkPlace();
|
||||||
|
// first level
|
||||||
|
prototype _ExitOnConfirm( );
|
||||||
|
|
||||||
|
prototype _PerformSet(STRING);
|
||||||
|
prototype _TrovaPrgSuRete( );
|
||||||
|
prototype _DeleteFilesMinima();
|
||||||
|
prototype _InstallaFilesMinima();
|
||||||
|
prototype _UpdateRegistry( );
|
||||||
|
|
||||||
|
|
||||||
|
// 2nd level
|
||||||
|
|
||||||
|
prototype _CanOverwrite( );
|
||||||
|
prototype _FilesDiSistema( );
|
||||||
|
prototype _CambiaDirectory( );
|
||||||
|
prototype _CreateDLG( STRING, INT, LONG );
|
||||||
|
|
||||||
|
prototype _FineInstallazione( );
|
||||||
|
prototype _RemoveHDLOCK( );
|
||||||
|
prototype _UpdateSysFiles( );
|
||||||
|
|
||||||
|
prototype _SetPathpref();
|
||||||
|
prototype _CopiaPRASSIINI( );
|
||||||
|
prototype _CopiaINSTALLINI( );
|
||||||
|
prototype _CopiaRESETHL( );
|
||||||
|
prototype _SettaFlagNet();
|
||||||
|
prototype _PrimaInstallazione( STRING, BYREF NUMBER, BYREF STRING );
|
||||||
|
// **************
|
||||||
|
// utility
|
||||||
|
prototype _ShowExitDialog( NUMBER );
|
||||||
|
prototype _ForceAttrib4Dll( );
|
||||||
|
prototype _PreviewBatch( );
|
||||||
|
prototype _CercaFileOvunque( STRING ,BYREF STRING );
|
||||||
|
// **************
|
||||||
|
// utility
|
||||||
|
prototype _Verifica( STRING );
|
||||||
|
prototype _Errore( STRING );
|
||||||
|
prototype _Attenzione( STRING );
|
||||||
|
prototype _DeSlash( STRING, BYREF STRING );
|
||||||
|
prototype _GetOSName( );
|
||||||
|
prototype _DisattivaScreenSaver( );
|
||||||
|
prototype _RiattivaScreenSaver( );
|
||||||
|
prototype _Cambia_Attributi(STRING);
|
||||||
|
prototype _Check_Disk(STRING, STRING);
|
||||||
|
prototype _MostraModelessDialog( );
|
||||||
|
prototype _SettaModelessDialog( STRING );
|
||||||
|
prototype _NascondiModelessDialog( );
|
||||||
|
prototype _RichiediMemoria( NUMBER );
|
||||||
|
prototype _NToStringKB( NUMBER, BYREF STRING );
|
||||||
|
|
||||||
|
/*
|
||||||
|
prototype _InstallaFiles( );
|
||||||
|
prototype _GetAut( NUMBER );
|
||||||
|
prototype _SpazioRichiesto( );
|
||||||
|
prototype _SpazioRichiestoDati( );
|
||||||
|
prototype _InstallaDati( );
|
||||||
|
prototype _ControlloSpazio( );
|
||||||
|
prototype _CheckNet( );
|
||||||
|
prototype _DeleteFiles( );
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
prototype _FinalChecks( );
|
||||||
|
|
||||||
|
*/
|
||||||
11
support/interni/src/aga/setup.lst
Executable file
11
support/interni/src/aga/setup.lst
Executable file
@ -0,0 +1,11 @@
|
|||||||
|
1;
|
||||||
|
sys.z
|
||||||
|
winsys.z
|
||||||
|
winsyscg.z
|
||||||
|
bademo.z
|
||||||
|
ba.z
|
||||||
|
std.z
|
||||||
|
com.z
|
||||||
|
cm770.z
|
||||||
|
datidemo.z
|
||||||
|
datiauto.z
|
||||||
174
support/interni/src/aga/setup.rul
Executable file
174
support/interni/src/aga/setup.rul
Executable file
@ -0,0 +1,174 @@
|
|||||||
|
// File principale della installazione EASY CAMPO
|
||||||
|
declare
|
||||||
|
// Dichiarazioni di costanti per questo script
|
||||||
|
#include "DECLARE.RUL"
|
||||||
|
// Windows API
|
||||||
|
#include "WINSUB.H"
|
||||||
|
// File di include con gli ID dei dialog usati in questo script
|
||||||
|
#include "PRADIAGS.H"
|
||||||
|
NUMBER nHandle;
|
||||||
|
NUMBER nTerminatedConv, nResult;
|
||||||
|
STRING szSXTR1,szSXTR2, szDoMnu, szText, szModifiedPath, szBaCnv;
|
||||||
|
STRING sInstType;
|
||||||
|
BOOL bPurchase, bInstallModules, bInstallAutoform, bInstallEnv, bInstallFirm, bInstallDemo, bInstallDemoData, bInstallNetWrk;
|
||||||
|
BOOL bInstallData, bInstallPrg, bInstallManual;
|
||||||
|
// Function declarations.
|
||||||
|
prototype _SetupScreen();
|
||||||
|
prototype _CheckRequirements();
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------
|
||||||
|
NUMBER nDirection;
|
||||||
|
program
|
||||||
|
|
||||||
|
|
||||||
|
Step_start:
|
||||||
|
//---------------------------------- defaults
|
||||||
|
bInstallPrg = TRUE;
|
||||||
|
bInstallData = FALSE;
|
||||||
|
_ProgramPrologue();
|
||||||
|
|
||||||
|
#define SPACE_REQUIRED 3000 // Disk space in bytes.
|
||||||
|
#define APP_NAME "Easy Campo"
|
||||||
|
#define PROGRAM_FOLDER_NAME "PRASSI"
|
||||||
|
#define APPBASE_PATH "\\"
|
||||||
|
#define COMPANY_NAME "A.G.A. Informatica"
|
||||||
|
#define PRODUCT_NAME "EasyCampo"
|
||||||
|
#define PRODUCT_VERSION "1.0 beta"
|
||||||
|
#define DEINSTALL_KEY "SampleDeinstKey"
|
||||||
|
#define PRODUCT_KEY "ba0.exe"
|
||||||
|
#define DATATYPE_FILE "datatype."
|
||||||
|
|
||||||
|
Disable( BACKGROUND );
|
||||||
|
// Set installation info., which is required for registry entries.
|
||||||
|
InstallationInfo( COMPANY_NAME, PRODUCT_NAME, PRODUCT_VERSION, PRODUCT_KEY );
|
||||||
|
// Set up the installation screen.
|
||||||
|
_SetupScreen();
|
||||||
|
Enable( DIALOGCACHE );
|
||||||
|
_CheckRequirements();
|
||||||
|
|
||||||
|
Step_welcome:
|
||||||
|
Disable( BACKBUTTON );
|
||||||
|
Welcome( "", 0 );
|
||||||
|
Enable( BACKBUTTON );
|
||||||
|
|
||||||
|
Step_chooseinst:
|
||||||
|
// sceglie cosa installare
|
||||||
|
nDirection=_SelectInstall();
|
||||||
|
if (nDirection=BACK) then
|
||||||
|
goto Step_welcome;
|
||||||
|
endif ;
|
||||||
|
if nDirection=NEXT then
|
||||||
|
if bInstallNetWrk then
|
||||||
|
goto Step_installnet;
|
||||||
|
endif;
|
||||||
|
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;
|
||||||
|
|
||||||
|
Step_choosecomp:
|
||||||
|
if nDirection=BACK && bInstallDemo then
|
||||||
|
goto Step_choosewhere;
|
||||||
|
endif;
|
||||||
|
nDirection= _SelectComponents( );
|
||||||
|
if nDirection=BACK then
|
||||||
|
goto Step_choosewhere;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
Step_choosewhereD:
|
||||||
|
nDirection= _ChiediDestDati();
|
||||||
|
if nDirection=BACK then
|
||||||
|
goto Step_choosecomp;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
Step_choosedata:
|
||||||
|
if bInstallData then
|
||||||
|
nDirection= _SelectDataType();
|
||||||
|
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
|
||||||
|
goto Step_choosedata;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
Step_newORupdate:
|
||||||
|
if (bInstallPrg || bNuovaInst) && nDirection=BACK then
|
||||||
|
goto Step_fromnet;
|
||||||
|
endif;
|
||||||
|
if bInstallPrg then
|
||||||
|
nDirection=_AddOrOverwrite();
|
||||||
|
endif;
|
||||||
|
if nDirection=BACK then
|
||||||
|
goto Step_fromnet;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
Step_installData:
|
||||||
|
if bInstallData then
|
||||||
|
nDirection = _InstallazioneDati();
|
||||||
|
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;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
Step_purchase:
|
||||||
|
if bPurchase then
|
||||||
|
ChangeDirectory(szAppPath);
|
||||||
|
LaunchAppAndWait("ba1.exe","-4 -uPRASSI",WAIT);
|
||||||
|
endif;
|
||||||
|
if bInstallModules then
|
||||||
|
ChangeDirectory(szAppPath);
|
||||||
|
LaunchAppAndWait("ba1.exe","-6 -uPRASSI",WAIT);
|
||||||
|
endif;
|
||||||
|
|
||||||
|
_ProgramEpilogue();
|
||||||
|
exit;
|
||||||
|
|
||||||
|
Step_installnet:
|
||||||
|
nDirection = _NewNetWorkPlace();
|
||||||
|
if (nDirection=BACK) then
|
||||||
|
goto Step_chooseinst;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
_ProgramEpilogue();
|
||||||
|
exit;
|
||||||
|
|
||||||
|
#include "winsub.rul"
|
||||||
|
#include "setup1.rul"
|
||||||
|
#include "setup2.rul"
|
||||||
|
#include "setup3.rul"
|
||||||
|
#include "setup4.rul"
|
||||||
443
support/interni/src/aga/setup1.rul
Executable file
443
support/interni/src/aga/setup1.rul
Executable file
@ -0,0 +1,443 @@
|
|||||||
|
//----------------------------------------------------------------------------
|
||||||
|
// **** Selezione del tipo di installazione
|
||||||
|
// **** (programmi o postazione di rete)
|
||||||
|
function _SelectInstall( )
|
||||||
|
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";
|
||||||
|
nRetv = AskOptions(EXCLUSIVE,szMsg,
|
||||||
|
"&Installazione EasyCAMPO",
|
||||||
|
bInstallEnv,
|
||||||
|
"Installazione EasyCAMPO &Demo",
|
||||||
|
bInstallDemo,
|
||||||
|
"Installazione nuova postazione di lavoro in &rete",
|
||||||
|
bInstallNetWrk
|
||||||
|
);
|
||||||
|
return nRetv;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//----------------------------------------------------------------------------
|
||||||
|
// **** Selezione del tipo di installazione
|
||||||
|
// ****
|
||||||
|
function _SelectComponents()
|
||||||
|
NUMBER nRetv;
|
||||||
|
BOOL bJunk;
|
||||||
|
STRING szMsg[512];
|
||||||
|
begin
|
||||||
|
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;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// **** Selezione del tipo di installazione
|
||||||
|
// ****
|
||||||
|
function _SelectDataType( )
|
||||||
|
NUMBER nRetv;
|
||||||
|
BOOL bJunk;
|
||||||
|
STRING szMsg[512];
|
||||||
|
begin
|
||||||
|
szMsg= "Si e' selezionato di installare gli archivi. \n";
|
||||||
|
szMsg= szMsg + "L'area dati deve contenere:";
|
||||||
|
repeat
|
||||||
|
nRetv = AskOptions(EXCLUSIVE,szMsg,
|
||||||
|
"gli archivi di &ditta",
|
||||||
|
bInstallFirm,
|
||||||
|
"gli archivi De&mo",
|
||||||
|
bInstallDemoData,
|
||||||
|
"gli archivi di Auto&formazione",
|
||||||
|
bInstallAutoform
|
||||||
|
);
|
||||||
|
if nRetv=BACK then
|
||||||
|
return BACK;
|
||||||
|
endif;
|
||||||
|
sInstType = INST_ENVIRONMENT;
|
||||||
|
if bInstallDemoData then
|
||||||
|
sInstType = INST_DEMO;
|
||||||
|
elseif bInstallAutoform then
|
||||||
|
sInstType = INST_AUTOFORM;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
until nRetv=NEXT;
|
||||||
|
return nRetv;
|
||||||
|
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()
|
||||||
|
BOOL bReenterPath, bConfirmdatapath;
|
||||||
|
NUMBER nRetv;
|
||||||
|
begin
|
||||||
|
// ricontrolla la presenza di una installazione
|
||||||
|
// e determina la posizione della directory "DATI"
|
||||||
|
|
||||||
|
if szAppPath="" then
|
||||||
|
szAppPath= "c:\prassi";
|
||||||
|
bNuovaInst = _FindExistingInst(szAppPath);
|
||||||
|
endif;
|
||||||
|
if (AskDestPath( "", "", szAppPath, 0 )=BACK) then
|
||||||
|
return BACK;
|
||||||
|
endif;
|
||||||
|
bNuovaInst = ! _CheckExistingInst(szAppPath);
|
||||||
|
szTmp = szAppPath ^ "PATHPREF.INI";
|
||||||
|
if ( ! Is( FILE_EXISTS, szTmp ) ) then
|
||||||
|
szDataPath = szAppPath ^ "DATI\\";
|
||||||
|
else
|
||||||
|
OpenFileMode( FILE_MODE_NORMAL );
|
||||||
|
OpenFile( nTmp, szAppPath, "PATHPREF.INI");
|
||||||
|
if GetLine( nTmp, szTmp ) = 0 then
|
||||||
|
StrSub( szTmp2, szTmp, 1, 1 );
|
||||||
|
if ( szTmp2 = ":" ) then
|
||||||
|
szDataPath = szTmp;
|
||||||
|
else
|
||||||
|
StrSub( szTmp2, szTmp, 0, 1 );
|
||||||
|
if ( szTmp2 = "." ) then
|
||||||
|
szDataPath = szTmp;
|
||||||
|
else
|
||||||
|
if ( szTmp2 = "\\" ) then
|
||||||
|
szDataPath = szTmp;
|
||||||
|
else
|
||||||
|
szDataPath = szAppPath ^ szTmp;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
else
|
||||||
|
MessageBox( "Errore nel file PATHPREF.INI" ,SEVERE);
|
||||||
|
szDataPath = szAppPath ^ "DATI\\";
|
||||||
|
endif;
|
||||||
|
CloseFile( nTmp );
|
||||||
|
endif;
|
||||||
|
return nRetv;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//----------------------------------
|
||||||
|
function _ChiediDestDati()
|
||||||
|
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 then
|
||||||
|
sMsg = "I dati verranno installati nel seguente direttorio.";
|
||||||
|
else
|
||||||
|
sMsg = "I dati sono installati nel seguente direttorio.";
|
||||||
|
endif;
|
||||||
|
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;
|
||||||
|
endif;
|
||||||
|
szDataPath=szChangedPath;
|
||||||
|
bDatiPresenti = _CheckExistingData(szDataPath);
|
||||||
|
if (bDatiPresenti && bInstallData) then
|
||||||
|
bConfirmdatapath=_CanOverwrite();
|
||||||
|
endif;
|
||||||
|
if ((! bDatiPresenti) && (! bInstallData)) then
|
||||||
|
MessageBox( "La cartella indicata non contiene dati. \nSe si desidera davvero utilizzare questa cartella, \nabilitare l'installazione dell'area dati" ,SEVERE);
|
||||||
|
bConfirmdatapath=FALSE;
|
||||||
|
endif;
|
||||||
|
until (bConfirmdatapath);
|
||||||
|
|
||||||
|
return NEXT;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------------------------------------------------
|
||||||
|
// **** Installi o aggiungi moduli ?
|
||||||
|
|
||||||
|
function _AddOrOverwrite()
|
||||||
|
STRING szMsg[512];
|
||||||
|
BOOL bJunk;
|
||||||
|
NUMBER nRet;
|
||||||
|
begin
|
||||||
|
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?";
|
||||||
|
bInstallModules=TRUE;
|
||||||
|
nRet = AskOptions(NONEXCLUSIVE,szMsg,
|
||||||
|
"&Acquisto e abilitazione nuovi moduli",
|
||||||
|
bPurchase
|
||||||
|
);
|
||||||
|
else
|
||||||
|
szMsg= "Si sta aggiornando una precedente installazione. Si desidera aggiornare i moduli gia' acquistati ";
|
||||||
|
szMsg=szMsg + "o acquistarne e abilitarne dei nuovi prima di installarli ?";
|
||||||
|
nRet = AskOptions(NONEXCLUSIVE,szMsg,
|
||||||
|
"&Acquisto e abilitazione nuovi moduli",
|
||||||
|
bPurchase,
|
||||||
|
"Installazione o aggiornamento nuovi &moduli",
|
||||||
|
bInstallModules
|
||||||
|
);
|
||||||
|
endif;
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// ****
|
||||||
|
// ****
|
||||||
|
function _TrovaPrgSuRete( )
|
||||||
|
STRING szText[ _MAX_LENGTH ], szModifiedPath[ _MAX_LENGTH ], szTemp[ _MAX_LENGTH ];
|
||||||
|
NUMBER nHandle;
|
||||||
|
begin
|
||||||
|
szText = "E' stata scelta l'installazione di una postazione di lavoro.";
|
||||||
|
szText =szText + "\nInserire il nome del direttorio di rete che contiene l'installazione di EasyCAMPO";
|
||||||
|
szAppPath = DEFAULT_NETPATH;
|
||||||
|
while ( TRUE )
|
||||||
|
if ( AskPath( szText , szAppPath, szModifiedPath ) = NEXT ) then
|
||||||
|
if ( _CheckExistingInst(szModifiedPath) ) then
|
||||||
|
szAppPath = szModifiedPath;
|
||||||
|
szTmp = szAppPath ^ "PATHPREF.INI";
|
||||||
|
if ( ! Is( FILE_EXISTS, szTmp ) ) then
|
||||||
|
szDataPath = szAppPath ^ "DATI\\";
|
||||||
|
else
|
||||||
|
OpenFileMode( FILE_MODE_NORMAL );
|
||||||
|
OpenFile( nTmp, szAppPath, "PATHPREF.INI");
|
||||||
|
if GetLine( nTmp, szTmp ) = 0 then
|
||||||
|
StrSub( szTmp2, szTmp, 1, 1 );
|
||||||
|
if ( szTmp2 = ":" ) then
|
||||||
|
szDataPath = szTmp;
|
||||||
|
else
|
||||||
|
StrSub( szTmp2, szTmp, 0, 1 );
|
||||||
|
if ( szTmp2 = "." ) then
|
||||||
|
szDataPath = szTmp;
|
||||||
|
else
|
||||||
|
if ( szTmp2 = "\\" ) then
|
||||||
|
szDataPath = szTmp;
|
||||||
|
else
|
||||||
|
szDataPath = szAppPath ^ szTmp;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
else
|
||||||
|
_Attenzione( "Errore nel file PATHPREF.INI" );
|
||||||
|
szDataPath = szAppPath ^ "DATI\\";
|
||||||
|
endif;
|
||||||
|
CloseFile( nTmp );
|
||||||
|
endif;
|
||||||
|
StrToUpper( szAppPath, szAppPath );
|
||||||
|
StrToUpper( szDataPath, szDataPath );
|
||||||
|
bProgrammiServer = TRUE;
|
||||||
|
szTemp = DEFAULT_LOCALPATH ^ "\\PREFIX.TXT";
|
||||||
|
if ( ! Is( FILE_EXISTS, szTemp ) ) then
|
||||||
|
CreateDir( DEFAULT_LOCALPATH );
|
||||||
|
CreateFile( nHandle, DEFAULT_LOCALPATH, "PREFIX.TXT" );
|
||||||
|
WriteLine( nHandle, "COM" );
|
||||||
|
CloseFile( nHandle );
|
||||||
|
endif;
|
||||||
|
_UpdateRegistry( );
|
||||||
|
return NEXT;
|
||||||
|
else
|
||||||
|
_Attenzione( "Impossibile trovare i programmi di EasyCAMPO in " + szModifiedPath );
|
||||||
|
endif;
|
||||||
|
else
|
||||||
|
return BACK;
|
||||||
|
endif;
|
||||||
|
endwhile;
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// **** installazione postazione di rete
|
||||||
|
// ****
|
||||||
|
function _NewNetWorkPlace( )
|
||||||
|
STRING szText[ _MAX_LENGTH ];
|
||||||
|
NUMBER nGoOut, nRet, nResult, nDisk;
|
||||||
|
BOOL bRet;
|
||||||
|
begin
|
||||||
|
if (_TrovaPrgSuRete() =BACK) then
|
||||||
|
return BACK;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
bRet = _Verifica("Installare anche le librerie di CG ? ");
|
||||||
|
|
||||||
|
FileSetBeginDefine ( "SYS");
|
||||||
|
SetColor(STATUSBAR,BLUE);
|
||||||
|
Enable(FEEDBACK_OPERATION);
|
||||||
|
Enable(STATUS);
|
||||||
|
SetStatusWindow( 0, "Scompattamento in corso..." );
|
||||||
|
TARGETDIR = WINDIR ^ "SYSTEM";
|
||||||
|
|
||||||
|
if ( CompressGet( "WINSYS.Z", "*.*", INCLUDE_SUBDIR ) < 0) then
|
||||||
|
szText = STR_ERR_DECOMPRESS + " la libreria WINSYS.";
|
||||||
|
_Errore( szText );
|
||||||
|
endif;
|
||||||
|
if (bRet) then
|
||||||
|
if ( CompressGet( "WINSYSCG.Z", "*.*", INCLUDE_SUBDIR ) < 0) then
|
||||||
|
szText = STR_ERR_DECOMPRESS + " la libreria WINSYSCG.";
|
||||||
|
_Errore( szText );
|
||||||
|
endif;
|
||||||
|
ChangeDirectory( szAppPath);
|
||||||
|
szText = szAppPath ^ "\\cgpostIN.EXE";
|
||||||
|
LaunchAppAndWait( szText , szAppPath, WAIT );
|
||||||
|
endif;
|
||||||
|
FileSetEndDefine ( "SYS");
|
||||||
|
StatusUpdate( ON, 100 );
|
||||||
|
repeat
|
||||||
|
nRet=FileSetPerformEz ("SYS", nDisk );
|
||||||
|
until nRet = FS_DONE;
|
||||||
|
Delay(1);
|
||||||
|
FileSetEndPerform ( "SYS" );
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
_UpdateSysFiles();
|
||||||
|
_SetPathpref();
|
||||||
|
ChangeDirectory( szAppPath);
|
||||||
|
_RemoveHDLOCK();
|
||||||
|
|
||||||
|
Disable( FEEDBACK_FULL );
|
||||||
|
Disable(STATUS);
|
||||||
|
return NEXT;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//----------------------------------
|
||||||
|
function _InstallazioneDati()
|
||||||
|
BOOL bReenterPath, bConfirmdatapath;
|
||||||
|
STRING szTitle[_MAX_LENGTH];
|
||||||
|
STRING szPath[_MAX_LENGTH];
|
||||||
|
STRING szTemp[_MAX_LENGTH];
|
||||||
|
NUMBER nTmp;
|
||||||
|
begin
|
||||||
|
|
||||||
|
|
||||||
|
TARGETDIR = szDataPath; // i .z hanno gia' il sottodirettorio nel nome di file
|
||||||
|
if ( CreateDir( TARGETDIR ) < 0 ) then
|
||||||
|
_Attenzione( STR_DATA_DIR_NOTCREATED );
|
||||||
|
return;
|
||||||
|
endif;
|
||||||
|
// ****************
|
||||||
|
// copia dati comuni, std e com770 ,
|
||||||
|
// demo o autoformazione ?
|
||||||
|
|
||||||
|
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.";
|
||||||
|
_Attenzione( szText );
|
||||||
|
endif;
|
||||||
|
FileSetEndDefine ( "DDEMO");
|
||||||
|
StatusUpdate( ON, 100 );
|
||||||
|
_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.";
|
||||||
|
_Attenzione( szText );
|
||||||
|
endif;
|
||||||
|
FileSetEndDefine ( "DAUTO");
|
||||||
|
StatusUpdate( ON, 100 );
|
||||||
|
_PerformSet ( "DAUTO");
|
||||||
|
|
||||||
|
// ******** installa dati iniziali ditte
|
||||||
|
elseif bInstallFirm then
|
||||||
|
szTitle = "Installazione dati comuni e standard su " + szDataPath;
|
||||||
|
SetStatusWindow( 0, szTitle );
|
||||||
|
FileSetBeginDefine ( "DATI");
|
||||||
|
if ( CompressGet( "STD.Z", "*.*", INCLUDE_SUBDIR ) < 0) then
|
||||||
|
szText = STR_ERR_DECOMPRESS + " il modulo Dati standard.";
|
||||||
|
_Attenzione( szText );
|
||||||
|
endif;
|
||||||
|
if ( CompressGet( "COM.Z", "*.*", INCLUDE_SUBDIR ) < 0) then
|
||||||
|
szText = STR_ERR_DECOMPRESS + " il modulo Dati comuni.";
|
||||||
|
_Attenzione( szText );
|
||||||
|
endif;
|
||||||
|
if ( CompressGet( "CM770.Z", "*.*", INCLUDE_SUBDIR ) < 0) then
|
||||||
|
szText = STR_ERR_DECOMPRESS + " il modulo Dati comuni (M770).";
|
||||||
|
_Attenzione( szText );
|
||||||
|
endif;
|
||||||
|
FileSetEndDefine ( "DATI");
|
||||||
|
|
||||||
|
StatusUpdate( ON, 100 );
|
||||||
|
_PerformSet ( "DATI");
|
||||||
|
endif;
|
||||||
|
|
||||||
|
|
||||||
|
Disable(STATUS);
|
||||||
|
|
||||||
|
// ****************
|
||||||
|
_CopiaPRASSIINI( );
|
||||||
|
_SetPathpref();
|
||||||
|
// ****************
|
||||||
|
// marca l'installazione dati con il tipo giusto
|
||||||
|
szPath=szDataPath ^ "\\CONFIG";
|
||||||
|
szTemp=szPath ^ DATATYPE_FILE;
|
||||||
|
if ( Is( FILE_EXISTS, szTemp ) ) then
|
||||||
|
DeleteFile(szTemp);
|
||||||
|
endif;
|
||||||
|
OpenFileMode( FILE_MODE_APPEND );
|
||||||
|
CreateFile( nTmp, szPath, DATATYPE_FILE);
|
||||||
|
WriteLine(nTmp,sInstType);
|
||||||
|
CloseFile( nTmp );
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
//----------------------------------
|
||||||
|
function _InstallazioneMinima()
|
||||||
|
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;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function _Ask4Purchase()
|
||||||
|
begin
|
||||||
|
if (AskYesNo("Vuoi acquistare nuovi moduli",NO)) then
|
||||||
|
// lancia il programma ''enabler''
|
||||||
|
endif;
|
||||||
|
return NEXT;
|
||||||
|
end;
|
||||||
|
|
||||||
525
support/interni/src/aga/setup2.rul
Executable file
525
support/interni/src/aga/setup2.rul
Executable file
@ -0,0 +1,525 @@
|
|||||||
|
function _SetPathpref( )
|
||||||
|
STRING szTmpPath[_MAX_LENGTH];
|
||||||
|
begin
|
||||||
|
// Setto il Pathpref in modo da poter eseguire BA1 o BACNV,
|
||||||
|
// anche in prima installazione su rete (mancando set PREFPATH)
|
||||||
|
|
||||||
|
ChangeDirectory( szAppPath);
|
||||||
|
if (Is( FILE_EXISTS, "PATHPREF.INI" )) then
|
||||||
|
DeleteFile("PATHPREF.INI" );
|
||||||
|
endif;
|
||||||
|
CreateFile( nHandle, szAppPath, "PATHPREF.INI" );
|
||||||
|
WriteLine( nHandle, szDataPath );
|
||||||
|
CloseFile( nHandle );
|
||||||
|
|
||||||
|
ChangeDirectory( szAppPath);
|
||||||
|
if ( Is( FILE_EXISTS, "PREFIX.TXT" )) then
|
||||||
|
DeleteFile("PREFIX.TXT" );
|
||||||
|
endif;
|
||||||
|
CreateFile( nHandle, szAppPath, "PREFIX.TXT" );
|
||||||
|
WriteLine( nHandle, "COM" );
|
||||||
|
CloseFile( nHandle );
|
||||||
|
// scrive le stesse cose nel file unico prawin.ini , se esiste
|
||||||
|
szTmpPath=szAppPath ^ "PRAWIN.INI";
|
||||||
|
WriteProfString(szTmpPath, "Main", "Program",szAppPath);
|
||||||
|
WriteProfString(szTmpPath, "Main", "Study",szDataPath);
|
||||||
|
WriteProfString(szTmpPath, "Main", "Firm","COM");
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// **** Funzione per aggiornare i files di sistema
|
||||||
|
// ****
|
||||||
|
function _UpdateSysFiles( )
|
||||||
|
NUMBER nNotModify, nGoOut, nRet, nInfo, nCurFiles, nLen, nNr;
|
||||||
|
STRING szTemp[_MAX_LENGTH], szWin_Ini[_MAX_LENGTH], szSaveDir[_MAX_LENGTH];
|
||||||
|
begin
|
||||||
|
if !bNuovaInst then
|
||||||
|
return;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
nSystemFileModified = TRUE;
|
||||||
|
nNotModify = FALSE;
|
||||||
|
nInfo = FALSE;
|
||||||
|
nGoOut = FALSE;
|
||||||
|
SetDialogTitle(DLG_ASK_OPTIONS, "Modifica ai files di sistema" );
|
||||||
|
Disable( BACKBUTTON );
|
||||||
|
SetDialogTitle(DLG_CANCEL, "Uscita" );
|
||||||
|
SetDialogTitle(DLG_OK, "Conferma" );
|
||||||
|
|
||||||
|
while ! nGoOut
|
||||||
|
nRet = AskOptions(EXCLUSIVE, STR_MODSYSFILES, STR_MODIFY, nSystemFileModified, STR_NOTMODIFY, nNotModify, STR_INFOMODIFY, nInfo );
|
||||||
|
if nInfo then
|
||||||
|
// Mostra le informazioni
|
||||||
|
if _PreviewBatch( ) then
|
||||||
|
nSystemFileModified = TRUE;
|
||||||
|
else
|
||||||
|
nSystemFileModified = FALSE;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
nGoOut = TRUE;
|
||||||
|
endwhile;
|
||||||
|
|
||||||
|
// Modifiche per installare BAFAX & FAXMAN (30 settembre 1996)
|
||||||
|
if (bProgrammiServer) then
|
||||||
|
szSaveDir = DEFAULT_LOCALPATH;
|
||||||
|
else
|
||||||
|
szSaveDir = szAppPath;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
VarSave(SRCTARGETDIR);
|
||||||
|
SRCDIR = WINDIR;
|
||||||
|
TARGETDIR = szSaveDir;
|
||||||
|
CopyFile( "WIN.INI", "WIN.PRA" );
|
||||||
|
VarRestore(SRCTARGETDIR);
|
||||||
|
// Fine modifiche del 30 settembre 1996
|
||||||
|
VarSave(SRCTARGETDIR);
|
||||||
|
SRCDIR = "C:\\";
|
||||||
|
TARGETDIR = szSaveDir;
|
||||||
|
CopyFile( "AUTOEXEC.BAT", "AUTOEXEC.PRA" );
|
||||||
|
CopyFile( "CONFIG.SYS", "CONFIG.PRA" );
|
||||||
|
VarRestore(SRCTARGETDIR);
|
||||||
|
if nSystemFileModified then
|
||||||
|
BatchSetFileName( "C:\\AUTOEXEC.BAT" );
|
||||||
|
ConfigSetFileName( "C:\\CONFIG.SYS" );
|
||||||
|
szWin_Ini = WINDIR ^ "WIN.INI";
|
||||||
|
else
|
||||||
|
szTemp = szSaveDir ^ "AUTOEXEC.PRA";
|
||||||
|
BatchSetFileName( szTemp );
|
||||||
|
szTemp = szSaveDir ^ "CONFIG.PRA";
|
||||||
|
ConfigSetFileName( szTemp );
|
||||||
|
szWin_Ini = szSaveDir ^ "WIN.PRA";
|
||||||
|
endif;
|
||||||
|
if (szOSName != "3.95") then
|
||||||
|
EzBatchReplace( STR_SHARE );
|
||||||
|
endif;
|
||||||
|
EzBatchReplace( STR_TEMP );
|
||||||
|
if bProgrammiServer then
|
||||||
|
EzBatchReplace("SET PREFPATH=C:\\PRASSI\\PREFIX.TXT");
|
||||||
|
endif;
|
||||||
|
szTemp = "C:\\RESET_HL.EXE";
|
||||||
|
EzBatchReplace( szTemp );
|
||||||
|
nLen = StrLength( szAppPath );
|
||||||
|
StrSub( szTemp, szAppPath, 0, nLen - 1);
|
||||||
|
EzBatchAddPath( "PATH", szTemp, "", AFTER );
|
||||||
|
EzConfigGetValue( "FILES", nCurFiles );
|
||||||
|
if nCurFiles < NUM_FILES_IN_CONFIG then
|
||||||
|
EzConfigSetValue( "FILES", NUM_FILES_IN_CONFIG );
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// *****************
|
||||||
|
// Modifiche per installare BAFAX & FAXMAN
|
||||||
|
|
||||||
|
nNr = GetProfString(szWin_Ini,"FaxMan,EASYFAX","Application",szTemp);
|
||||||
|
if (nNr <0 || szTemp = "") then
|
||||||
|
WriteProfString(szWin_Ini,"ports","EASYFAX"," ");
|
||||||
|
szTemp = szAppPath ^ "bafax.exe";
|
||||||
|
WriteProfString(szWin_Ini,"FaxMan,EASYFAX","Application",szTemp);
|
||||||
|
WriteProfString(szWin_Ini,"PrinterPorts","FaxMan","fmfaxdrv,EASYFAX,5,5");
|
||||||
|
WriteProfString(szWin_Ini,"devices","FaxMan","fmfaxdrv,EASYFAX");
|
||||||
|
endif;
|
||||||
|
// *****************
|
||||||
|
if nSystemFileModified then
|
||||||
|
SprintfBox( WARNING, "Attenzione", STR_FILE_MODIFIED, szSaveDir );
|
||||||
|
else
|
||||||
|
SprintfBox( WARNING, "Attenzione", STR_FILE_NOTMODIFIED, szSaveDir );
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// **** Funzione per cancellare i files minimi per il fascicolatore
|
||||||
|
function _DeleteFilesMinima( )
|
||||||
|
NUMBER pDataList, pProgramList, nFile, nFlag, nLen;
|
||||||
|
STRING szPath [ _MAX_LENGTH ], szFileName [ _MAX_LENGTH ], szFC [ 2 ], szLine [ _MAX_LENGTH ];
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
if !bNuovaInst then
|
||||||
|
szPath=szAppPath ^ "install.ini";
|
||||||
|
GetProfString(szPath,"Main","Demo",szFC);
|
||||||
|
if szFC = "X" then
|
||||||
|
// cancella tutti gli eseguibili per evitare sovrapposizioni tra versione demo e normale
|
||||||
|
szPath=szAppPath;
|
||||||
|
nLen=FindAllFiles(szAppPath, "*.EXE", szFileName, RESET);
|
||||||
|
while (nLen=0 )
|
||||||
|
DeleteFile(szFileName);
|
||||||
|
nLen=FindAllFiles(szAppPath, "*.EXE", szFileName, CONTINUE);
|
||||||
|
endwhile;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
//************
|
||||||
|
// ?????????
|
||||||
|
//
|
||||||
|
pDataList = ListCreate( STRINGLIST );
|
||||||
|
if ( pDataList = LIST_NULL ) then
|
||||||
|
_Errore( "Errore in ListCreate ( DataList )" );
|
||||||
|
exit;
|
||||||
|
endif;
|
||||||
|
pProgramList = ListCreate( STRINGLIST );
|
||||||
|
if ( pProgramList = LIST_NULL ) then
|
||||||
|
_Errore( "Errore in ListCreate ( ProgramList )" );
|
||||||
|
exit;
|
||||||
|
endif;
|
||||||
|
OpenFileMode( FILE_MODE_NORMAL );
|
||||||
|
szPath = SRCDIR;
|
||||||
|
szFileName = "FTODEL.DAT";
|
||||||
|
OpenFile( nFile, szPath, szFileName );
|
||||||
|
nFlag = GetLine( nFile, szLine );
|
||||||
|
while( nFlag = 0 )
|
||||||
|
StrSub( szFC, szLine, 0, 1 );
|
||||||
|
nLen = StrLength( szLine);
|
||||||
|
StrSub( szFileName, szLine, 1, nLen - 1 );
|
||||||
|
if ( szFC != "#" ) then
|
||||||
|
if ( szFC = "D" ) then
|
||||||
|
ListAddString( pDataList, szFileName, AFTER );
|
||||||
|
else
|
||||||
|
ListAddString( pProgramList, szFileName, AFTER );
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
nFlag = GetLine( nFile, szLine );
|
||||||
|
endwhile;
|
||||||
|
CloseFile( nFile );
|
||||||
|
VarSave( SRCTARGETDIR );
|
||||||
|
TARGETDIR = szDataPath;
|
||||||
|
nFlag = ListGetFirstString( pDataList, szLine );
|
||||||
|
while ( nFlag = 0 )
|
||||||
|
DeleteFile( szLine );
|
||||||
|
nFlag = ListGetNextString( pDataList, szLine );
|
||||||
|
endwhile;
|
||||||
|
ListDestroy( pDataList );
|
||||||
|
nFlag = ListGetFirstString( pProgramList, szLine );
|
||||||
|
TARGETDIR = szAppPath;
|
||||||
|
while ( nFlag = 0 )
|
||||||
|
DeleteFile( szLine );
|
||||||
|
nFlag = ListGetNextString( pProgramList, szLine );
|
||||||
|
endwhile;
|
||||||
|
ListDestroy( pProgramList );
|
||||||
|
VarRestore( SRCTARGETDIR );
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
// ****
|
||||||
|
function _InstallaFilesMinima ( )
|
||||||
|
NUMBER nRet, ntDisk, nHandle;
|
||||||
|
BOOL bRightDisk;
|
||||||
|
STRING szTemp [_MAX_LENGTH];
|
||||||
|
STRING szStatusText [_MAX_LENGTH];
|
||||||
|
begin
|
||||||
|
|
||||||
|
|
||||||
|
// Backup TARGETDIR to local variable
|
||||||
|
// Define fileset items
|
||||||
|
// --------------------- //
|
||||||
|
|
||||||
|
SetColor(STATUSBAR,BLUE);
|
||||||
|
Enable(FEEDBACK_OPERATION);
|
||||||
|
Enable(STATUS);
|
||||||
|
|
||||||
|
SetStatusWindow( 0, "Installazione programmi di ambiente in corso..." );
|
||||||
|
|
||||||
|
FileSetBeginDefine ( "WIN");
|
||||||
|
TARGETDIR = WINDIR ^ "SYSTEM";
|
||||||
|
if ( CompressGet( "WINSYS.Z", "*.*", INCLUDE_SUBDIR ) < 0) then
|
||||||
|
szText = STR_ERR_DECOMPRESS + " la libreria WINSYS.";
|
||||||
|
_Errore( szText );
|
||||||
|
endif;
|
||||||
|
if ( CompressGet( "WINSYSCG.Z", "*.*", INCLUDE_SUBDIR ) < 0) then
|
||||||
|
szText = STR_ERR_DECOMPRESS + " la libreria WINSYSCG.";
|
||||||
|
_Errore( szText );
|
||||||
|
endif;
|
||||||
|
FileSetEndDefine ( "WIN");
|
||||||
|
|
||||||
|
FileSetBeginDefine ( "BA");
|
||||||
|
TARGETDIR = szAppPath;
|
||||||
|
if ( CreateDir( TARGETDIR ) < 0 ) then
|
||||||
|
_Errore( STR_DIR_NOTCREATED );
|
||||||
|
else
|
||||||
|
if ( CompressGet( "SYS.Z", "*.*", INCLUDE_SUBDIR ) < 0) then
|
||||||
|
szText = STR_ERR_DECOMPRESS + " la libreria SYS.";
|
||||||
|
_Errore( szText );
|
||||||
|
endif;
|
||||||
|
if bInstallDemo then
|
||||||
|
szText = "BADEMO.Z";
|
||||||
|
else
|
||||||
|
szText = "BA.Z";
|
||||||
|
endif;
|
||||||
|
if ( CompressGet( szText, "*.*", INCLUDE_SUBDIR ) < 0) then
|
||||||
|
szText = STR_ERR_DECOMPRESS + " il programma installatore";
|
||||||
|
_Errore( szText );
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
FileSetEndDefine ( "BA");
|
||||||
|
|
||||||
|
StrToUpper( szAppPath, szAppPath );
|
||||||
|
szStatusText = "Installazione su " + szAppPath;
|
||||||
|
StatusUpdate( ON, 50 );
|
||||||
|
_PerformSet ( "WIN");
|
||||||
|
StatusUpdate( ON, 100 );
|
||||||
|
_PerformSet ( "BA");
|
||||||
|
|
||||||
|
szTemp = szAppPath ^ "RECDESC";
|
||||||
|
CreateDir(szTemp);
|
||||||
|
Disable(STATUS);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function _PerformSet ( sFileset)
|
||||||
|
NUMBER nDisk;
|
||||||
|
BOOL bDone;
|
||||||
|
NUMBER nRet, ntDisk, nHandle;
|
||||||
|
BOOL bRightDisk;
|
||||||
|
STRING szTemp [_MAX_LENGTH];
|
||||||
|
STRING szTmp [_MAX_LENGTH];
|
||||||
|
STRING szFileName [_MAX_LENGTH];
|
||||||
|
STRING szExt [_MAX_LENGTH];
|
||||||
|
STRING szText [_MAX_LENGTH];
|
||||||
|
STRING szEntDisk [_MAX_LENGTH];
|
||||||
|
STRING szMsg [_MAX_LENGTH];
|
||||||
|
begin
|
||||||
|
bDone = FALSE;
|
||||||
|
nDisk = 1;
|
||||||
|
while ( !bDone )
|
||||||
|
|
||||||
|
nRet = FileSetPerform ( sFileset, nDisk );
|
||||||
|
switch ( nRet )
|
||||||
|
case FS_TONEXTDISK:
|
||||||
|
if nDisk > 0 then
|
||||||
|
NumToStr( szExt, nDisk );
|
||||||
|
szTemp = szTemp + szExt ;
|
||||||
|
switch( nDisk )
|
||||||
|
case 1 : szEntDisk = STR_INSERTDISK + STR_TAGDISK1;
|
||||||
|
szTemp = "diskid.1";
|
||||||
|
endswitch;
|
||||||
|
SetDialogTitle ( DLG_ENTER_DISK, "Cambio disco" );
|
||||||
|
SetDialogTitle ( DLG_CANCEL, "Uscita" );
|
||||||
|
Suppress( ENTERDISK_ERRMSG, DISABLE );
|
||||||
|
bRightDisk = FALSE;
|
||||||
|
while( !bRightDisk )
|
||||||
|
nRet = EnterDisk( szEntDisk, szTemp );
|
||||||
|
switch( nRet )
|
||||||
|
case DISKID:
|
||||||
|
_Attenzione( "Indicazione di unita' non valida." );
|
||||||
|
case BADPATH:
|
||||||
|
_Attenzione( "Indicazione di sentiero non valida." );
|
||||||
|
case DRIVEOPEN:
|
||||||
|
_Attenzione( "Inserire un dischetto nella unita' indicata!" );
|
||||||
|
case BADTAGFILE:
|
||||||
|
_Attenzione( "Il disco inserito non e' corretto. Inserire il disco richiesto." );
|
||||||
|
case CANCEL:
|
||||||
|
_ExitOnConfirm( );
|
||||||
|
case OK:
|
||||||
|
bRightDisk = TRUE;
|
||||||
|
endswitch;
|
||||||
|
endwhile;
|
||||||
|
endif;
|
||||||
|
case FS_OPERROR:
|
||||||
|
Sprintf( szMsg, "E' stato rilevato un errore copiando il file %s. Il file non e' stato copiato.\n\nErrore FS_OPERROR.", ERRORFILENAME );
|
||||||
|
_Errore( szMsg );
|
||||||
|
case FS_GENERROR:
|
||||||
|
Sprintf( szMsg, "E' stato rilevato un errore copiando il file %s. Il file non e' stato copiato.\n\nErrore FS_GENERROR.", ERRORFILENAME );
|
||||||
|
_Errore( szMsg );
|
||||||
|
case FS_TARGETREADONLY:
|
||||||
|
szMsg="Impossibile scrivere nella directory di destinazione.";
|
||||||
|
_Errore( szMsg );
|
||||||
|
case FS_INCORRECTDISK:
|
||||||
|
_Attenzione( "Disco non valido.\n\nInserire il disco corretto." );
|
||||||
|
case FS_DISKONEREQUIRED:
|
||||||
|
szEntDisk = STR_INSERTDISK + STR_TAGDISK1;
|
||||||
|
_Attenzione( szEntDisk );
|
||||||
|
case FS_RESETREQUIRED:
|
||||||
|
_Errore( "Impossibile copiare il file a causa di un errore interno." );
|
||||||
|
case FS_OUTOFSPACE:
|
||||||
|
szMsg= "Lo spazio su disco non e' stato sufficiente per completare la copia dei files.\n\nErrore FS_OUTOFSPACE.";
|
||||||
|
_Errore( szMsg );
|
||||||
|
case FS_DONE:
|
||||||
|
bDone = TRUE;
|
||||||
|
default :
|
||||||
|
if ( nRet < 0 ) then
|
||||||
|
szMsg = "Si e' verificato un errore copiando e decomprimendo il file " ^ ERRORFILENAME;
|
||||||
|
_Errore( szMsg );
|
||||||
|
endif;
|
||||||
|
endswitch;
|
||||||
|
endwhile;
|
||||||
|
FileSetEndPerform ( sFileset);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// aggiorna il registry (o il ProgramManager)
|
||||||
|
function _UpdateRegistry( )
|
||||||
|
STRING szItemName [_MAX_LENGTH],
|
||||||
|
szFolder [_MAX_LENGTH],
|
||||||
|
szCmdLine [_MAX_LENGTH],
|
||||||
|
szIconPath [_MAX_LENGTH],
|
||||||
|
szWorkingDir[_MAX_LENGTH];
|
||||||
|
begin
|
||||||
|
Enable( HOURGLASS );
|
||||||
|
// Mostra Program Manager
|
||||||
|
AppCommand( PROGMAN, CMD_RESTORE );
|
||||||
|
// Aggiunge il gruppo di programmi ed i programmi
|
||||||
|
szFolder="EasyCAMPO";
|
||||||
|
ShowGroup (szFolder , SW_NORMAL );
|
||||||
|
if ( TRUE) then
|
||||||
|
// Aggiunge EasyCAMPO Program Manager
|
||||||
|
szItemName = "EasyCAMPO";
|
||||||
|
szCmdLine = szAppPath ^ "\\BA0.EXE";
|
||||||
|
szIconPath = szCmdLine;
|
||||||
|
AddFolderIcon( szFolder, szItemName, szCmdLine, "", szIconPath, 0, "", REPLACE );
|
||||||
|
//AddProgItemEx ( szFolder, szItemName, szCmdLine, "", szIconPath, 0, "", REPLACE );
|
||||||
|
endif;
|
||||||
|
AppCommand( PROGMAN, CMD_MINIMIZE );
|
||||||
|
Disable( HOURGLASS );
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _CambiaDirectory( )
|
||||||
|
STRING szText[ _MAX_LENGTH ];
|
||||||
|
STRING szModifiedPath[ _MAX_LENGTH ];
|
||||||
|
STRING szUserSelectedDrive[ _MAX_LENGTH ];
|
||||||
|
STRING szIncorrectPath[ _MAX_LENGTH ];
|
||||||
|
begin
|
||||||
|
szText = STR_TEXT1;
|
||||||
|
SetDialogTitle( DLG_ASK_PATH, "Directory per installare i programmi" );
|
||||||
|
if ( AskPath( szText , szAppPath, szModifiedPath ) = OK ) then
|
||||||
|
StrToUpper( szModifiedPath, szModifiedPath );
|
||||||
|
GetDisk( szModifiedPath, szUserSelectedDrive );
|
||||||
|
if ( Is ( VALID_PATH, szModifiedPath ) = 1 ) then
|
||||||
|
if szAppPath != szModifiedPath then
|
||||||
|
szAppPath = szModifiedPath;
|
||||||
|
szDataPath = szAppPath ^ "DATI\\";
|
||||||
|
endif;
|
||||||
|
szText = STR_DATATEXT1;
|
||||||
|
SetDialogTitle( DLG_ASK_PATH, "Directory per installare i dati" );
|
||||||
|
if ( AskPath( szText , szDataPath, szModifiedPath ) = OK ) then
|
||||||
|
StrToUpper( szModifiedPath, szModifiedPath );
|
||||||
|
GetDisk( szModifiedPath, szUserSelectedDrive );
|
||||||
|
if ( Is ( VALID_PATH, szModifiedPath ) = 1 ) then
|
||||||
|
szDataPath = szModifiedPath;
|
||||||
|
else
|
||||||
|
szIncorrectPath = STR_INVALID_PATH + "\n" + szModifiedPath;
|
||||||
|
_Attenzione( szIncorrectPath );
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// copia il file PRASSI.INI
|
||||||
|
function _CopiaPRASSIINI( )
|
||||||
|
STRING szPath[_MAX_LENGTH], szFileName[_MAX_LENGTH], szLine[ _MAX_LENGTH], szFC[ 2 ], szTmp[ _MAX_LENGTH];
|
||||||
|
NUMBER nFlag, nFileIn, nFileOut, nLoop;
|
||||||
|
|
||||||
|
begin
|
||||||
|
szPath = szDataPath ^ "CONFIG";
|
||||||
|
szTmp = szPath ^ "PRASSI.INI";
|
||||||
|
if ( ! Is( FILE_EXISTS, szTmp ) ) then
|
||||||
|
if ExistsDir( szPath ) = NOTEXISTS then
|
||||||
|
if ( CreateDir( szPath ) < 0 ) then
|
||||||
|
_Errore( "Impossibile creare la directory CONFIG sotto i dati!" );
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
szFileName = "PRASSI.INI";
|
||||||
|
OpenFileMode( FILE_MODE_APPEND );
|
||||||
|
CreateFile( nFileOut, szPath, szFileName );
|
||||||
|
OpenFileMode( FILE_MODE_NORMAL );
|
||||||
|
szPath = szAppPath;
|
||||||
|
OpenFile( nFileIn, szPath, szFileName );
|
||||||
|
nFlag = GetLine( nFileIn, szLine );
|
||||||
|
while( nFlag = 0 )
|
||||||
|
if szLine = "[Colors]" then
|
||||||
|
nLoop = 0;
|
||||||
|
while( nLoop = 0 )
|
||||||
|
WriteLine( nFileOut, szLine );
|
||||||
|
nFlag = GetLine( nFileIn, szLine );
|
||||||
|
nLoop = nFlag;
|
||||||
|
if ( nLoop = 0 ) then
|
||||||
|
StrSub( szFC, szLine, 0, 1 );
|
||||||
|
if ( szFC != "[" ) then
|
||||||
|
nFlag = GetLine( nFileIn, szLine );
|
||||||
|
else
|
||||||
|
nLoop = 1;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
endwhile;
|
||||||
|
else
|
||||||
|
if szLine = "[Font]" then
|
||||||
|
nLoop = 0;
|
||||||
|
while( nLoop = 0 )
|
||||||
|
WriteLine( nFileOut, szLine );
|
||||||
|
nFlag = GetLine( nFileIn, szLine );
|
||||||
|
nLoop = nFlag;
|
||||||
|
if ( nLoop = 0 ) then
|
||||||
|
StrSub( szFC, szLine, 0, 1 );
|
||||||
|
if ( szFC != "[" ) then
|
||||||
|
nFlag = GetLine( nFileIn, szLine );
|
||||||
|
else
|
||||||
|
nLoop = 1;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
endwhile;
|
||||||
|
else
|
||||||
|
nFlag = GetLine( nFileIn, szLine );
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
endwhile;
|
||||||
|
CloseFile( nFileIn );
|
||||||
|
CloseFile( nFileOut );
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// copia il file INSTALL.INI
|
||||||
|
function _CopiaINSTALLINI( )
|
||||||
|
STRING szPath[_MAX_LENGTH], szFileName[_MAX_LENGTH], szLine[ _MAX_LENGTH], szFC[ 2 ], szTmp[ _MAX_LENGTH];
|
||||||
|
STRING szSrcPath[_MAX_LENGTH];
|
||||||
|
NUMBER nFlag, nFileOut, nLoop;
|
||||||
|
begin
|
||||||
|
if bInstallDemo then
|
||||||
|
szSrcPath= SRCDIR ^ ZIPDEMO_DIRECTORY;
|
||||||
|
else
|
||||||
|
szSrcPath= SRCDIR ^ ZIP_DIRECTORY;
|
||||||
|
endif;
|
||||||
|
szFileName = SRCDIR ^ "INSTALL.INI";
|
||||||
|
szPath= szAppPath ^ "INSTALL.INI";
|
||||||
|
|
||||||
|
WriteProfString(szPath,"Main","DiskPath",szSrcPath);
|
||||||
|
GetProfString(szFileName,"Main","DiskSize",szTmp);
|
||||||
|
WriteProfString(szPath,"Main","DiskSize",szTmp);
|
||||||
|
// ******
|
||||||
|
if bInstallDemo then
|
||||||
|
szTmp = "X";
|
||||||
|
else
|
||||||
|
szTmp = " ";
|
||||||
|
endif;
|
||||||
|
szPath=szAppPath ^ "install.ini";
|
||||||
|
if WriteProfString(szPath,"Main","Demo",szTmp) < 0 then
|
||||||
|
_Attenzione("Impossibile scrivere il tipo della versione su install.ini");
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _ProgramPrologue()
|
||||||
|
begin
|
||||||
|
// setta lo sfondo
|
||||||
|
// Abilita il pulsante Exit
|
||||||
|
// Disabilita lo screen-saver
|
||||||
|
// Mostra una immagine nell'angolo in alto a destra
|
||||||
|
_GetOSName( ); // Reperisce il nome del sistema operativo in szOSName
|
||||||
|
SetDialogTitle (DLG_ASK_OPTIONS, "Seleziona i componenti");
|
||||||
|
SetDialogTitle (DLG_ASK_TEXT, "");
|
||||||
|
SetDialogTitle (DLG_ASK_YESNO, "Domanda");
|
||||||
|
SetDialogTitle (DLG_ENTER_DISK, "Setup ha bisogni del prossimo disco");
|
||||||
|
SetDialogTitle (DLG_MSG_INFORMATION, "Messaggio");
|
||||||
|
SetDialogTitle (DLG_MSG_SEVERE, "Errore fatale");
|
||||||
|
SetDialogTitle (DLG_MSG_WARNING, "Attenzione");
|
||||||
|
SetDialogTitle( DLG_ASK_PATH, "Scelta direttorio" );
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function _ProgramEpilogue()
|
||||||
|
begin
|
||||||
|
_FineInstallazione( );
|
||||||
|
_RiattivaScreenSaver( );
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
387
support/interni/src/aga/setup3.rul
Executable file
387
support/interni/src/aga/setup3.rul
Executable file
@ -0,0 +1,387 @@
|
|||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// funzioni specifiche di basso livello
|
||||||
|
/*---------------------------------------------------------------------------*\
|
||||||
|
*
|
||||||
|
* Function: CheckRequirements
|
||||||
|
*
|
||||||
|
* Purpose: This function will check all minimum requirements for the
|
||||||
|
* application being installed. If any fail, then the user
|
||||||
|
* is informed and the installation is terminated.
|
||||||
|
*
|
||||||
|
*
|
||||||
|
* Input:
|
||||||
|
*
|
||||||
|
* Returns:
|
||||||
|
*
|
||||||
|
* Comments:
|
||||||
|
\*---------------------------------------------------------------------------*/
|
||||||
|
|
||||||
|
function _CheckRequirements()
|
||||||
|
number nvDx, nvDy;
|
||||||
|
number nvVersion;
|
||||||
|
STRING szResult;
|
||||||
|
begin
|
||||||
|
// Check screen resolution.
|
||||||
|
GetExtents( nvDx, nvDy );
|
||||||
|
if (nvDy < 480) then
|
||||||
|
MessageBox( "Questo programma richiede un video VGA o superiore.", WARNING );
|
||||||
|
exit;
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _SetupScreen()
|
||||||
|
number nDx, nDy;
|
||||||
|
begin
|
||||||
|
GetExtents( nDx, nDy );
|
||||||
|
|
||||||
|
Enable( FULLWINDOWMODE );
|
||||||
|
|
||||||
|
Enable( INDVFILESTATUS );
|
||||||
|
Enable( BITMAP256COLORS );
|
||||||
|
Enable( DIALOGCACHE );
|
||||||
|
|
||||||
|
SetTitle( "Installazione di " + APP_NAME, 24, WHITE );
|
||||||
|
|
||||||
|
SetColor( BACKGROUND, BK_BLUE ); // Dark blue.
|
||||||
|
SetColor( STATUSBAR, BLUE ); // Bright blue.
|
||||||
|
|
||||||
|
SetTitle( "Setup", 0, BACKGROUNDCAPTION ); // Caption bar text.
|
||||||
|
|
||||||
|
Enable( BACKGROUND );
|
||||||
|
|
||||||
|
Delay( 1 );
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _ShowExitDialog( nDLGID )
|
||||||
|
NUMBER nGoOut, nRet, nHwnd;
|
||||||
|
begin
|
||||||
|
_CreateDLG ( "DLG_TMP", nDLGID, HWND_INSTALL );
|
||||||
|
nGoOut = FALSE;
|
||||||
|
while nGoOut = FALSE
|
||||||
|
nRet = WaitOnDialog( "DLG_TMP");
|
||||||
|
if ( nRet = DLG_ERR ) then
|
||||||
|
_Attenzione( STR_ERR_DLG );
|
||||||
|
nGoOut = TRUE;
|
||||||
|
endif;
|
||||||
|
switch( nRet )
|
||||||
|
case IDD_CONTINUE:
|
||||||
|
nGoOut = TRUE;
|
||||||
|
case DLG_CLOSE:
|
||||||
|
nGoOut = TRUE;
|
||||||
|
endswitch;
|
||||||
|
endwhile;
|
||||||
|
EndDialog( "DLG_TMP" );
|
||||||
|
ReleaseDialog( "DLG_TMP" );
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _SettaFlagNet( )
|
||||||
|
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 ",
|
||||||
|
"vanno installati sul disco locale", bProgrammiServer,
|
||||||
|
"si trovano sul server di rete", bProgrammiServer );
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
//
|
||||||
|
function _FindExistingInst(szPrevPath )
|
||||||
|
begin
|
||||||
|
_CercaFileOvunque( "PRASSI.AUT",szPrevPath);
|
||||||
|
if (szPrevPath!="") then
|
||||||
|
ParsePath(szPrevPath,szPrevPath,PATH);
|
||||||
|
return TRUE;
|
||||||
|
else
|
||||||
|
return FALSE;
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function _CheckExistingInst(szPrevPath )
|
||||||
|
begin
|
||||||
|
szPrevPath = szPrevPath ^ "PRASSI.AUT";
|
||||||
|
return Is( FILE_EXISTS, szPrevPath );
|
||||||
|
end;
|
||||||
|
|
||||||
|
function _CheckExistingData(szDataPath )
|
||||||
|
begin
|
||||||
|
szDataPath = szDataPath ^ "COM\\";
|
||||||
|
return Is( PATH_EXISTS, szDataPath );
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// determina la presenza di una installazione ricercando il file passato
|
||||||
|
function _PrimaInstallazione( szTagFile, nPrimaInst, szPrevPath )
|
||||||
|
STRING szTmp[512];
|
||||||
|
begin
|
||||||
|
nPrimaInst = 0;
|
||||||
|
_CheckExistingInst(szPrevPath );
|
||||||
|
|
||||||
|
if szPrevPath != "" then
|
||||||
|
ParsePath( szPrevPath, szPrevPath, PATH );
|
||||||
|
Sprintf( szTmp, STR_NOTFIRST1, szPrevPath );
|
||||||
|
szTmp = szTmp + STR_NOTFIRST2;
|
||||||
|
SetDialogTitle(DLG_ASK_YESNO, "Attenzione" );
|
||||||
|
if AskYesNo( szTmp, NO ) then
|
||||||
|
nPrimaInst = 2;
|
||||||
|
else
|
||||||
|
nPrimaInst = 1;
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
if nPrimaInst = 2 then
|
||||||
|
_CambiaDirectory( ); // richiede di cambiare directory o confermare la sovrascrittura
|
||||||
|
endif;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _PreviewBatch( )
|
||||||
|
NUMBER nFile, nGoOut, nRet, pList, nFlag, nCurFiles, nNr;
|
||||||
|
STRING szAuto, szConf, szWinIni, szTemp, szTemp1;
|
||||||
|
begin
|
||||||
|
_CreateDLG( "DLG_BATCH", 110, HWND_INSTALL );
|
||||||
|
szAuto = "";
|
||||||
|
szConf = "";
|
||||||
|
szWinIni = "";
|
||||||
|
if (szOSName != "3.95") then
|
||||||
|
szAuto = szAuto + STR_SHARE;
|
||||||
|
szAuto = szAuto + "\n";
|
||||||
|
endif;
|
||||||
|
szAuto = szAuto + STR_TEMP;
|
||||||
|
szAuto = szAuto + "\n";
|
||||||
|
if bProgrammiServer then
|
||||||
|
szAuto = szAuto + "SET PREFPATH=" + DEFAULT_LOCALPATH + "\\PREFIX.TXT";
|
||||||
|
szAuto = szAuto + "\n";
|
||||||
|
endif;
|
||||||
|
szTemp = "C:\RESET_HL.EXE";
|
||||||
|
szAuto = szAuto + szTemp;
|
||||||
|
szAuto = szAuto + "\n";
|
||||||
|
EzConfigGetValue( "FILES", nCurFiles );
|
||||||
|
if nCurFiles < NUM_FILES_IN_CONFIG then
|
||||||
|
szConf = szConf + "FILES=";
|
||||||
|
NumToStr( szTemp, NUM_FILES_IN_CONFIG );
|
||||||
|
szConf = szConf + szTemp;
|
||||||
|
szConf = szConf + "\n";
|
||||||
|
endif;
|
||||||
|
szTemp1 = WINDIR ^ "WIN.INI";
|
||||||
|
nNr = GetProfString(szTemp1,"FaxMan,EASYFAX","Application",szTemp);
|
||||||
|
if (nNr < 0 || szTemp = "") then
|
||||||
|
szWinIni = "[ports]\n";
|
||||||
|
szWinIni = szWinIni + "EASYFAX=\n";
|
||||||
|
szWinIni = szWinIni + "[FaxMan,EASYFAX]\n";
|
||||||
|
szTemp = szAppPath+"bafax.exe";
|
||||||
|
szWinIni = szWinIni + "Application=" + szTemp + "\n";
|
||||||
|
szWinIni = szWinIni + "[PrinterPorts]\n";
|
||||||
|
szWinIni = szWinIni + "FaxMan=fmfaxdrv,EASYFAX,5,5\n";
|
||||||
|
szWinIni = szWinIni + "[devices]\n";
|
||||||
|
szWinIni = szWinIni + "FaxMan=fmfaxdrv,EASYFAX\n";
|
||||||
|
endif;
|
||||||
|
if szAuto = "" then
|
||||||
|
szAuto = "Nessuna modifica.";
|
||||||
|
endif;
|
||||||
|
if szConf = "" then
|
||||||
|
szConf = "Nessuna modifica.";
|
||||||
|
endif;
|
||||||
|
if szWinIni = "" then
|
||||||
|
szWinIni = "Nessuna modifica.";
|
||||||
|
endif;
|
||||||
|
nGoOut = FALSE;
|
||||||
|
while nGoOut = FALSE
|
||||||
|
nRet = WaitOnDialog( "DLG_BATCH");
|
||||||
|
if ( nRet = DLG_ERR ) then
|
||||||
|
_Attenzione( STR_ERR_DLG );
|
||||||
|
nGoOut = TRUE;
|
||||||
|
endif;
|
||||||
|
switch( nRet )
|
||||||
|
case DLG_INIT:
|
||||||
|
CtrlSetText( "DLG_BATCH", 10, szAuto );
|
||||||
|
CtrlSetText( "DLG_BATCH", 20, szConf );
|
||||||
|
CtrlSetText( "DLG_BATCH", 30, szWinIni );
|
||||||
|
case IDD_CONTINUE:
|
||||||
|
nRet = TRUE;
|
||||||
|
nGoOut = TRUE;
|
||||||
|
case 2:
|
||||||
|
nRet = FALSE;
|
||||||
|
nGoOut = TRUE;
|
||||||
|
case DLG_CLOSE:
|
||||||
|
nGoOut = TRUE;
|
||||||
|
endswitch;
|
||||||
|
endwhile;
|
||||||
|
EndDialog( "DLG_BATCH" );
|
||||||
|
ReleaseDialog( "DLG_BATCH" );
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// Funzione che mostra un dialog box di benvenuto
|
||||||
|
function _Benvenuto( )
|
||||||
|
NUMBER nGoOut, nRet, nHwnd;
|
||||||
|
begin
|
||||||
|
_CreateDLG( "DLG_WELCOME", DLG_WELCOME, HWND_INSTALL );
|
||||||
|
nGoOut = FALSE;
|
||||||
|
while nGoOut = FALSE
|
||||||
|
nRet = WaitOnDialog( "DLG_WELCOME");
|
||||||
|
if ( nRet = DLG_ERR ) then
|
||||||
|
_Attenzione( STR_ERR_DLG );
|
||||||
|
nGoOut = TRUE;
|
||||||
|
endif;
|
||||||
|
switch( nRet )
|
||||||
|
case IDD_EXIT:
|
||||||
|
_ExitOnConfirm( );
|
||||||
|
case IDD_CONTINUE:
|
||||||
|
nGoOut = TRUE;
|
||||||
|
case DLG_CLOSE:
|
||||||
|
nGoOut = TRUE;
|
||||||
|
endswitch;
|
||||||
|
endwhile;
|
||||||
|
EndDialog( "DLG_WELCOME" );
|
||||||
|
ReleaseDialog( "DLG_WELCOME" );
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _CopiaRESETHL( )
|
||||||
|
begin
|
||||||
|
VarSave(SRCTARGETDIR);
|
||||||
|
TARGETDIR = "C:\\";
|
||||||
|
SRCDIR = szAppPath;
|
||||||
|
CopyFile( "RESET_HL.EXE", "RESET_HL.EXE" );
|
||||||
|
VarRestore(SRCTARGETDIR);
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _RemoveHDLOCK( )
|
||||||
|
begin
|
||||||
|
// HARDLOCK.VXD e' necessario solo su Win95,
|
||||||
|
// si è scoperto che è sempre necessario
|
||||||
|
// if (szOSName != "3.95") then
|
||||||
|
// DeleteFile("HARDLOCK.VXD");
|
||||||
|
// endif;
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _ForceAttrib4Dll( )
|
||||||
|
begin
|
||||||
|
// Forza gli attributi di alcuni file per evitare che siano a sola lettura:
|
||||||
|
szTmp = szAppPath ^ "HARDLOCK.FLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "AGA.FLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "AGALIGHT.FLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "FOXW2600.ESL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "AL100.DLL"; // Da cambiare se cambia versione
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "CB5.DLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "DEVPRN.DLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "DLLGFM.DLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "MSAES110.DLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "MSAJT112.DLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "MSAJT200.DLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "VBDB300.DLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "VBRUN300.DLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
szTmp = szAppPath ^ "XBS200.DLL";
|
||||||
|
_Cambia_Attributi(szTmp);
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// chiede conferma per l'uscita ed esce
|
||||||
|
function _ExitOnConfirm( )
|
||||||
|
begin
|
||||||
|
if ! _Verifica( "Desideri veramente terminare la installazione ?" ) then
|
||||||
|
return;
|
||||||
|
endif;
|
||||||
|
_ShowExitDialog( DLG_EXITQUIT );
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _FineInstallazione( )
|
||||||
|
STRING szRunProgram[ _MAX_LENGTH ];
|
||||||
|
LONG lGoOut, lRet, lHwnd, lFlag;
|
||||||
|
begin
|
||||||
|
_CreateDLG( "DLG098", ID_DLG098, HWND_INSTALL );
|
||||||
|
lGoOut = FALSE;
|
||||||
|
while lGoOut = FALSE
|
||||||
|
lRet = WaitOnDialog("DLG098");
|
||||||
|
if ( lRet = DLG_ERR ) then
|
||||||
|
_Attenzione( STR_ERR_DLG );
|
||||||
|
lGoOut = TRUE;
|
||||||
|
endif;
|
||||||
|
switch( lRet )
|
||||||
|
case DLG_INIT:
|
||||||
|
lHwnd = CmdGetHwndDlg( "DLG098" );
|
||||||
|
if nSystemFileModified then
|
||||||
|
CtrlSetText( "DLG098", ID_DLG098_RUN, "Riavvia il computer" );
|
||||||
|
CtrlSetText( "DLG098", 1004, "I files di sistema sono cambiati.\nOccorrera' riavviare il computer perche' le modifiche siano attive." );
|
||||||
|
endif;
|
||||||
|
case ID_DLG098_RUN:
|
||||||
|
lFlag = FALSE;
|
||||||
|
lGoOut = TRUE;
|
||||||
|
case ID_DLG098_EXIT:
|
||||||
|
lFlag = TRUE;
|
||||||
|
lGoOut = TRUE;
|
||||||
|
case DLG_CLOSE:
|
||||||
|
lGoOut = TRUE;
|
||||||
|
endswitch;
|
||||||
|
endwhile;
|
||||||
|
EndDialog( "DLG098" );
|
||||||
|
ReleaseDialog( "DLG098" );
|
||||||
|
if ( lFlag = FALSE ) then
|
||||||
|
if nSystemFileModified then
|
||||||
|
System( SYS_BOOTMACHINE );
|
||||||
|
else
|
||||||
|
// ChangeDirectory(szAppPath);
|
||||||
|
// szRunProgram = szAppPath ^ "\\BA1.EXE -0 C";
|
||||||
|
// LaunchApp( szRunProgram , "" );
|
||||||
|
endif;
|
||||||
|
return TRUE;
|
||||||
|
else
|
||||||
|
return FALSE;
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function _CanOverwrite( )
|
||||||
|
BOOL bRetv;
|
||||||
|
NUMBER nTemp;
|
||||||
|
STRING szPath[256],szTemp[80],szJunk[80];
|
||||||
|
begin
|
||||||
|
bRetv=FALSE;
|
||||||
|
szPath=szDataPath ^ "\\CONFIG";
|
||||||
|
szTemp=szPath ^ DATATYPE_FILE;
|
||||||
|
if ( Is( FILE_EXISTS, szTemp ) ) then
|
||||||
|
OpenFileMode( FILE_MODE_NORMAL );
|
||||||
|
OpenFile( nTmp, szPath, DATATYPE_FILE);
|
||||||
|
if GetLine( nTmp, szTemp ) = 0 then
|
||||||
|
if szTemp = INST_DEMO then
|
||||||
|
bRetv=_Verifica("Il direttorio indicato contiene dati \ndi una precedente installazione demo.\n\nConfermi la sovrascrittura");
|
||||||
|
|
||||||
|
elseif szTemp = INST_AUTOFORM then
|
||||||
|
if sInstType = INST_ENVIRONMENT || sInstType = INST_AUTOFORM then
|
||||||
|
bRetv=_Verifica("Il direttorio indicato contiene i dati \ndi una precedente installazione di autoformazione.\n\nConfermi la sovrascrittura");
|
||||||
|
else
|
||||||
|
MessageBox("Impossibile scrivere i dati nel direttorio indicato.\nIl direttorio contiene gia' i dati di una precedente installazione \ndi autoformazione.",SEVERE);
|
||||||
|
endif;
|
||||||
|
|
||||||
|
elseif szTemp = INST_ENVIRONMENT then
|
||||||
|
MessageBox("Impossibile scrivere i dati nel direttorio indicato.\nIl direttorio contiene gia' i dati di una precedente installazione.",SEVERE);
|
||||||
|
endif;
|
||||||
|
else
|
||||||
|
MessageBox( "Il direttorio indicato contiene dati \ndi una precedente installazione.",SEVERE);
|
||||||
|
endif;
|
||||||
|
CloseFile( nTmp );
|
||||||
|
else
|
||||||
|
MessageBox( "Impossibile installare. Il direttorio indicato contiene dati \ndi una precedente installazione.",SEVERE);
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return bRetv;
|
||||||
|
end;
|
||||||
163
support/interni/src/aga/setup4.rul
Executable file
163
support/interni/src/aga/setup4.rul
Executable file
@ -0,0 +1,163 @@
|
|||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// UTILITY VARIE
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _Errore( szErrorString )
|
||||||
|
begin
|
||||||
|
SetDialogTitle( DLG_MSG_SEVERE, "Errore fatale!" );
|
||||||
|
MessageBox( szErrorString, SEVERE );
|
||||||
|
_ShowExitDialog( DLG_EXITFAILURE );
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _Attenzione( szWarningString )
|
||||||
|
begin
|
||||||
|
SetDialogTitle( DLG_MSG_WARNING, "Attenzione!" );
|
||||||
|
MessageBox( szWarningString, WARNING );
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _Verifica( szQuestion )
|
||||||
|
NUMBER nRet;
|
||||||
|
begin
|
||||||
|
SetDialogTitle( DLG_ASK_YESNO, "Verifica" );
|
||||||
|
nRet = AskYesNo( szQuestion, NO );
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _MostraModelessDialog( )
|
||||||
|
NUMBER nHwnd, nRet, nMess;
|
||||||
|
begin
|
||||||
|
_CreateDLG ( "DLG_PLEASEWAIT", DLG_PLEASEWAIT, HWND_INSTALL );
|
||||||
|
nMess = WaitOnDialog( "DLG_PLEASEWAIT" );
|
||||||
|
if ( nMess = DLG_ERR ) then
|
||||||
|
_Attenzione( STR_ERR_DLG );
|
||||||
|
endif;
|
||||||
|
nHwnd = CmdGetHwndDlg( "DLG_PLEASEWAIT" );
|
||||||
|
nRet = ShowWindow ( nHwnd, 1 );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
_Attenzione( "Errore in ShowWindow" );
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _SettaModelessDialog( szText )
|
||||||
|
begin
|
||||||
|
CtrlSetText( "DLG_PLEASEWAIT", IDD_MLTEXT, szText );
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _NascondiModelessDialog( )
|
||||||
|
begin
|
||||||
|
EndDialog( "DLG_PLEASEWAIT" );
|
||||||
|
ReleaseDialog( "DLG_PLEASEWAIT" );
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// Funzione che termina se la quantità di memoria è minore di quella richiesta
|
||||||
|
function _RichiediMemoria( nReq )
|
||||||
|
NUMBER nExMem;
|
||||||
|
STRING szExMem[_MAX_LENGTH];
|
||||||
|
begin
|
||||||
|
GetSystemInfo( EXTENDEDMEMORY, nExMem, szExMem );
|
||||||
|
if nReq >= nExMem then
|
||||||
|
_Errore( STR_NOTENUFEXMEM );
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _NToStringKB( nKB, szValue )
|
||||||
|
begin
|
||||||
|
NumToStr( szValue, nKB );
|
||||||
|
szValue = szValue + " Kb";
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _DeSlash( szSource, szDest )
|
||||||
|
NUMBER nLen;
|
||||||
|
STRING szTemp;
|
||||||
|
begin
|
||||||
|
nLen = StrLength( szSource );
|
||||||
|
StrSub( szTemp, szSource, nLen - 1, 1 );
|
||||||
|
if szTemp = "\\" then
|
||||||
|
StrSub( szDest, szSource, 0, nLen - 1 );
|
||||||
|
else
|
||||||
|
szDest = szSource;
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _CercaFileOvunque( szNomeFile, szRet )
|
||||||
|
NUMBER nRet1, nRet2, listDirs, listDrive;
|
||||||
|
STRING szDir[_MAX_LENGTH], szMLText[_MAX_LENGTH], szDrive[_MAX_LENGTH];
|
||||||
|
begin
|
||||||
|
_MostraModelessDialog( );
|
||||||
|
listDrive = ListCreate( STRINGLIST );
|
||||||
|
if ( listDrive = LIST_NULL ) then
|
||||||
|
_Errore( "Errore fatale in ListCreate(listDrive)" );
|
||||||
|
_NascondiModelessDialog( );
|
||||||
|
endif;
|
||||||
|
if ( GetValidDrivesList( listDrive, FIXED_DRIVE, 0 ) < 0 ) then
|
||||||
|
_Errore( "Errore fatale in GetValidDriveList" );
|
||||||
|
_NascondiModelessDialog( );
|
||||||
|
endif;
|
||||||
|
nRet1 = ListGetFirstString( listDrive, szDrive );
|
||||||
|
while ( nRet1 != END_OF_LIST )
|
||||||
|
szMLText = "Verifica di una precedente installazione sul drive " + szDrive + ": ...";
|
||||||
|
// szMLText = szMLText;
|
||||||
|
_SettaModelessDialog( szMLText );
|
||||||
|
szDrive = szDrive + ":\\";
|
||||||
|
if ( FindAllFiles( szDrive, szNomeFile, szRet, RESET ) = 0 ) then
|
||||||
|
_NascondiModelessDialog( );
|
||||||
|
return;
|
||||||
|
endif;
|
||||||
|
nRet1 = ListGetNextString( listDrive, szDrive );
|
||||||
|
endwhile;
|
||||||
|
ListDestroy( listDrive );
|
||||||
|
_NascondiModelessDialog( );
|
||||||
|
szRet = "";
|
||||||
|
return;
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _DisattivaScreenSaver( )
|
||||||
|
begin
|
||||||
|
bSCREENSAVER = _WinSubCheckScreenSaver( );
|
||||||
|
_WinSubScreenSaver( FALSE );
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _RiattivaScreenSaver( )
|
||||||
|
begin
|
||||||
|
if bSCREENSAVER then
|
||||||
|
_WinSubScreenSaver( TRUE );
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// Reperisce il nome del sistema operativo
|
||||||
|
function _GetOSName( )
|
||||||
|
NUMBER nResult;
|
||||||
|
begin
|
||||||
|
VarSave(SRCTARGETDIR);
|
||||||
|
TARGETDIR = WINDIR ^ "SYSTEM";
|
||||||
|
GetSystemInfo(WINMAJOR,nResult,szOSName);
|
||||||
|
VarRestore(SRCTARGETDIR);
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _CreateDLG( szDLG, iDLG_ID, lHwnd )
|
||||||
|
STRING szSupportDLL [ _MAX_LENGTH ];
|
||||||
|
begin
|
||||||
|
szSupportDLL = SUPPORTDIR ^ "\\PSETUP.DLL";
|
||||||
|
if ( DefineDialog( szDLG, 0 , szSupportDLL, iDLG_ID, "", HWND_DESKTOP, lHwnd, DLG_MSG_STANDARD | DLG_CENTERED ) ) then
|
||||||
|
_Errore( "Errore interno. Impossibile creare una finestra di dialogo.\nInstallazione terminata." );
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _Cambia_Attributi(szS0)
|
||||||
|
STRING szS1[_MAX_LENGTH];
|
||||||
|
begin
|
||||||
|
if ( Is( FILE_EXISTS, szS0 ) ) then
|
||||||
|
if (SetFileInfo(szS0,FILE_ATTRIBUTE,FILE_ATTR_NORMAL|FILE_ATTR_ARCHIVED,"") < 0) then
|
||||||
|
szS1 = "Impossibile cambiare i permessi ad " ^ szS0;
|
||||||
|
MessageBox(szS1,WARNING);
|
||||||
|
endif;
|
||||||
|
endif;
|
||||||
|
end;
|
||||||
|
|
||||||
917
support/interni/src/aga/winsub.rul
Executable file
917
support/interni/src/aga/winsub.rul
Executable file
@ -0,0 +1,917 @@
|
|||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// InstallSHIELD Sample Files
|
||||||
|
// Copyright (c) 1990-1994, Stirling Technologies, Inc. All Rights Reserved
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// FILE: WINSUB.RUL
|
||||||
|
//
|
||||||
|
// PURPOSE:
|
||||||
|
// This script interfaces to several Windows APIs.
|
||||||
|
// For example, WinSubIsWindow (hWnd) interfaces to Windows
|
||||||
|
// IsWindow API. Please refer to IsWindow API in Windows
|
||||||
|
// Programmer's Manual for the detailed description.
|
||||||
|
//
|
||||||
|
// RESOURCE: NONE
|
||||||
|
//
|
||||||
|
// RELATED FILES: WINSUB.H
|
||||||
|
//
|
||||||
|
// MAIN FUNCTION CALLS:
|
||||||
|
// _WinSubGetModuleHandle ( szModule );
|
||||||
|
// Retrieves the handle of the specified module.
|
||||||
|
//
|
||||||
|
// _WinSubShowCursor ( nShow );
|
||||||
|
// This function shows or hides the cursor.
|
||||||
|
//
|
||||||
|
// _WinSubShowWindow ( hWnd, nShow );
|
||||||
|
// This function sets the given window's visibility state.
|
||||||
|
//
|
||||||
|
// _WinSubFocusControl ( hWnd, nBtnId );
|
||||||
|
// This function sets the input focus to the given child window.
|
||||||
|
// all subsequent keyboard input is directed to this child window.
|
||||||
|
// The child window, if any, that previously had the input focus
|
||||||
|
// loses it.
|
||||||
|
//
|
||||||
|
// _WinSubFocusWindow ( hWnd );
|
||||||
|
// This function sets the input focus to the given window.
|
||||||
|
// all subsequent keyboard input is directed to this window. The
|
||||||
|
// window, if any, that previously had the input focus loses it.
|
||||||
|
//
|
||||||
|
// _WinSubEnableControl ( hWnd, nBtnID, nEnable );
|
||||||
|
// This function enables or disables mouse and keyboard input to
|
||||||
|
// the given window or control. When input is disabled, the window
|
||||||
|
// ignores input such as mouse clicks and key presses. When input
|
||||||
|
// is enabled, the window processes all input.
|
||||||
|
//
|
||||||
|
// _WinSubGetChildWindow ( hWnd, nBtnID );
|
||||||
|
// This function retrieves the handle of a control that is in the
|
||||||
|
// given dialog box.
|
||||||
|
//
|
||||||
|
// _WinSubEnableWindow ( INT, INT );
|
||||||
|
// This function enables or disables mouse and keyboard input to
|
||||||
|
// the given window or control. When input is disabled, the window
|
||||||
|
// ignores input such as mouse clicks and key presses. When input
|
||||||
|
// is enabled, the window processes all input.
|
||||||
|
//
|
||||||
|
// _WinSubSetWindowTitle ( hWnd, szText );
|
||||||
|
// This function sets the given window's title to the specified text.
|
||||||
|
//
|
||||||
|
// _WinSubCenterWindow ( hWnd );
|
||||||
|
// This function changes the position and dimensions to be the center
|
||||||
|
// of the screen.
|
||||||
|
//
|
||||||
|
// _WinSubIsWindow ( hWnd );
|
||||||
|
// This function determines whether the given window handle is valid.
|
||||||
|
//
|
||||||
|
// _WinSubGetWindowRect ( hWnd, nOX, nOY, nSX, nSY );
|
||||||
|
// This function retrieves the dimensions of the bounding rectangle
|
||||||
|
// of a given window.
|
||||||
|
//
|
||||||
|
// _WinSubGetClientRect ( hWnd, nOX, nOY, nSX, nSY )
|
||||||
|
// This function retrieves the client coordinates of a window's client
|
||||||
|
// area.
|
||||||
|
//
|
||||||
|
// _WinSubSetWindowPos ( hWnd, nNX, nNY, nSX, nSY, sFlags )
|
||||||
|
// This function changes the size, position, and Z-order of child,
|
||||||
|
// pop-up, and top-level windows.
|
||||||
|
//
|
||||||
|
// _WinSubMoveWindow ( hWnd, nNX, nNY, nSX, nSY, sFlags )
|
||||||
|
// This function changes the position and dimensions of a window.
|
||||||
|
//
|
||||||
|
// _WinSubPostMessage ( hWnd, nCmd, sParam1, lParam2 )
|
||||||
|
// This function posts a message in a window's message queue and
|
||||||
|
// then returns without waiting for the corresponding window to process
|
||||||
|
// the message.
|
||||||
|
//
|
||||||
|
// _WinSubScreenSaver ( TurnOnOff );
|
||||||
|
// This function checks to see the global variable SCREENSAVER. If it
|
||||||
|
// is true then sets the state of the screen saver otherwise does nothing.
|
||||||
|
//
|
||||||
|
// _WinSubCheckScreenSaver ( )
|
||||||
|
// This function sets a bool value SCREENSAVER global variable
|
||||||
|
// that indicates whether a screen saver is on or off.
|
||||||
|
//
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS
|
||||||
|
// szModules specifies module name to be tested.
|
||||||
|
//
|
||||||
|
// DESCRIPTION
|
||||||
|
// The routine returns 0 if module is not found, otherwise return -1.
|
||||||
|
//
|
||||||
|
// PURPOSE
|
||||||
|
// Retrieves the handle of the specified module.
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
|
||||||
|
function _WinSubGetModuleHandle ( szModule )
|
||||||
|
|
||||||
|
STRING szString [255];
|
||||||
|
NUMBER hInst;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Retrieve module handle
|
||||||
|
hInst = GetModuleHandle (szModule);
|
||||||
|
|
||||||
|
if ( hInst = -1 ) then
|
||||||
|
_WinSubErrDLLFunc ( "GetModuleHandle" );
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
hInst = hInst & 0x0000FFFF;
|
||||||
|
|
||||||
|
if (hInst = 0) then
|
||||||
|
return 0;
|
||||||
|
else
|
||||||
|
return 1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETER:
|
||||||
|
// nShow specifies whether the display count to be increased
|
||||||
|
// or decreased. The display count is increased if nShow is
|
||||||
|
// nonzero. Otherwise, it is decreased. The cusor is displayed
|
||||||
|
// only if the display count is greater than or equal to zero.
|
||||||
|
// PURPOSE
|
||||||
|
// This function shows or hides the cursor.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubShowCursor ( nShow )
|
||||||
|
|
||||||
|
NUMBER nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
// Check if the given window handle is valid?
|
||||||
|
nRet = ShowCursor ( nShow );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "ShowCursor" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
// Need to mark out the higher 2 bytes
|
||||||
|
nRet = nRet & 0x0000FFFF;
|
||||||
|
if ( nRet != 0 ) then
|
||||||
|
nRet = 1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// hWnd specifies the window
|
||||||
|
// nShow specifies how the window is to be shown which
|
||||||
|
// supports all SWP_* flags under Windows.
|
||||||
|
// PURPOSE
|
||||||
|
// This function sets the given window's visibility state.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubShowWindow ( hWnd, nShow )
|
||||||
|
|
||||||
|
NUMBER nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
// Check if the given window handle is valid?
|
||||||
|
nRet = ShowWindow ( hWnd, nShow );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "ShowWindow" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
// Need to mark out the higher 2 bytes
|
||||||
|
nRet = nRet & 0x0000FFFF;
|
||||||
|
if ( nRet != 0 ) then
|
||||||
|
nRet = 1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// hWnd specifies the window or the dialogbox.
|
||||||
|
// nBtnId specifies the identifier of the control.
|
||||||
|
// PURPOSE
|
||||||
|
// This function sets the input focus to the given child window.
|
||||||
|
// all subsequent keyboard input is directed to this child window.
|
||||||
|
// The child window, if any, that previously had the input focus
|
||||||
|
// loses it.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubFocusControl ( hWnd, nBtnID )
|
||||||
|
|
||||||
|
INT hCtrl;
|
||||||
|
INT nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Retrieve child window handle
|
||||||
|
hCtrl = _WinSubGetChildWindow ( hWnd, nBtnID );
|
||||||
|
if ( hCtrl <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Enable/disable the window
|
||||||
|
nRet = _WinSubFocusWindow ( hCtrl );
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETER:
|
||||||
|
// hWnd specifies the window
|
||||||
|
// PURPOSE
|
||||||
|
// This function sets the input focus to the given window.
|
||||||
|
// all subsequent keyboard input is directed to this window. The
|
||||||
|
// window, if any, that previously had the input focus loses it.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubFocusWindow ( hWnd )
|
||||||
|
|
||||||
|
INT nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Check if the given window handle is valid?
|
||||||
|
nRet = SetFocus ( hWnd );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "SetFocus" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
// Need to mark out the higher 2 bytes
|
||||||
|
nRet = nRet & 0x0000FFFF;
|
||||||
|
if ( nRet != 0 ) then
|
||||||
|
nRet = 1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// hWnd specifies the window or the dialogbox.
|
||||||
|
// nBtnID specifies the identifier of the control.
|
||||||
|
// nEnable specifies to enable or to disable the control.
|
||||||
|
// PURPOSE
|
||||||
|
// This function enables or disables mouse and keyboard input to
|
||||||
|
// the given window or control. When input is disabled, the window
|
||||||
|
// ignores input such as mouse clicks and key presses. When input
|
||||||
|
// is enabled, the window processes all input.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubEnableControl ( hWnd, nBtnID, nEnable )
|
||||||
|
|
||||||
|
INT hCtrl;
|
||||||
|
INT nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Retrieve child window handle
|
||||||
|
hCtrl = _WinSubGetChildWindow ( hWnd, nBtnID );
|
||||||
|
if ( hCtrl <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Enable/disable the window
|
||||||
|
nRet = _WinSubEnableWindow ( hCtrl, nEnable );
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// hWnd specifies the window or the dialogbox.
|
||||||
|
// nBtnID specifies the identifier of the child window.
|
||||||
|
// PURPOSE
|
||||||
|
// This function retrieves the handle of a control that is in the
|
||||||
|
// given dialog box.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubGetChildWindow ( hWnd, nBtnID )
|
||||||
|
|
||||||
|
INT hCtrl;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Check if the given window handle is valid?
|
||||||
|
hCtrl = GetDlgItem ( hWnd, nBtnID );
|
||||||
|
if ( hCtrl = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "GetDlgItem" );
|
||||||
|
hCtrl = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
// Need to mark out the higher 2 bytes
|
||||||
|
hCtrl = hCtrl & 0x0000FFFF;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return hCtrl;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// hWnd specifies the window.
|
||||||
|
// nBtnID specifies to enable or to disable the window.
|
||||||
|
// PURPOSE
|
||||||
|
// This function enables or disables mouse and keyboard input to
|
||||||
|
// the given window or control. When input is disabled, the window
|
||||||
|
// ignores input such as mouse clicks and key presses. When input
|
||||||
|
// is enabled, the window processes all input.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubEnableWindow ( hWnd, nEnable )
|
||||||
|
|
||||||
|
SHORT sFlag;
|
||||||
|
INT nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Setup flag
|
||||||
|
if ( nEnable = 0 ) then
|
||||||
|
sFlag = 0;
|
||||||
|
else
|
||||||
|
sFlag = 1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
|
||||||
|
// Check if the given window handle is valid?
|
||||||
|
nRet = EnableWindow ( hWnd, sFlag );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "Enable" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
// Need to mark out the higher 2 bytes
|
||||||
|
nRet = nRet & 0x0000FFFF;
|
||||||
|
if ( nRet != 0 ) then
|
||||||
|
nRet = 1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// hWnd specifies the window.
|
||||||
|
// szText specifies the new caption text.
|
||||||
|
// PURPOSE
|
||||||
|
// This function sets the given window's title to the specified text.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubSetWindowTitle ( hWnd, szText )
|
||||||
|
|
||||||
|
INT nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
|
||||||
|
// Set window title
|
||||||
|
nRet = _WinSubSetWindowText ( hWnd, szText );
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETER:
|
||||||
|
// hWnd is the window or the dialogbox to be centered.
|
||||||
|
// PURPOSE
|
||||||
|
// This function changes the position and dimensions to be the center
|
||||||
|
// of the screen.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubCenterWindow ( hWnd )
|
||||||
|
|
||||||
|
INT nRet;
|
||||||
|
INT nOX, nOY, nSX, nSY;
|
||||||
|
INT nNX, nNY;
|
||||||
|
SHORT sFlags;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// ## remove this line when hide/show dialogbox are supported
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Retrieve window rect
|
||||||
|
_WinSubGetWindowRect ( hWnd, nOX, nOY, nSX, nSY );
|
||||||
|
|
||||||
|
// Retrieve screen extent
|
||||||
|
GetExtents ( nNX, nNY );
|
||||||
|
|
||||||
|
// Calculate new orig
|
||||||
|
nSX = nSX - nOX + 1;
|
||||||
|
nSY = nSY - nOY + 1;
|
||||||
|
nNX = ( nNX - nSX ) / 2;
|
||||||
|
nNY = ( nNY - nSY ) / 2;
|
||||||
|
|
||||||
|
// Move the window
|
||||||
|
sFlags = 1;
|
||||||
|
nRet = _WinSubMoveWindow ( hWnd, nNX, nNY, nSX, nSY, sFlags );
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// hWnd specifies the window.
|
||||||
|
// szText specifies the new caption text.
|
||||||
|
// PURPOSE
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubSetWindowText ( hWnd, szText )
|
||||||
|
|
||||||
|
INT nRet;
|
||||||
|
POINTER pszText;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Check if the given window handle is valid?
|
||||||
|
pszText = AddressString ( szText );
|
||||||
|
nRet = SetWindowText ( hWnd, pszText );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "SetWindowText" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
nRet = 0 ;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETER:
|
||||||
|
// hWnd is the window or the dialogbox to be centered.
|
||||||
|
// PURPOSE
|
||||||
|
// This function determines whether the given window handle is valid.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubIsWindow ( hWnd )
|
||||||
|
|
||||||
|
INT nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check if the given window handle is valid?
|
||||||
|
nRet = IsWindow ( hWnd );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "IsWindow" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
// Need to mark out the higher 2 bytes
|
||||||
|
nRet = nRet & 0x0000FFFF;
|
||||||
|
if ( nRet != 0 ) then
|
||||||
|
nRet = 1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// (INPUT)
|
||||||
|
// hWnd specifies the window.
|
||||||
|
// (OUTPUT)
|
||||||
|
// nOX receives the X-coord. of the upper-left corner.
|
||||||
|
// nOY receives the Y-coord. of the upper-left corner.
|
||||||
|
// nSX receives the X-coord. of the lower-right corner.
|
||||||
|
// nSY receives the Y-coord. of the lower-right corner.
|
||||||
|
// PURPOSE
|
||||||
|
// This function retrieves the dimensions of the bounding rectangle
|
||||||
|
// of a given window.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubGetWindowRect ( hWnd, nOX, nOY, nSX, nSY )
|
||||||
|
|
||||||
|
NUMBER nRet;
|
||||||
|
POINTER pRect;
|
||||||
|
WINRECTSTRUCT rect;
|
||||||
|
STRING szTemp [MAX_WINSUB_TMPSTRING_LENGTH];
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Retrieve the address of the structure
|
||||||
|
pRect = AddressStruct ( rect );
|
||||||
|
|
||||||
|
// Retrieve window rect
|
||||||
|
nRet = GetWindowRect ( hWnd, pRect );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
// Can not locate the function?
|
||||||
|
_WinSubErrDLLFunc ( "GetWindowRect" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
// Separate each field of the rect structure
|
||||||
|
StructGet ( rect, "WINRECTSTRUCT", "origX", nOX, szTemp );
|
||||||
|
StructGet ( rect, "WINRECTSTRUCT", "origY", nOY, szTemp );
|
||||||
|
StructGet ( rect, "WINRECTSTRUCT", "relX" , nSX, szTemp );
|
||||||
|
StructGet ( rect, "WINRECTSTRUCT", "relY" , nSY, szTemp );
|
||||||
|
nRet = 0;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// (INPUT)
|
||||||
|
// hWnd specifies the window.
|
||||||
|
// (OUTPUT)
|
||||||
|
// nOX receives 0.
|
||||||
|
// nOY receives 0.
|
||||||
|
// nSX receives the width of the window.
|
||||||
|
// nSY receives the height of the window.
|
||||||
|
// PURPOSE
|
||||||
|
// This function retrieves the client coordinates of a window's client
|
||||||
|
// area.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubGetClientRect ( hWnd, nOX, nOY, nSX, nSY )
|
||||||
|
|
||||||
|
NUMBER nRet;
|
||||||
|
POINTER pRect;
|
||||||
|
WINRECTSTRUCT rect;
|
||||||
|
STRING szTemp [MAX_WINSUB_TMPSTRING_LENGTH];
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Retrieve the address of the structure
|
||||||
|
pRect = AddressStruct ( rect );
|
||||||
|
|
||||||
|
// Retrieve window rect
|
||||||
|
nRet = GetClientRect ( hWnd, pRect );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
// Can not locate the function?
|
||||||
|
_WinSubErrDLLFunc ( "GetClientRect" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
// Separate each field of the rect structure
|
||||||
|
StructGet ( rect, "WINRECTSTRUCT", "origX", nOX, szTemp );
|
||||||
|
StructGet ( rect, "WINRECTSTRUCT", "origY", nOY, szTemp );
|
||||||
|
StructGet ( rect, "WINRECTSTRUCT", "relX" , nSX, szTemp );
|
||||||
|
StructGet ( rect, "WINRECTSTRUCT", "relY" , nSY, szTemp );
|
||||||
|
nRet = 0;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// hWnd specifies the window.
|
||||||
|
// nNX specifies X-coord. of the new upper-left corner.
|
||||||
|
// nNY specifies Y-coord. of the new upper-left corner.
|
||||||
|
// nSX specifies the width of the window.
|
||||||
|
// nSY specifies the height of the window.
|
||||||
|
// sFlags supports all SWP_* available in SetWindowPos API.
|
||||||
|
// PURPOSE
|
||||||
|
// This function changes the size, position, and Z-order of child,
|
||||||
|
// pop-up, and top-level windows.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubSetWindowPos ( hWnd, nNX, nNY, nSX, nSY, sFlags )
|
||||||
|
|
||||||
|
NUMBER nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Check window handle
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
// Move window
|
||||||
|
nRet = SetWindowPos ( hWnd, 0, nNX, nNY, nSX, nSY, sFlags );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "SetWindowPos" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
nRet = 0;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// hWnd specifies the window.
|
||||||
|
// nNX specifies X-coord. of the new upper-left corner.
|
||||||
|
// nNY specifies Y-coord. of the new upper-left corner.
|
||||||
|
// nSX specifies the width of the window.
|
||||||
|
// nSY specifies the height of the window.
|
||||||
|
// sFlags specifies whether to redraw the window.
|
||||||
|
// PURPOSE
|
||||||
|
// This function changes the position and dimensions of a window.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubMoveWindow ( hWnd, nNX, nNY, nSX, nSY, sFlags )
|
||||||
|
|
||||||
|
NUMBER nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
#ifdef CHECKWINDOW=1
|
||||||
|
if ( _WinSubIsWindow ( hWnd ) <= 0 ) then
|
||||||
|
return -1;
|
||||||
|
endif;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
// Move window
|
||||||
|
nRet = MoveWindow ( hWnd, nNX, nNY, nSX, nSY, sFlags );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "MoveWindow" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
nRet = 0;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// hWnd specifies the window.
|
||||||
|
// nCmd specifies the type of message posted.
|
||||||
|
// sParam1 specifies additional message information.
|
||||||
|
// lParam2 specifies additional message information.
|
||||||
|
// PURPOSE
|
||||||
|
// This function posts a message in a window's message queue and
|
||||||
|
// then returns without waiting for the corresponding window to process
|
||||||
|
// the message.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubPostMessage ( hWnd, nCmd, sParam1, lParam2 )
|
||||||
|
|
||||||
|
NUMBER nRet;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
// Move window
|
||||||
|
nRet = PostMessage ( hWnd, nCmd, sParam1, lParam2 );
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "PostMessage" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
nRet = 0;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// TurnOnOff Specifies whether to turn it on or off
|
||||||
|
// 1 implies TURNON
|
||||||
|
// 0 implies TURNOFF
|
||||||
|
// PURPOSE
|
||||||
|
// This function checks to see the global variable SCREENSAVER. If it
|
||||||
|
// is true then sets the state of the screen saver otherwise does nothing.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubScreenSaver ( TurnOnOff )
|
||||||
|
|
||||||
|
NUMBER nRet;
|
||||||
|
NUMBER nTemp;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
nTemp = SPIF_UPDATEINIFILE | SPIF_SENDWININICHANGE ;
|
||||||
|
|
||||||
|
if ( TurnOnOff = 1 ) then
|
||||||
|
|
||||||
|
if ( bSCREENSAVER = 1 ) then
|
||||||
|
nRet = SystemParametersInfo (
|
||||||
|
SPI_SETSCREENSAVEACTIVE,
|
||||||
|
TRUE,
|
||||||
|
NULL ,
|
||||||
|
nTemp );
|
||||||
|
endif;
|
||||||
|
|
||||||
|
|
||||||
|
elseif (TurnOnOff = 0) then
|
||||||
|
|
||||||
|
if ( bSCREENSAVER = 1 ) then
|
||||||
|
nRet = SystemParametersInfo (
|
||||||
|
SPI_SETSCREENSAVEACTIVE,
|
||||||
|
FALSE,
|
||||||
|
NULL ,
|
||||||
|
nTemp );
|
||||||
|
endif;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "ShowWindow" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
// Need to mark out the higher 2 bytes
|
||||||
|
nRet = nRet & 0x0000FFFF;
|
||||||
|
if ( nRet != 0 ) then
|
||||||
|
nRet = 1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PURPOSE:
|
||||||
|
// Check to see if the screen saver is activated if it is then set the
|
||||||
|
// global variable SCREENSAVER to 1 if it is not then set the global
|
||||||
|
// variable SCREENSAVER to 0
|
||||||
|
// PURPOSE
|
||||||
|
// This function sets a bool value SCREENSAVER global variable
|
||||||
|
// that indicates whether screen saving is on or off.
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
|
||||||
|
function _WinSubCheckScreenSaver ( )
|
||||||
|
|
||||||
|
NUMBER nRet;
|
||||||
|
NUMBER nTemp;
|
||||||
|
INT nCheckScreenSaver;
|
||||||
|
POINTER pCheckScreenSaver;
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
nTemp = SPIF_UPDATEINIFILE | SPIF_SENDWININICHANGE ;
|
||||||
|
|
||||||
|
pCheckScreenSaver = AddressNumber( nCheckScreenSaver );
|
||||||
|
|
||||||
|
nRet = SystemParametersInfo (
|
||||||
|
SPI_GETSCREENSAVEACTIVE,
|
||||||
|
0 ,
|
||||||
|
pCheckScreenSaver ,
|
||||||
|
nTemp );
|
||||||
|
|
||||||
|
// check if the ScreenSaver is on or off
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
if ( nCheckScreenSaver = TRUE ) then
|
||||||
|
|
||||||
|
return 1;
|
||||||
|
|
||||||
|
elseif ( nCheckScreenSaver = FALSE ) then
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
|
||||||
|
if ( nRet = -1 ) then
|
||||||
|
|
||||||
|
_WinSubErrDLLFunc ( "ShowWindow" );
|
||||||
|
nRet = -1;
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
// Need to mark out the higher 2 bytes
|
||||||
|
nRet = nRet & 0x0000FFFF;
|
||||||
|
if ( nRet != 0 ) then
|
||||||
|
nRet = 1;
|
||||||
|
endif;
|
||||||
|
|
||||||
|
endif;
|
||||||
|
|
||||||
|
return nRet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
// PARAMETERS:
|
||||||
|
// szDLLFuncName specifies the DLL function name which returns -1.
|
||||||
|
// PURPOSE
|
||||||
|
//
|
||||||
|
//-----------------------------------------------------------------------------
|
||||||
|
function _WinSubErrDLLFunc ( szDLLFuncName )
|
||||||
|
|
||||||
|
STRING szMsg [MAX_WINSUB_MSGSTRING_LENGTH];
|
||||||
|
|
||||||
|
begin
|
||||||
|
|
||||||
|
szMsg = "InstallSHIELD can not call DLL function: " + szDLLFuncName;
|
||||||
|
MessageBox ( szMsg, SEVERE );
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
BIN
support/interni/unzip.pif
Executable file
BIN
support/interni/unzip.pif
Executable file
Binary file not shown.
BIN
support/interni/unzip32.exe
Executable file
BIN
support/interni/unzip32.exe
Executable file
Binary file not shown.
BIN
support/interni/zip.pif
Executable file
BIN
support/interni/zip.pif
Executable file
Binary file not shown.
2
support/interni/zip386.bat
Executable file
2
support/interni/zip386.bat
Executable file
@ -0,0 +1,2 @@
|
|||||||
|
@echo off
|
||||||
|
zip386.exe %1 -@ < %2
|
||||||
BIN
support/interni/zip386.exe
Executable file
BIN
support/interni/zip386.exe
Executable file
Binary file not shown.
BIN
support/interni/zipsplit.pif
Executable file
BIN
support/interni/zipsplit.pif
Executable file
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user