XProfan

window 50,50,600,500
 $H Windows.ph
declare Key$,Handle&,Zähler%,Error&,SubKey#
dim SubKey#,250
Key$=SOFTWAREMicrosoftWindowsCurrentVersionUninstall
~RegOpenKeyEx($80000002,addr(Key$),0,$F003F,addr(Handle&))

whilenot Error&=259

    Error&=~RegEnumKey(Handle&,Zähler%,SubKey#,250)
    print string$(SubKey#,0)
    inc Zähler%
    waitkey

endwhile

dispose SubKey#
~RegCloseKey(Handle&)
waitkey