From 7809826c947533b18eaf4509c79de0aac5d9c5d4 Mon Sep 17 00:00:00 2001
From: "ralf.moorbrink" <ralf.moorbrink@hoegemann.de>
Date: Tue, 18 Mar 2025 11:52:10 +0100
Subject: [PATCH] Add ShortCut for "DevExpress\VCL"

---
 source/CompressPath.dpr | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/source/CompressPath.dpr b/source/CompressPath.dpr
index 87d94e2..c599ac9 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 }