1 files changed, 4 insertions, 0 deletions
diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc
index 5f7f54538d..71ca89150f 100644
--- a/include/delphi/m_core.inc
+++ b/include/delphi/m_core.inc
@@ -651,6 +651,8 @@ procedure CreatePathToFile(wszFilePath:PAnsiChar); stdcall;
                  external CoreDLL name 'CreatePathToFile';
 function CreateDirectoryTree(const szDir:PAnsiChar):int; stdcall;
                  external CoreDLL name 'CreateDirectoryTree';
+function PathIsAbsolute(const pSrc:PAnsiChar):int; stdcall;
+                 external CoreDLL name 'PathIsAbsolute';
 function PathToAbsolute(const pSrc:PAnsiChar; pOut:PAnsiChar; base:PAnsiChar=nil):int; stdcall;
                  external CoreDLL name 'PathToAbsolute';
 function PathToRelative(const pSrc:PAnsiChar; pOut:PAnsiChar):int; stdcall;
@@ -660,6 +662,8 @@ procedure CreatePathToFileW(wszFilePath:PWideChar); stdcall;
                  external CoreDLL name 'CreatePathToFileW';
 function CreateDirectoryTreeW(const szDir:PWideChar):int; stdcall;
                  external CoreDLL name 'CreateDirectoryTreeW';
+function PathIsAbsoluteW(const pSrc:PWideChar):int; stdcall;
+                 external CoreDLL name 'PathIsAbsoluteW';
 function PathToAbsoluteW(const pSrc:PWideChar; pOut:PWideChar; base:PWideChar=nil):int; stdcall;
                  external CoreDLL name 'PathToAbsoluteW';
 function PathToRelativeW(const pSrc:PWideChar; pOut:PWideChar):int; stdcall;