32 lines
1.1 KiB
ObjectPascal
32 lines
1.1 KiB
ObjectPascal
unit uROCOMInit;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ RemObjects SDK Library - Core Library }
|
|
{ }
|
|
{ compiler: Delphi 5 and up, Kylix 2 and up }
|
|
{ platform: Win32, Linux }
|
|
{ }
|
|
{ (c)opyright RemObjects Software. all rights reserved. }
|
|
{ }
|
|
{ Using this code requires a valid license of the RemObjects SDK }
|
|
{ which can be obtained at http://www.remobjects.com. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$I RemObjects.inc}
|
|
|
|
interface
|
|
|
|
implementation
|
|
|
|
{$IFDEF MSWINDOWS}
|
|
uses ActiveX;
|
|
|
|
initialization
|
|
CoInitializeEx(nil,COINIT_MULTITHREADED);
|
|
|
|
finalization
|
|
CoUninitialize;
|
|
{$ENDIF}
|
|
|
|
end.
|