From 587c1df60e7bd06a13fdbfdd7cbc60cdbe8d5151 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 29 Nov 2023 15:03:12 +0100
Subject: [PATCH] * Define  INVALID_HANDLE_VALUE for Delphi compatibility

(cherry picked from commit ff8511f2f11bd5a4558fc5d487c80ea87cf23113)
---
 rtl/objpas/sysutils/sysutilh.inc | 5 +++++
 rtl/win/sysutils.pp              | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/rtl/objpas/sysutils/sysutilh.inc b/rtl/objpas/sysutils/sysutilh.inc
index 2b975207f0..5a27691e0a 100644
--- a/rtl/objpas/sysutils/sysutilh.inc
+++ b/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}
diff --git a/rtl/win/sysutils.pp b/rtl/win/sysutils.pp
index f1d91a115e..79e372a7c0 100644
--- a/rtl/win/sysutils.pp
+++ b/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}