检测已安装软件，并保存在桌面

Posted 2020-12-29 caowenhao

 1 $file = "adobe安装列表.txt"
 2 $regedit1 = "hklm64SOFTWAREWow6432NodeMicrosoftWindowsCurrentVersionUninstall"
 3 $regedit2 = "hklm64SOFTWAREMicrosoftWindowsCurrentVersionUninstall"
 4 _Filecreate(@DesktopCommonDir & $file)
 5 FileOpen(@DesktopCommonDir & $file, 1)
 6 
 7 $i = 1
 8 $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相关软件与软件安装位置，如需检测其他软件可自行修改