; Assoc
; -----
; Search the registry and display file associations in
; a Script console box.  Also outputs to a text file 
; called temp.txt for later use.
; Note use of monospaced font in console to improve
; layout.  Also use of idle command to hold script 
; open until console is closed.

;report on
;step on
setfont lucida console,8
console File Associations,`The following extensions are registered:|Ext\tDescription\tCommand|`,Q,50|50,600|600
savetext `Ext\tDescription\tCommand\r\n`,temp.txt
findkey hkcr,A
iferror end

:next
substr %A,1,1,B
ifvar B,A,end
ifnvar B,.,next1

:show
setvar C,%A`\t`
getreg hkcr\\%A\(default),B
ifnerror disp
setvar B,

:disp
setvar C,%C%B
getreg hkcr\\%B\shell\open\command\(default),B
ifnerror disp1
setvar B,

:disp1
setvar C,%C`\t`%B
console ,%C|
savetext `%C\r\n`,temp.txt,A

:next1
nextkey hkcr,A
ifnerror next

:end
idle