diff --git a/.gitattributes b/.gitattributes
index fb80a6fe18..0270d3d6de 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -7629,6 +7629,7 @@ packages/winunits-base/src/richedit.pp svneol=native#text/plain
 packages/winunits-base/src/shellapi.pp svneol=native#text/plain
 packages/winunits-base/src/shfolder.pp svneol=native#text/plain
 packages/winunits-base/src/shlobj.pp svneol=native#text/plain
+packages/winunits-base/src/shlwapi.pp svneol=native#text/plain
 packages/winunits-base/src/stdole2.pas svneol=native#text/plain
 packages/winunits-base/src/tmschema.inc svneol=native#text/plain
 packages/winunits-base/src/typelib.pas svneol=native#text/plain
diff --git a/packages/winunits-base/fpmake.pp b/packages/winunits-base/fpmake.pp
index 8c46c8133b..6857ddc576 100644
--- a/packages/winunits-base/fpmake.pp
+++ b/packages/winunits-base/fpmake.pp
@@ -46,6 +46,7 @@ begin
           AddUnit('ole2');
           AddUnit('activex');
           AddUnit('shellapi');
+          AddUnit('shlwapi');
           AddUnit('shlobj');
           AddUnit('oleserver');
           AddUnit('shfolder');
@@ -82,6 +83,7 @@ begin
     T:=P.Targets.AddImplicitUnit('oleserver.pp');
     T:=P.Targets.AddImplicitUnit('richedit.pp');
     T:=P.Targets.AddImplicitUnit('shellapi.pp');
+    T:=P.Targets.AddImplicitUnit('shlwapi.pp');
     T:=P.Targets.AddImplicitUnit('shfolder.pp');
     T:=P.Targets.AddImplicitUnit('shlobj.pp');
     T:=P.Targets.AddImplicitUnit('winver.pp');
diff --git a/packages/winunits-base/src/buildwinutilsbase.pp b/packages/winunits-base/src/buildwinutilsbase.pp
index 8191fe6e86..342899b02a 100644
--- a/packages/winunits-base/src/buildwinutilsbase.pp
+++ b/packages/winunits-base/src/buildwinutilsbase.pp
@@ -25,7 +25,8 @@ uses
     ole2, activex, shellapi, shlobj, oleserver,  shfolder, richedit,
     imagehlp, wininet, uxtheme, dwmapi, multimon, htmlhelp, winutils,
     comserv, winspool, imm, imm_dyn, nb30, win9xwsmanager, stdole2, 
-	eventsink, typelib, libkinect10, urlmon;
+    eventsink, typelib, libkinect10, urlmon,
+    shlwapi;
 
 implementation
 
diff --git a/packages/winunits-base/src/shlwapi.pp b/packages/winunits-base/src/shlwapi.pp
new file mode 100644
index 0000000000..619310c796
--- /dev/null
+++ b/packages/winunits-base/src/shlwapi.pp
@@ -0,0 +1,25 @@
+unit shlwapi;
+
+{
+    This file is part of the Free Pascal run time library.
+    shlwapi calls are parked here for now.
+    Copyright (c) 1999-2002 by Marco van de Voort,
+    member of the Free Pascal development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ ************************************************************************}
+
+interface
+{$mode delphi}
+
+function StrCmpLogicalW(psz1, psz2: PWideChar): Integer; stdcall; external 'shlwapi.dll';
+
+implementation
+
+end.
\ No newline at end of file