From 59883da0a081cd6f3c00da274338fc4f5b4ad7a7 Mon Sep 17 00:00:00 2001
From: marcoonthegit <marco@freepascal.org>
Date: Thu, 14 Dec 2023 09:37:42 +0100
Subject: [PATCH]  * fix for drive existence in windows app modus, closes
 #40558

---
 rtl/objpas/sysutils/disk.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/disk.inc b/rtl/objpas/sysutils/disk.inc
index a7dc92580c..2e6d5034fc 100644
--- a/rtl/objpas/sysutils/disk.inc
+++ b/rtl/objpas/sysutils/disk.inc
@@ -110,7 +110,7 @@ begin
   Result:=False;
   ADrv:=ExtractFileDrive(Dir);
   if (ADrv<>'') and
-     (not DirectoryExists(ADrv))
+     (not DirectoryExists(ADrv)+DirectorySeparator)
      {$IFNDEF FORCEDIR_NO_UNC_SUPPORT} and (not IsUncDrive(ADrv)){$ENDIF} then
     Exit;
   if Dir='' then