* Define INVALID_HANDLE_VALUE for Delphi compatibility

rtl/objpas/sysutils/sysutilh.inc

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

rtl/win/sysutils.pp

@@ -49,6 +49,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}