code:

---

$main=createobject("kixtart.form")
$main.size=$main.screen.width,$main.screen.height
$main.caption="Investor 1.0 Lite"
$main.top=0
$main.left=0
$list=$main.listview(,0,50,$main.clientwidth,$main.clientheight)
$list.columns.add("Machine",50).
for each $program in scan("\\jooel")
 $list.columns.add($program,50).
next
$main.visible=1
while $main.visible $=execute($main.doevents) loop

function scan($wksta)
 dim $,$c,$value
 $wksta=$wksta+"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
 $=enumkey($wksta,0)
 $c=0
 $scan=$wksta
 while @error=0
  $c=$c+1
  $value=readvalue($wksta+"\"+$,"DisplayName")
  if $value $scan=$scan+chr(10)+$value endif
  $=enumkey($wksta,$c)
 loop
$scan=split($scan,chr(10))
endfunction

---