mscoree_tlb.pas

East make Tray Icon in delphi

unit mscoree_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : $Revision: 1.3 $
// File generated on 14.12.2003 01:39:55 from Type Library described below.

// ************************************************************************  //
// Type Lib: F:\WINNT\Microsoft.NET\Framework\v1.1.4322\mscoree.tlb (1)
// LIBID: {5477469E-83B1-11D2-8B49-00A0C9B7C9C4}
// LCID: 0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (F:\WINNT\system32\STDOLE2.TLB)
//   (2) v4.0 StdVCL, (F:\WINNT\system32\STDVCL40.DLL)
// Errors:
//   Hint: Member 'type' of 'tagSTATSTG' changed to 'type_'
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{ $WARN SYMBOL_PLATFORM OFF}
{ $WRITEABLECONST ON}
{ $VARPROPSETTER ON}
interface

uses ActiveX, Classes, OleServer;


// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  mscoreeMajorVersion = 1;
  mscoreeMinorVersion = 1;

  LIBID_mscoree: TGUID = '{5477469E-83B1-11D2-8B49-00A0C9B7C9C4}';

  IID_IApartmentCallback: TGUID = '{178E5337-1528-4591-B1C9-1C6E484686D8}';
  IID_IManagedObject: TGUID = '{C3FCC19E-A970-11D2-8B5A-00A0C9B7C9C4}';
  IID_ICatalogServices: TGUID = '{04C6BE1E-1DB1-4058-AB7A-700CCCFBF254}';
  IID_IMarshal: TGUID = '{00000003-0000-0000-C000-000000000046}';
  CLASS_ComCallUnmarshal: TGUID = '{3F281000-E95A-11D2-886B-00C04F869F04}';
  IID_ISequentialStream: TGUID = '{0C733A30-2A1C-11CE-ADE5-00AA0044773D}';
  IID_IStream: TGUID = '{0000000C-0000-0000-C000-000000000046}';
  IID_ICorRuntimeHost: TGUID = '{CB2F6722-AB3A-11D2-9C40-00C04FA30A3E}';
  IID_IGCHost: TGUID = '{FAC34F6E-0DCD-47B5-8021-531BC5ECCA63}';
  IID_ICorConfiguration: TGUID = '{5C2B07A5-1E98-11D3-872F-00C04F79ED0D}';
  IID_IGCThreadControl: TGUID = '{F31D1788-C397-4725-87A5-6AF3472C2791}';
  IID_IGCHostControl: TGUID = '{5513D564-8374-4CB9-AED9-0083F4160A1D}';
  IID_IDebuggerThreadControl: TGUID = '{23D86786-0BB5-4774-8FB5-E3522ADD6246}';
  IID_IValidator: TGUID = '{63DF8730-DC81-4062-84A2-1FF943F59FAC}';
  IID_IDebuggerInfo: TGUID = '{BF24142D-A47D-4D24-A66D-8C2141944E44}';
  IID_IVEHandler: TGUID = '{856CA1B2-7DAB-11D3-ACEC-00C04F86C309}';
  CLASS_CorRuntimeHost: TGUID = '{CB2F6723-AB3A-11D2-9C40-00C04FA30A3E}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IApartmentCallback = interface;
  IManagedObject = interface;
  ICatalogServices = interface;
  IMarshal = interface;
  ISequentialStream = interface;
  IStream = interface;
  ICorRuntimeHost = interface;
  IGCHost = interface;
  ICorConfiguration = interface;
  IGCThreadControl = interface;
  IGCHostControl = interface;
  IDebuggerThreadControl = interface;
  IValidator = interface;
  IDebuggerInfo = interface;
  IVEHandler = interface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  ComCallUnmarshal = IMarshal;
  CorRuntimeHost = ICorRuntimeHost;


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  PUserType1 = ^TGUID; {*}
  PPUserType1 = ^ISequentialStream; {*}
  PByte1 = ^Byte; {*}
  PUINT1 = ^LongWord; {*}

  ULONG_PTR = LongWord; 

  _LARGE_INTEGER = packed record
    QuadPart: Int64;
  end;

  _ULARGE_INTEGER = packed record
    QuadPart: Largeuint;
  end;

  _FILETIME = packed record
    dwLowDateTime: LongWord;
    dwHighDateTime: LongWord;
  end;

  tagSTATSTG = packed record
    pwcsName: PWideChar;
    type_: LongWord;
    cbSize: _ULARGE_INTEGER;
    mtime: _FILETIME;
    ctime: _FILETIME;
    atime: _FILETIME;
    grfMode: LongWord;
    grfLocksSupported: LongWord;
    clsid: TGUID;
    grfStateBits: LongWord;
    reserved: LongWord;
  end;

  _COR_GC_STATS = packed record
    Flags: LongWord;
    ExplicitGCCount: ULONG_PTR;
    GenCollectionsTaken: array[0..2] of ULONG_PTR;
    CommittedKBytes: ULONG_PTR;
    ReservedKBytes: ULONG_PTR;
    Gen0HeapSizeKBytes: ULONG_PTR;
    Gen1HeapSizeKBytes: ULONG_PTR;
    Gen2HeapSizeKBytes: ULONG_PTR;
    LargeObjectHeapSizeKBytes: ULONG_PTR;
    KBytesPromotedFromGen0: ULONG_PTR;
    KBytesPromotedFromGen1: ULONG_PTR;
  end;

  _COR_GC_THREAD_STATS = packed record
    PerThreadAllocation: Largeuint;
    Flags: LongWord;
  end;

  tag_VerError = packed record
    Flags: LongWord;
    opcode: LongWord;
    uOffset: LongWord;
    Token: LongWord;
    item1_flags: LongWord;
    item1_data: ^SYSINT;
    item2_flags: LongWord;
    item2_data: ^SYSINT;
  end;


