synopse#458: another fix for PasZip

Author: zedxxx

PasZip.pas

@@ -179,6 +179,14 @@ function UpdateCrc32(aCRC32: cardinal; inBuf: pointer; inLen: integer): cardinal
 {$ifdef MSWINDOWS}
 
 type
+  {$ifdef ISDELPHI2010}
+  // The return type for FileCreate since Delphi 2010 has changed
+  // from an Integer type to THandle
+  TFileHandle = THandle;
+  {$else}
+  TFileHandle = integer;
+  {$endif ISDELPHI2010}
+
   /// generic file information structure, as used in .zip file format
   // - used in any header, contains info about following block
   TFileInfo = packed record
@@ -246,7 +254,7 @@ function UpdateCrc32(aCRC32: cardinal; inBuf: pointer; inLen: integer): cardinal
   // - can open a .zip archive file content from memory
   TZipRead = class
   private
-    file_, map: dword; // we use a memory mapped file to access the zip content
+    file_, map: THandle; // we use a memory mapped file to access the zip content
     buf: PByteArray;
     fZipStartOffset: cardinal;
     fShowMessageBoxOnError: boolean;
@@ -295,7 +303,7 @@   TZipWrite = class
     fMagic: cardinal;
   public
     /// the associated file handle
-    Handle: integer;
+    Handle: TFileHandle;
     /// the total number of entries
     Count: integer;
     /// the resulting file entries

SynopseCommit.inc

@@ -1 +1 @@
-'1.18.7658'
+'1.18.7659'