Changeset 7592 in vbox
- Timestamp:
- Mar 27, 2008 3:01:05 PM (17 years ago)
- svn:sync-xref-src-repo-rev:
- 29091
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/configure.vbs
r7589 r7592 168 168 set objLocator = CreateObject("Wbemscripting.SWbemLocator") 169 169 set objServices = objLocator.ConnectServer("", "root\default", "", "", , , , g_objRegCtx) 170 set g_objReg = objServices.Get("StdRegProv") 170 set g_objReg = objServices.Get("StdRegProv") 171 171 g_blnRegistry = true 172 172 end if … … 182 182 dim strRoot, strKey, strValue 183 183 dim iRoot 184 184 185 185 ' split up into root, key and value parts. 186 186 strRoot = left(strName, instr(strName, "\") - 1) … … 525 525 '' 526 526 ' Finds the first directory matching the pattern. 527 ' If no directory is found, log the failure, 527 ' If no directory is found, log the failure, 528 528 ' else return the complete path to the found directory. 529 529 function LogFindDir(strPath, strPattern) … … 1809 1809 ' Checks for any Qt binaries. Failure here isn't fatal. 1810 1810 sub CheckForQt(strOptQt) 1811 dim strPathQt, str 1811 dim strPathQt, str, blnQtWinFree 1812 1812 1813 1813 PrintHdr "Qt" … … 1817 1817 ' 1818 1818 strPathQt = "" 1819 b QtWinFree = False1819 blnQtWinFree = False 1820 1820 1821 1821 LogPrint "Checking for user specified path of Qt ..." … … 1828 1828 if CheckForQtWinFreeSub(strOptQt) then 1829 1829 strPathQt = strOptQt 1830 b QtWinFree = True1830 blnQtWinFree = True 1831 1831 end if 1832 1832 end if … … 1844 1844 end if 1845 1845 end if 1846 1847 ' 1848 ' Try to find the Open Source project "qtwin" Qt/free, 1846 1847 ' 1848 ' Try to find the Open Source project "qtwin" Qt/free, 1849 1849 ' located at http://qtwin.sf.net 1850 1850 ' … … 1853 1853 str = LogFindDir(g_strPathDev & "/win.x86/qt", "v3.*") 1854 1854 if (str <> "") then 1855 if CheckForQtWinFreeSub(str) then 1855 if CheckForQtWinFreeSub(str) then 1856 1856 strPathQt = str 1857 b QtWinFree = True1857 blnQtWinFree = True 1858 1858 end if 1859 1859 end if … … 1866 1866 CfgPrint "VBOX_WITH_QTGUI=" 1867 1867 PrintResult "Qt", "not found" 1868 else 1868 else 1869 1869 CfgPrint "VBOX_PATH_QT := " & strPathQt 1870 1870 CfgPrint "QTDIR = $(VBOX_PATH_QT)" 1871 1872 if b QtWinFree = True then ' The "qtwin"1873 PrintResult "Qt (v" & g_strQtVer & ", QtWin/Free)", strPathQt 1871 1872 if blnQtWinFree = True then ' The "qtwin" 1873 PrintResult "Qt (v" & g_strQtVer & ", QtWin/Free)", strPathQt 1874 1874 else ' Licensed from Trolltech 1875 1875 PrintResult "Qt (v" & g_strQtVer & ")", strPathQt
Note:
See TracChangeset
for help on using the changeset viewer.