List of installed applications

[Uriziel01]

Hi! Im not sure there wasnt such program in past but I cant find it on board It is an installed applications viewer, like this in ControlPanel, but it is a lot faster then system one.

More created for fun, not like serious programming project

Source:

run("regedit.exe /e:a "&@TempDir&"\Exported.reg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData")
sleep(200)
Global $lista[200],$lista_final
$rejestr=FileRead(@TempDir&"\Exported.reg")
for $i=1 to 190
    if StringInStr($rejestr,'"DisplayName"="') = 0 then
        $lista_final&=@CRLF&"Number of Applications: "&$i
    ExitLoop
    endif
    $rejestr=StringTrimLeft($rejestr,StringInStr($rejestr,'"DisplayName"="')+14)
    $lista[$i]=StringLeft($rejestr,StringInStr($rejestr,chr(34))-1)
    $lista_final&="Name: "&$lista[$i]&"   InstallDate: "
        if StringInStr($rejestr,'"InstallDate"="') = 0 then
        $lista_final&=@CRLF&"Number of Applications: "&$i
    ExitLoop
    endif
    $rejestr=StringTrimLeft($rejestr,StringInStr($rejestr,'"InstallDate"="')+14)
    $lista[$i]=StringLeft($rejestr,StringInStr($rejestr,chr(34))-1)
    $lista[$i]=StringLeft($lista[$i],4)&"-"&StringMid($lista[$i],5,2)&"-"&StringRight($lista[$i],2)
        $lista_final&=$lista[$i]&@CRLF
Next
FileDelete(@TempDir&"\Exported.reg")
MsgBox(0,"Installed programs list",$lista_final)

[A. Percy]

Variables in portuguese? Interesting

Edited August 7, 2008 by A. Percy

[TehWhale]

This does not work on Vista.

Edited August 7, 2008 by Alienware

[Uriziel01]

Variables in portuguese? Interesting

Portuguese? No, they are in Polish

@Alienware

Yes i now that, I have even writen in the name of thread that it works on winXP Sorry for that, but i use Vista to often and dont have time to reapir it

[A. Percy]

Portuguese? No, they are in Polish

@Alienware

Yes i now that, I have even writen in the name of thread that it works on winXP Sorry for that, but i use Vista to often and dont have time to reapir it

lista final (portuguese) = final list (english)

[SxyfrG]

Not working over here =\

Just getting a msgbox saying "Number of installed applications: 1" ... and i know i have more than that

[fabyocabral]

Oh yeah .... portuguese... here in Brazil there are many people whose use autoit....

[JLogan3o13]

WHY would you resurrect a thread after 6 years, especially when your post adds nothing to the discussion?!