From 78138162a6d79ad9f49a5e2186ceea76f45cc35c Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 29 Dec 2007 13:27:48 +0000
Subject: [PATCH]  * GUID_NULL constant added. Delphi compat, bug10494

git-svn-id: trunk@9565 -
---
 packages/base/winunits/activex.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/packages/base/winunits/activex.pp b/packages/base/winunits/activex.pp
index 52d3684f1b..c723d4cdef 100644
--- a/packages/base/winunits/activex.pp
+++ b/packages/base/winunits/activex.pp
@@ -42,6 +42,9 @@ TYPE
      OleChar             = WChar;
      LPOLESTR            = ^OLECHAR;
 
+CONST 
+   GUID_NULL  : TGUID =  '{00000000-0000-0000-0000-000000000000}';
+
      // bit flags for IExternalConnection
 CONST
     EXTCONN_STRONG              = $0001;   // strong connection