论坛 › 已解决问题区 › 【已解决】获取已安装软件列表，中文乱码是什么情况？

holley 发表于 2022-10-25 18:45:06

【已解决】获取已安装软件列表，中文乱码是什么情况？

本帖最后由 holley 于 2022-10-25 19:37 编辑

代码如下：

$file = FileOpen(@ScriptDir & "\RegInstalledItems.csv", 1+512)
If $file = -1 Then
      ConsoleWrite("ERROR: Unable to write to the output file")
      Exit
EndIf

$i = 1
While Not @error
      $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i)
      If @error <> 0 Then ExitLoop
      $var2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & $var, "DisplayName")
      $outLine = $var & "," & $var2
      FileWriteLine($file, $outLine)
      $i += 1
WEnd
FileClose($file)获取结果：
英文正常、中文全是乱码

求问：
这种情况大家遇到一般怎么处理？已改了脚本编码格式、IDE编码格式测试。

afan 发表于 2022-10-25 19:08:23

首行改一下，加 + 512
$file = FileOpen(@ScriptDir & "\RegInstalledItems.csv", 1 + 512)

查看完整版本: 【已解决】获取已安装软件列表，中文乱码是什么情况？