Como saber se o Windows Live Está Instalado

[kapiaba]

Blz galera?

Como saber se o Windows Live Está Instalado no Windows 7?

ou o Outlook Express no Windows XPeta?

Obg. abs.

[MatheusFarias]

Simples , vou te dar a dia e o resto voce implementa

Function ProgramasInstalados()
LOCAL   oLoc:= CreateObject( "wbemScripting.SwbemLocator" )
LOCAL   objWMI:= oLoc:ConnectServer()
LOCAL   oSoft := objWMI:ExecQuery("Select * from Win32_Product")
LOCAL   oDatos
LOCAL aProgromasInstalados:={}
For Each oDatos in oSoft
     aadd(aProgromasInstalados,{Alltrim(cValtoChar(oDatos:Name)),Alltrim(cValtoChar(oDatos:Version)),Alltrim(cValtoChar(oDatos:InstallLocation))}
 Next

return aProgromasInstalados

Ela retorna o vetor com os programas instalados versao e local , acredito que por ai é so fazer uma comparaçao com ascan ou um if com $ (esta contido) .

Duvidas a mais manda ai , qualquer coisa ta ai o email , matheus@inteligence.com.br

[kapiaba]

Obg.

Fiz mais simples,

IF .NOT. FILE( "C:\Program Files\Windows Live\Mail\wlmail.exe" )
     ? "mensagem pra burro"
      RETURN NIL   
ENDIF