(/ OSVar GGG Olb8 Olb9 Olb10 TLB Out msg msg1 msg2)
(setq msg
"\n Initializing Microsoft Excel " msg1 "\042Initialization Error\042"
"\042 WARNING" "\n ======="
"\n Can NOT detect Excel97/200X/XP in your computer"
"\n If you already have Excel installed, please email"
"\n us to get more solution via kozmosovia@hotmail.com\042")
)
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Excel.EXE"
"Path"
)
)
)
"WINBOOTDIR" "SYSTEMDRIVE"
"USERNAME" "COMPUTERNAME"
"HOMEDRIVE" "HOMEPATH"
"PROGRAMFILES"
)
GGG
)
)
)
)
)
)
(vl
-string
-subst "EXCEL10.OLB" "EXCEL.EXE" GGG
) )
)
"OFFICE12"
)
Out "2007"
)
)
"OFFICE11"
)
Out "2003"
)
)
"OFFICE10"
)
Out "XP"
)
)
(Olb9
Out "2000"
)
)
(Olb8
Out "97"
)
)
(t
(setq Out
"Version Unknown")) )
:tlb-filename TLB :methods-prefix
"msxl-" :properties-prefix
"msxl-" :constants-prefix "msxl-"
)
)
)
)
(vldcl-msgbox "x" msg1 msg2)
)
)
)
)
msxl-xl24HourClock
)