Changeset 32 for trunk/Start.pas

Timestamp:

Jan 8, 2017, 11:09:33 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Avoid exception during read from registry.

File:

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

trunk/Start.pas

@@ -986 +986 @@
         Reg := TRegistry.Create;
         Reg.OpenKey('SOFTWARE\cevo\RegVer9\Start', true);
-        try
-          MapCount := Reg.ReadInteger('MapCount');
-        except
-          MapCount := 0;
-        end;
+        if Reg.ValueExists('MapCount') then
+          MapCount := Reg.ReadInteger('MapCount')
+          else  MapCount := 0;
         inc(MapCount);
         Reg.WriteInteger('MapCount', MapCount);