Changeset 14
- Timestamp:
- Jul 12, 2011, 12:24:10 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
php/trunk/doxygen/doclaunch.vbs
r3 r14 18 18 19 19 Const CONST_REGVAL_PREFBROWSER_FILETYPE = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.html\UserChoice\Progid" 20 Const CONST_REGSUBVAL L_FILETYPE_COMMAND = "shell\open\command\"20 Const CONST_REGSUBVAL_FILETYPE_COMMAND = "shell\open\command\" 21 21 22 22 Dim rc : rc = Main … … 46 46 Dim strUrl : strUrl = "file:///" & Replace( strIndexFile, "\", "/") 47 47 Dim strFileType : strFileType = oWshShell.RegRead( CONST_REGVAL_PREFBROWSER_FILETYPE) 48 Dim strExec : strExec = oWshShell.RegRead( "HKEY_CLASSES_ROOT\" & strFileType & "\" & CONST_REGSUBVAL L_FILETYPE_COMMAND)48 Dim strExec : strExec = oWshShell.RegRead( "HKEY_CLASSES_ROOT\" & strFileType & "\" & CONST_REGSUBVAL_FILETYPE_COMMAND) 49 49 If (InStr( strExec, "%1") > 0) Then 50 50 strExec = Replace( strExec, "%1", strUrl)
Note:
See TracChangeset
for help on using the changeset viewer.