使用autoit检测电脑是否已经安装了某一软件

the2008

Dim $regkey,$uninstallkey,$displayname,$uninstallstring
Dim $i,$haveinstall
$regkey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
For $i= 1 To 100
$uninstallRegKey = RegEnumKey($regKey , $i)
$uninstallstring=$regkey&'\'&$uninstallRegKey
$displayname=RegRead($uninstallstring,"displayname")
If $displayname="Total Commander"Then
        $haveinstall="ture"

EndIf
Next

If $haveinstall="ture"Then
        MsgBox(0,"title","您已经安装了tc")
Else
        MsgBox(0,"title","您没有安装了tc")
        EndIf