檢測已安裝軟件,並保存在桌面
阿新 • • 發佈:2018-08-13
splay 安裝位置 exp play gedit eat 軟件 cat spa
1 $file = "\adobe安裝列表.txt" 2 $regedit1 = "hklm64\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\" 3 $regedit2 = "hklm64\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" 4 _Filecreate(@DesktopCommonDir & $file) 5 FileOpen(@DesktopCommonDir & $file, 1) 6 7 $i = 18 $flag = True 9 While $flag 10 Local $var = RegEnumKey($regedit1, $i) 11 If $var = -1 Then $flag = False 12 If @error <> 0 Then ExitLoop 13 soft_exists($var) 14 $i = $i + 1 15 WEnd 16 17 Func soft_exists($reg_name) 18 Local $displayname = RegRead($regedit1 & $reg_name, "DisPlayName" ) 19 If StringRegExp($DisPlayName, ‘Adobe.*‘, 0) Then 20 FileWriteLine(@DesktopCommonDir & $file,"【" & $displayname & "】 安裝在 " & RegRead($regedit1 & $reg_name, "InstallLocation" )) 21 EndIf 22 EndFunc 23 24 FileClose(@DesktopCommonDir & $file)
以上代碼僅檢測Adobe相關軟件與軟件安裝位置,如需檢測其他軟件可自行修改
檢測已安裝軟件,並保存在桌面