diff --git a/source/CompressPath.dpr b/source/CompressPath.dpr
index fb576ff..9cb61e7 100644
--- a/source/CompressPath.dpr
+++ b/source/CompressPath.dpr
@@ -210,6 +210,9 @@ begin
   AddShortCut('SQL', GetExistingPath(PathProgramFiles, '\Microsoft SQL Server'));
   AddShortCut('SQL86', GetExistingPath(PathProgramFilesX86, '\Microsoft SQL Server'));
 
+  { DevExpress }
+  AddShortCut( 'DXVCL', GetExistingPath( PathProgramFilesX86, '\DevExpress\VCL'));
+
   { TODO : Add folders for missing Delphi versions}
 
   { Delphi 7 }