* GUID_NULL constant added. Delphi compat, bug10494

git-svn-id: trunk@9565 -
2025-08-14 12:49:09 +02:00 · 2007-12-29 13:27:48 +00:00 · 2007-12-29 13:27:48 +00:00 · 78138162a6
commit 78138162a6
parent c6e2d72e3c
1 changed files with 3 additions and 0 deletions
--- 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