Added Registry entries to put the cduce icon on files with suffix ".cd" and...

Added Registry entries to put the cduce icon on files with suffix ".cd" and launch cduce when double-clicking.

win32/CDuce inno setup script 1.iss

@@ -30,6 +30,8 @@ WizardImageBackColor=clWhite
 ChangesEnvironment=false
 WizardImageStretch=false
 DirExistsWarning=no
+ChangesAssociations=true
+AlwaysShowDirOnReadyPage=true
 
 [Languages]
 Name: english; MessagesFile: compiler:Default.isl
@@ -54,3 +56,7 @@ Name: {group}\{cm:UninstallProgram, {#MyAppName}}; Filename: {uninstallexe}
 Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#MyAppName}}; Flags: nowait postinstall skipifsilent
 [Registry]
 Root: HKLM; Subkey: SYSTEM\CurrentControlSet\Control\Session Manager\Environment; ValueType: expandsz; ValueName: Path; ValueData: "{reg:HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment,Path};{app}"; Flags: dontcreatekey
+Root: HKCR; Subkey: .cd; ValueType: string; ValueData: CDuceFile; Flags: uninsdeletekey
+Root: HKCR; Subkey: CDuceFile; ValueType: string; ValueData: CDuce File; Flags: uninsdeletekey
+Root: HKCR; Subkey: CDuceFile\DefaultIcon; ValueType: string; ValueData: {app}\CDuce.exe, 0
+Root: HKCR; Subkey: CDuceFile\shell\open\command; ValueType: string; ValueData: "{app}\CDuce.exe ""%1"""