NSIS 检测默认浏览器

Share

1. #检测默认浏览器
   
2. #编写：水晶石
   
3. #原理：用FindExecutable函数查找htm关联程序路径与名称，然后分析字串中包含的可执行文件名。
   
4. 
   
5. !include "LogicLib.nsh"
   
6. XPStyle on
   
7. ShowInstDetails show
   
8. OutFile "NSIStest.exe"
   
9. Name "test"
   
10. Section "test"
    
11.    GetTempFileName $0
    
12.    Rename $0 $temp\browser.htm
    
13.    System::Call "Shell32::FindExecutable(t'$temp\browser.htm', i0, t .r1)"
    
14.    System::Call "Shlwapi::StrStr(tr1, t`IEXPLORE.EXE`)t .r0"
    
15.    ${If} $0 != ""
    
16.       DetailPrint 'IE为默认浏览器'
    
17.    ${Else}
    
18.       DetailPrint "IE不是默认浏览器"
    
19.    ${EndIf}
    
20.    Delete `$temp\browser.htm`
    
21. SectionEnd

复制代码