* Define INVALID_HANDLE_VALUE for Delphi compatibility

(cherry picked from commit ff8511f2f11bd5a4558fc5d487c80ea87cf23113)

rtl/objpas/sysutils/sysutilh.inc

@@ -455,3 +455,8 @@ Type
 
   Function GetCompiledArchitecture : TOSVersion.TArchitecture;
   Function GetCompiledPlatform : TOSVersion.TPlatform;
+
+{$IFNDEF HAS_INVALIDHANDLE}
+const 
+  INVALID_HANDLE_VALUE = DWORD(-1);
+{$ENDIF}

rtl/win/sysutils.pp

@@ -39,6 +39,10 @@ uses
 {$DEFINE OS_FILESETDATEBYNAME}
 {$DEFINE HAS_FILEGETDATETIMEINFO}
 
+{$DEFINE HAS_INVALIDHANDLE}
+const 
+  INVALID_HANDLE_VALUE = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}Windows.INVALID_HANDLE_VALUE;
+
 // this target has an fileflush implementation, don't include dummy
 {$DEFINE SYSUTILS_HAS_FILEFLUSH_IMPL}