// *********************************************************************//
// Interface: IApartmentCallback
// Flags:     (256) OleAutomation
// GUID:      {178E5337-1528-4591-B1C9-1C6E484686D8}
// *********************************************************************//
  IApartmentCallback = interface(IUnknown)
    ['{178E5337-1528-4591-B1C9-1C6E484686D8}']
    function DoCallback(pFunc: ULONG_PTR; pData: ULONG_PTR): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IManagedObject
// Flags:     (256) OleAutomation
// GUID:      {C3FCC19E-A970-11D2-8B5A-00A0C9B7C9C4}
// *********************************************************************//
  IManagedObject = interface(IUnknown)
    ['{C3FCC19E-A970-11D2-8B5A-00A0C9B7C9C4}']
    function GetSerializedBuffer(out pBSTR: WideString): HResult; stdcall;
    function GetObjectIdentity(out pBSTRGUID: WideString; out AppDomainID: SYSINT; out pCCW: SYSINT): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: ICatalogServices
// Flags:     (256) OleAutomation
// GUID:      {04C6BE1E-1DB1-4058-AB7A-700CCCFBF254}
// *********************************************************************//
  ICatalogServices = interface(IUnknown)
    ['{04C6BE1E-1DB1-4058-AB7A-700CCCFBF254}']
    function Autodone: HResult; stdcall;
    function NotAutodone: HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IMarshal
// Flags:     (0)
// GUID:      {00000003-0000-0000-C000-000000000046}
// *********************************************************************//
  IMarshal = interface(IUnknown)
    ['{00000003-0000-0000-C000-000000000046}']
    function GetUnmarshalClass(var riid: TGUID; var pv: Pointer; dwDestContext: LongWord; 
                               var pvDestContext: Pointer; mshlflags: LongWord; out pCid: TGUID): HResult; stdcall;
    function GetMarshalSizeMax(var riid: TGUID; var pv: Pointer; dwDestContext: LongWord; 
                               var pvDestContext: Pointer; mshlflags: LongWord; out pSize: LongWord): HResult; stdcall;
    function MarshalInterface(var pstm: ISequentialStream; var riid: TGUID; var pv: Pointer; 
                              dwDestContext: LongWord; var pvDestContext: Pointer; 
                              mshlflags: LongWord): HResult; stdcall;
    function UnmarshalInterface(const pstm: ISequentialStream; var riid: TGUID; out ppv: Pointer): HResult; stdcall;
    function ReleaseMarshalData(const pstm: ISequentialStream): HResult; stdcall;
    function DisconnectObject(dwReserved: LongWord): HResult; stdcall;
  end;