Hi rooters and Rene,
If CERN has/buys InstallShield 6.x I will provide ROOT with InstallShield
binary installation for windows 95/98/NT/2000/PE (or provide Rene with one
click script to build root media).
If Fons provides a simple ShortPathToLongPath function eqviavalent to make
"C:\Program Files\" from "C:\Progra~1\" it would also be possible to install
root in C:\Program Files on win95/98, otherwise in the install script I can
prohibit long name install paths.
As far as I see I could not manage to install root in C:\Program Files\ on
win98 with "" or whatsoever.
I think Valery can help me with testing the script on NT in "local
user"/"administrator on-line" modes.
Regards,
Anton
http://www.smartquant.com
// your global variables
#define WM_WININICHANGE 0x001A
#define HWND_BROADCAST 0xffff
function OnFirstUIAfter()
STRING szTitle, szMsg1, szMsg2, szOption1, szOption2;
STRING szROOTSYS, szKey, szEnv;
NUMBER bOpt1, bOpt2;
POINTER pEnv;
begin
if (GetEnvVar ("ROOTSYS", szROOTSYS) < 0) then
if (SYSINFO.WIN9X.bWin9X) then
// MessageBox ("WIN 9x detected", INFORMATION);
BatchFileLoad("");
szROOTSYS = TARGETDIR;
if (BatchAdd("ROOTSYS", szROOTSYS, "PATH", BEFORE) < 0) then
MessageBox ("Setting ROOTSYS failed", INFORMATION);
endif;
LongPathToShortPath(szROOTSYS);
if (BatchAdd ("PATH", szROOTSYS+"\\bin;%PATH%", "PATH", AFTER) < 0)
then
MessageBox ("Setting ROOT PATH failed", INFORMATION);
endif;
BatchFileSave("AUTOEXEC.OLD");
BATCH_INSTALL = TRUE;
endif;
if (SYSINFO.WINNT.bWinNT || SYSINFO.WINNT.bWin2000) then
// MessageBox ("WIN NT/2000 detected", INFORMATION);
szKey="Environment";
RegDBSetDefaultRoot(HKEY_CURRENT_USER);
RegDBSetKeyValueEx(szKey,"ROOTSYS",REGDB_STRING,TARGETDIR,-1);
szEnv = "Environment";
pEnv = &szEnv;
SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, pEnv );
endif;
endif;
Disable(STATUSEX);
ShowObjWizardPages(NEXT);
bOpt1 = FALSE;
bOpt2 = FALSE;
szMsg1 = "RQuant installation successfully finished!" +
"\n\nYour system.rootrc file has been copied to
system.rootrc.old"; // SdLoadString(IFX_SDFINISH_MSG1);
SdFinishEx(szTitle, szMsg1, szMsg2, szOption1, szOption2, bOpt1, bOpt2);
end;
This archive was generated by hypermail 2b29 : Tue Jan 01 2002 - 17:50:38 MET