Ignore exceptions when setting file associations, for Win 7 users

without admin privs

Main.pas

@@ -199,6 +199,7 @@ var
   kOpenCommand: String;
 begin
   kOpenCommand := '"' + Application.ExeName + '" "%1"';
+  try
     RegWrite(HKEY_CLASSES_ROOT, kFileExt,'', kPQFileType);
     RegWrite(HKEY_CLASSES_ROOT, kPQFileType, '', 'Progresss Quest saved game');
     RegWrite(HKEY_CLASSES_ROOT, kPQFileType + '\DefaultIcon', '', Application.ExeName + ',0');
@@ -209,6 +210,11 @@ begin
       // I don't do this unless I'm sure this one has changed.
       SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
     end;
+  except
+    on Exception do begin
+      // Don't care
+    end;
+  end;
 end;
 
 procedure TMainForm.MinimizeIt;