Changeset 14 for trunk/Start.pas

Timestamp:

Jan 7, 2017, 8:54:23 PM (7 years ago)

Author:

chronos

Message:

• Removed: Do not create file association at runtime as it is done by installer program.
• Modified: Additional source formating using Delphi formatter.

File:

• trunk/Start.pas (modified) (1 diff)

trunk/Start.pas

@@ -207 +207 @@
     Reg.WriteInteger('MultiControl', 0);
     Reg.closekey;
-
-    // register file type: "cevo Book" -- fails with no administrator rights!
-    try
-      Reg.RootKey := HKEY_CLASSES_ROOT;
-      Reg.OpenKey('.cevo', true);
-      Reg.WriteString('', 'cevoBook');
-      Reg.closekey;
-      Reg.OpenKey('cevoBook', true);
-      Reg.WriteString('', 'cevo Book');
-      Reg.closekey;
-      Reg.OpenKey('cevoBook\DefaultIcon', true);
-      Reg.WriteString('', ParamStr(0) + ',0');
-      Reg.closekey;
-      Reg.OpenKey('cevoBook\shell\open\command', true);
-      Reg.WriteString('', ParamStr(0) + ' "%1"');
-      Reg.closekey;
-    except
-    end;
   end
   else