From 5b7ee799bbf9b1205b80071ebd6fc68f29aa471f Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 6 May 2006 20:51:49 +0000
Subject: [PATCH] + TComServerObject

git-svn-id: trunk@3438 -
---
 packages/extra/winunits/comobj.pp | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/packages/extra/winunits/comobj.pp b/packages/extra/winunits/comobj.pp
index a49de0cf75..7db85171bc 100644
--- a/packages/extra/winunits/comobj.pp
+++ b/packages/extra/winunits/comobj.pp
@@ -19,9 +19,29 @@ unit comobj;
   interface
 
     uses
-      sysutils;
+      sysutils,activex;
 
     type
+      TComServerObject = class(TObject)
+      protected
+        function CountObject(Created: Boolean): Integer; virtual; abstract;
+        function CountFactory(Created: Boolean): Integer; virtual; abstract;
+        function GetHelpFileName: string; virtual; abstract;
+        function GetServerFileName: string; virtual; abstract;
+        function GetServerKey: string; virtual; abstract;
+        function GetServerName: string; virtual; abstract;
+        function GetStartSuspended: Boolean; virtual; abstract;
+        function GetTypeLib: ITypeLib; virtual; abstract;
+        procedure SetHelpFileName(const Value: string); virtual; abstract;
+      public
+        property HelpFileName: string read GetHelpFileName write SetHelpFileName;
+        property ServerFileName: string read GetServerFileName;
+        property ServerKey: string read GetServerKey;
+        property ServerName: string read GetServerName;
+        property TypeLib: ITypeLib read GetTypeLib;
+        property StartSuspended: Boolean read GetStartSuspended;
+      end;
+
       EOleError = class(Exception);
 
       EOleSysError = class(EOleError)
@@ -60,7 +80,7 @@ unit comobj;
   implementation
 
     uses
-       windows,activex;
+       windows;
 
     constructor EOleSysError.Create(const Msg: string; aErrorCode: HRESULT; aHelpContext: Integer);
       var