home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Include / Vcl / TOOLAPI.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  62.3 KB  |  1,883 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'ToolsAPI.pas' rev: 4.00
  6.  
  7. #ifndef ToolsAPIHPP
  8. #define ToolsAPIHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #include <ComCtrls.hpp>    // Pascal unit
  13. #include <ImgList.hpp>    // Pascal unit
  14. #include <Graphics.hpp>    // Pascal unit
  15. #include <ActnList.hpp>    // Pascal unit
  16. #include <Menus.hpp>    // Pascal unit
  17. #include <DsgnIntf.hpp>    // Pascal unit
  18. #include <TypInfo.hpp>    // Pascal unit
  19. #include <ActiveX.hpp>    // Pascal unit
  20. #include <Classes.hpp>    // Pascal unit
  21. #include <SysUtils.hpp>    // Pascal unit
  22. #include <Windows.hpp>    // Pascal unit
  23. #include <SysInit.hpp>    // Pascal unit
  24. #include <System.hpp>    // Pascal unit
  25.  
  26. //-- user supplied -----------------------------------------------------------
  27. namespace Toolsapi {
  28. DECLARE_DINTERFACE_TYPE(IOTAFormEditor);
  29. DECLARE_DINTERFACE_TYPE(IOTAFileSystem);
  30. DECLARE_DINTERFACE_TYPE(IOTAWizard);
  31. };
  32. #undef DELPHICLASS
  33. #define DELPHICLASS
  34. #undef PASCALIMPLEMENTATION
  35. #define PASCALIMPLEMENTATION
  36. DEFINE_GUID(IID_IOTANotifier,0xF17A7BCF,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  37. DEFINE_GUID(IID_IOTAEditorNotifier,0x0E3B9D7B,0xE119,0x11D1,0xAB,0x0C,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  38.     
  39. DEFINE_GUID(IID_IOTAFormNotifier,0x0E3B9D7C,0xE119,0x11D1,0xAB,0x0C,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  40. DEFINE_GUID(IID_IOTAEditor,0xF17A7BD0,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  41. DEFINE_GUID(IID_IOTAEditReader,0x26EB0E4F,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  42. DEFINE_GUID(IID_IOTAEditWriter,0x26EB0E50,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  43. DEFINE_GUID(IID_IOTAEditView,0x0E3B9D78,0xE119,0x11D1,0xAB,0x0C,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  44. DEFINE_GUID(IID_IOTASourceEditor,0xF17A7BD1,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  45. DEFINE_GUID(IID_IOTAResourceEntry,0x26EB0E51,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  46.     
  47. DEFINE_GUID(IID_IOTAProjectResource,0x26EB0E52,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  48.     
  49. DEFINE_GUID(IID_INTAComponent,0x34B2E2D1,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  50. DEFINE_GUID(IID_IOTAComponent,0x34B2E2D0,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  51. DEFINE_GUID(IID_INTAFormEditor,0x34B2E2CF,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  52. DEFINE_GUID(IID_IOTAFormEditor,0xF17A7BD2,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  53. DEFINE_GUID(IID_IOTATypeLibEditor,0xF17A7BD3,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  54.     
  55. DEFINE_GUID(IID_IOTAModuleNotifier,0xF17A7BCE,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  56.     
  57. DEFINE_GUID(IID_IOTAModuleInfo,0xF17A7BD6,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  58. DEFINE_GUID(IID_IOTAModule,0xF17A7BCC,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  59. DEFINE_GUID(IID_IOTATypeLibModule,0x0BBAEEA0,0xEF74,0x11D1,0xAB,0x1C,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  60.     
  61. DEFINE_GUID(IID_IOTAOptions,0x9C0E91FC,0xFA5A,0x11D1,0xAB,0x28,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  62. DEFINE_GUID(IID_IOTAProjectOptions,0xF17A7BD4,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  63.     
  64. DEFINE_GUID(IID_IOTAProjectBuilder,0xF17A7BD5,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  65.     
  66. DEFINE_GUID(IID_IOTAProject,0xF17A7BCA,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  67. DEFINE_GUID(IID_IOTAProjectGroup,0xF17A7BCB,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  68. DEFINE_GUID(IID_IOTAActionServices,0xF17A7BC9,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  69.     
  70. DEFINE_GUID(IID_IOTAFileSystem,0xA9D1389D,0xF4B0,0x11D1,0xAB,0x22,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  71. DEFINE_GUID(IID_IOTAFile,0x6E2AD9B0,0xF7F0,0x11D1,0xAB,0x26,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  72. DEFINE_GUID(IID_IOTACreator,0x6EDB9B9E,0xF57A,0x11D1,0xAB,0x23,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  73. DEFINE_GUID(IID_IOTAModuleCreator,0x6EDB9B9A,0xF57A,0x11D1,0xAB,0x23,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  74.     
  75. DEFINE_GUID(IID_IOTAProjectCreator,0x6EDB9B9D,0xF57A,0x11D1,0xAB,0x23,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  76.     
  77. DEFINE_GUID(IID_IOTAProjectGroupCreator,0x6EDB9B9F,0xF57A,0x11D1,0xAB,0x23,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  78.     
  79. DEFINE_GUID(IID_IOTAModuleServices,0xF17A7BCD,0xE07D,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  80.     
  81. DEFINE_GUID(IID_IOTABreakpointNotifier,0x34B2E2D5,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  82.     
  83. DEFINE_GUID(IID_IOTABreakpoint,0x34B2E2D4,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  84. DEFINE_GUID(IID_IOTASourceBreakpoint,0x09063877,0xE43A,0x11D1,0xAB,0x0F,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  85.     
  86. DEFINE_GUID(IID_IOTAAddressBreakpoint,0x09063878,0xE43A,0x11D1,0xAB,0x0F,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  87.     
  88. DEFINE_GUID(IID_IOTAThreadNotifier,0x34B2E2D7,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  89.     
  90. DEFINE_GUID(IID_IOTAThread,0x34B2E2D3,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  91. DEFINE_GUID(IID_IOTAProcessModNotifier,0x0906387A,0xE43A,0x11D1,0xAB,0x0F,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  92.     
  93. DEFINE_GUID(IID_IOTAProcessModule,0x09063879,0xE43A,0x11D1,0xAB,0x0F,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  94.     
  95. DEFINE_GUID(IID_IOTAProcessNotifier,0x34B2E2D6,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  96.     
  97. DEFINE_GUID(IID_IOTAProcess,0x34B2E2D2,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  98. DEFINE_GUID(IID_IOTADebuggerNotifier,0x34B2E2D8,0xE36F,0x11D1,0xAB,0x0E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  99.     
  100. DEFINE_GUID(IID_IOTADebuggerServices,0x0E3B9D7A,0xE119,0x11D1,0xAB,0x0C,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  101.     
  102. DEFINE_GUID(IID_IOTAIDENotifier,0xE052204F,0xECE9,0x11D1,0xAB,0x19,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  103. DEFINE_GUID(IID_IOTAWizard,0xB75C0CE0,0xEEA6,0x11D1,0x95,0x04,0x00,0x60,0x8C,0xCB,0xF1,0x53);
  104. DEFINE_GUID(IID_IOTARepositoryWizard,0xB75C0CE1,0xEEA6,0x11D1,0x95,0x04,0x00,0x60,0x8C,0xCB,0xF1,0x53);
  105.     
  106. DEFINE_GUID(IID_IOTAFormWizard,0x36C8BF35,0xEFFE,0x11D1,0xAB,0x1D,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  107. DEFINE_GUID(IID_IOTAProjectWizard,0x36C8BF36,0xEFFE,0x11D1,0xAB,0x1D,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  108.     
  109. DEFINE_GUID(IID_IOTAMenuWizard,0xB75C0CE2,0xEEA6,0x11D1,0x95,0x04,0x00,0x60,0x8C,0xCB,0xF1,0x53);
  110. DEFINE_GUID(IID_IOTAWizardServices,0xB75C0CE3,0xEEA6,0x11D1,0x95,0x04,0x00,0x60,0x8C,0xCB,0xF1,0x53);
  111.     
  112. DEFINE_GUID(IID_IOTAPackageServices,0x26EB0E4D,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  113.     
  114. DEFINE_GUID(IID_INTACustomMessage,0x589BBDA1,0xF995,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  115.     
  116. DEFINE_GUID(IID_INTACustomDrawMessage,0x589BBDA2,0xF995,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  117.     
  118. DEFINE_GUID(IID_IOTAMessageServices,0x26EB0E4E,0xF97B,0x11D1,0xAB,0x27,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  119.     
  120. DEFINE_GUID(IID_IOTAEnvironmentOptions,0x9C0E91FB,0xFA5A,0x11D1,0xAB,0x28,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  121.     
  122. DEFINE_GUID(IID_INTAServices,0x3C7F3267,0xF0BF,0x11D1,0xAB,0x1E,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  123. DEFINE_GUID(IID_IOTAServices,0x7FD1CE91,0xE053,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  124. DEFINE_GUID(IID_IBorlandIDEServices,0x7FD1CE92,0xE053,0x11D1,0xAB,0x0B,0x00,0xC0,0x4F,0xB1,0x6F,0xB3);
  125.     
  126.  
  127. namespace Toolsapi
  128. {
  129. //-- type declarations -------------------------------------------------------
  130. #pragma option push -b-
  131. enum TOTACompileMode { cmOTAMake, cmOTABuild, cmOTACheck, cmOTAMakeUnit };
  132. #pragma option pop
  133.  
  134. typedef int TOTAModuleType;
  135.  
  136. typedef void *TOTAHandle;
  137.  
  138. #pragma pack(push, 1)
  139. struct TOTAEditPos
  140. {
  141.     short Col;
  142.     int Line;
  143. } ;
  144. #pragma pack(pop)
  145.  
  146. #pragma pack(push, 1)
  147. struct TOTACharPos
  148. {
  149.     short CharIndex;
  150.     int Line;
  151. } ;
  152. #pragma pack(pop)
  153.  
  154. #pragma pack(push, 4)
  155. struct TOTAOptionName
  156. {
  157.     AnsiString Name;
  158.     Typinfo::TTypeKind Kind;
  159. } ;
  160. #pragma pack(pop)
  161.  
  162. typedef DynamicArray<TOTAOptionName >  TOTAOptionNameArray;
  163.  
  164. class DELPHICLASS IOTANotifier;
  165. #pragma pack(push, 4)
  166. class PASCALIMPLEMENTATION IOTANotifier : public IUnknown 
  167. {
  168.     typedef IUnknown inherited;
  169.     
  170. public:
  171.     virtual void __fastcall AfterSave(void) = 0 ;
  172.     virtual void __fastcall BeforeSave(void) = 0 ;
  173.     virtual void __fastcall Destroyed(void) = 0 ;
  174.     virtual void __fastcall Modified(void) = 0 ;
  175. public:
  176.     #pragma option push -w-inl
  177.     /* IUnknown.Destroy */ inline __fastcall ~IOTANotifier(void) { }
  178.     #pragma option pop
  179.     
  180. public:
  181.     #pragma option push -w-inl
  182.     /* TObject.Create */ inline __fastcall IOTANotifier(void) : IUnknown() { }
  183.     #pragma option pop
  184.     
  185. };
  186.  
  187. #pragma pack(pop)
  188.  
  189. class DELPHICLASS IOTAEditorNotifier;
  190. class DELPHICLASS IOTAEditView;
  191. #pragma pack(push, 4)
  192. class PASCALIMPLEMENTATION IOTAEditorNotifier : public IOTANotifier 
  193. {
  194.     typedef IOTANotifier inherited;
  195.     
  196. public:
  197.     virtual void __fastcall ViewNotification(const IOTAEditView* View, Classes::TOperation Operation) = 0 
  198.         ;
  199.     virtual void __fastcall ViewActivated(const IOTAEditView* View) = 0 ;
  200. public:
  201.     #pragma option push -w-inl
  202.     /* IUnknown.Destroy */ inline __fastcall ~IOTAEditorNotifier(void) { }
  203.     #pragma option pop
  204.     
  205. public:
  206.     #pragma option push -w-inl
  207.     /* TObject.Create */ inline __fastcall IOTAEditorNotifier(void) : IOTANotifier() { }
  208.     #pragma option pop
  209.     
  210. };
  211.  
  212. #pragma pack(pop)
  213.  
  214. class DELPHICLASS IOTAFormNotifier;
  215. #pragma pack(push, 4)
  216. class PASCALIMPLEMENTATION IOTAFormNotifier : public IOTANotifier 
  217. {
  218.     typedef IOTANotifier inherited;
  219.     
  220. public:
  221.     virtual void __fastcall FormActivated(void) = 0 ;
  222.     virtual void __fastcall FormSaving(void) = 0 ;
  223.     virtual void __fastcall ComponentRenamed(void * ComponentHandle, const AnsiString OldName, const AnsiString 
  224.         NewName) = 0 ;
  225. public:
  226.     #pragma option push -w-inl
  227.     /* IUnknown.Destroy */ inline __fastcall ~IOTAFormNotifier(void) { }
  228.     #pragma option pop
  229.     
  230. public:
  231.     #pragma option push -w-inl
  232.     /* TObject.Create */ inline __fastcall IOTAFormNotifier(void) : IOTANotifier() { }
  233.     #pragma option pop
  234.     
  235. };
  236.  
  237. #pragma pack(pop)
  238.  
  239. class DELPHICLASS IOTAEditor;
  240. class DELPHICLASS IOTAModule;
  241. #pragma pack(push, 4)
  242. class PASCALIMPLEMENTATION IOTAEditor : public IUnknown 
  243. {
  244.     typedef IUnknown inherited;
  245.     
  246. public:
  247.     virtual int __fastcall AddNotifier(const IOTANotifier* ANotifier) = 0 ;
  248.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  249.     virtual bool __fastcall GetModified(void) = 0 ;
  250.     virtual IOTAModule* __fastcall GetModule(void) = 0 ;
  251.     virtual bool __fastcall MarkModified(void) = 0 ;
  252.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  253.     virtual void __fastcall Show(void) = 0 ;
  254. public:
  255.     #pragma option push -w-inl
  256.     /* IUnknown.Destroy */ inline __fastcall ~IOTAEditor(void) { }
  257.     #pragma option pop
  258.     
  259. public:
  260.     #pragma option push -w-inl
  261.     /* TObject.Create */ inline __fastcall IOTAEditor(void) : IUnknown() { }
  262.     #pragma option pop
  263.     
  264. };
  265.  
  266. #pragma pack(pop)
  267.  
  268. class DELPHICLASS IOTAEditReader;
  269. #pragma pack(push, 4)
  270. class PASCALIMPLEMENTATION IOTAEditReader : public IUnknown 
  271. {
  272.     typedef IUnknown inherited;
  273.     
  274. public:
  275.     virtual int __fastcall GetText(int Position, char * Buffer, int Count) = 0 ;
  276. public:
  277.     #pragma option push -w-inl
  278.     /* IUnknown.Destroy */ inline __fastcall ~IOTAEditReader(void) { }
  279.     #pragma option pop
  280.     
  281. public:
  282.     #pragma option push -w-inl
  283.     /* TObject.Create */ inline __fastcall IOTAEditReader(void) : IUnknown() { }
  284.     #pragma option pop
  285.     
  286. };
  287.  
  288. #pragma pack(pop)
  289.  
  290. class DELPHICLASS IOTAEditWriter;
  291. #pragma pack(push, 4)
  292. class PASCALIMPLEMENTATION IOTAEditWriter : public IUnknown 
  293. {
  294.     typedef IUnknown inherited;
  295.     
  296. public:
  297.     virtual void __fastcall CopyTo(int Pos) = 0 ;
  298.     virtual void __fastcall DeleteTo(int Pos) = 0 ;
  299.     virtual void __fastcall Insert(char * Text) = 0 ;
  300.     virtual int __fastcall Position(void) = 0 ;
  301.     virtual TOTACharPos __fastcall GetCurrentPos(void) = 0 ;
  302. public:
  303.     #pragma option push -w-inl
  304.     /* IUnknown.Destroy */ inline __fastcall ~IOTAEditWriter(void) { }
  305.     #pragma option pop
  306.     
  307. public:
  308.     #pragma option push -w-inl
  309.     /* TObject.Create */ inline __fastcall IOTAEditWriter(void) : IUnknown() { }
  310.     #pragma option pop
  311.     
  312. };
  313.  
  314. #pragma pack(pop)
  315.  
  316. #pragma pack(push, 4)
  317. class PASCALIMPLEMENTATION IOTAEditView : public IUnknown 
  318. {
  319.     typedef IUnknown inherited;
  320.     
  321. public:
  322.     virtual TOTAEditPos __fastcall GetCursorPos(void) = 0 ;
  323.     virtual void __fastcall SetCursorPos(const TOTAEditPos &Value) = 0 ;
  324.     virtual TOTAEditPos __fastcall GetTopPos(void) = 0 ;
  325.     virtual void __fastcall SetTopPos(const TOTAEditPos &Value) = 0 ;
  326.     virtual tagSIZE __fastcall GetViewSize(void) = 0 ;
  327.     virtual TOTACharPos __fastcall PosToCharPos(int Pos) = 0 ;
  328.     virtual int __fastcall CharPosToPos(const TOTACharPos &CharPos) = 0 ;
  329.     virtual void __fastcall ConvertPos(bool CharPosToEdPos, TOTAEditPos &EditPos, TOTACharPos &CharPos)
  330.          = 0 ;
  331.     virtual void __fastcall GetAttributeAtPos(const TOTAEditPos &EdPos, bool IncludeMargin, int &Element
  332.         , int &LineFlag) = 0 ;
  333.     virtual bool __fastcall SameView(IOTAEditView* EditView) = 0 ;
  334. public:
  335.     #pragma option push -w-inl
  336.     /* IUnknown.Destroy */ inline __fastcall ~IOTAEditView(void) { }
  337.     #pragma option pop
  338.     
  339. public:
  340.     #pragma option push -w-inl
  341.     /* TObject.Create */ inline __fastcall IOTAEditView(void) : IUnknown() { }
  342.     #pragma option pop
  343.     
  344. };
  345.  
  346. #pragma pack(pop)
  347.  
  348. #pragma option push -b-
  349. enum TOTASyntaxHighlighter { shNone, shPascal, shC, shSQL, shQuery };
  350. #pragma option pop
  351.  
  352. #pragma option push -b-
  353. enum TOTABlockType { btInclusive, btLine, btColumn, btNonInclusive, btUnknown };
  354. #pragma option pop
  355.  
  356. class DELPHICLASS IOTASourceEditor;
  357. #pragma pack(push, 4)
  358. class PASCALIMPLEMENTATION IOTASourceEditor : public IOTAEditor 
  359. {
  360.     typedef IOTAEditor inherited;
  361.     
  362. public:
  363.     virtual IOTAEditReader* __fastcall CreateReader(void) = 0 ;
  364.     virtual IOTAEditWriter* __fastcall CreateWriter(void) = 0 ;
  365.     virtual IOTAEditWriter* __fastcall CreateUndoableWriter(void) = 0 ;
  366.     virtual int __fastcall GetEditViewCount(void) = 0 ;
  367.     virtual IOTAEditView* __fastcall GetEditView(int Index) = 0 ;
  368.     virtual int __fastcall GetLinesInBuffer(void) = 0 ;
  369.     virtual TOTASyntaxHighlighter __fastcall SetSyntaxHighlighter(TOTASyntaxHighlighter SyntaxHighlighter
  370.         ) = 0 ;
  371.     virtual TOTACharPos __fastcall GetBlockAfter(void) = 0 ;
  372.     virtual TOTACharPos __fastcall GetBlockStart(void) = 0 ;
  373.     virtual TOTABlockType __fastcall GetBlockType(void) = 0 ;
  374.     virtual bool __fastcall GetBlockVisible(void) = 0 ;
  375.     virtual void __fastcall SetBlockAfter(const TOTACharPos &Value) = 0 ;
  376.     virtual void __fastcall SetBlockStart(const TOTACharPos &Value) = 0 ;
  377.     virtual void __fastcall SetBlockType(TOTABlockType Value) = 0 ;
  378.     virtual void __fastcall SetBlockVisible(bool Value) = 0 ;
  379. public:
  380.     #pragma option push -w-inl
  381.     /* IUnknown.Destroy */ inline __fastcall ~IOTASourceEditor(void) { }
  382.     #pragma option pop
  383.     
  384. public:
  385.     #pragma option push -w-inl
  386.     /* TObject.Create */ inline __fastcall IOTASourceEditor(void) : IOTAEditor() { }
  387.     #pragma option pop
  388.     
  389. };
  390.  
  391. #pragma pack(pop)
  392.  
  393. #pragma option push -b-
  394. enum TOTAResHeaderValue { hvFlags, hvLanguage, hvDataVersion, hvVersion, hvCharacteristics };
  395. #pragma option pop
  396.  
  397. class DELPHICLASS IOTAResourceEntry;
  398. #pragma pack(push, 4)
  399. class PASCALIMPLEMENTATION IOTAResourceEntry : public IUnknown 
  400. {
  401.     typedef IUnknown inherited;
  402.     
  403. public:
  404.     virtual char * __fastcall GetResourceType(void) = 0 ;
  405.     virtual char * __fastcall GetResourceName(void) = 0 ;
  406.     virtual bool __fastcall Change(char * NewType, char * NewName) = 0 ;
  407.     virtual bool __fastcall GetHeaderValue(TOTAResHeaderValue HeaderValue, int &Value) = 0 ;
  408.     virtual bool __fastcall SetHeaderValue(TOTAResHeaderValue HeaderValue, int Value) = 0 ;
  409.     virtual void * __fastcall GetData(void) = 0 ;
  410.     virtual int __fastcall GetDataSize(void) = 0 ;
  411.     virtual void __fastcall SetDataSize(int NewSize) = 0 ;
  412.     virtual void * __fastcall GetEntryHandle(void) = 0 ;
  413. public:
  414.     #pragma option push -w-inl
  415.     /* IUnknown.Destroy */ inline __fastcall ~IOTAResourceEntry(void) { }
  416.     #pragma option pop
  417.     
  418. public:
  419.     #pragma option push -w-inl
  420.     /* TObject.Create */ inline __fastcall IOTAResourceEntry(void) : IUnknown() { }
  421.     #pragma option pop
  422.     
  423. };
  424.  
  425. #pragma pack(pop)
  426.  
  427. class DELPHICLASS IOTAProjectResource;
  428. #pragma pack(push, 4)
  429. class PASCALIMPLEMENTATION IOTAProjectResource : public IOTAEditor 
  430. {
  431.     typedef IOTAEditor inherited;
  432.     
  433. public:
  434.     virtual int __fastcall GetEntryCount(void) = 0 ;
  435.     virtual IOTAResourceEntry* __fastcall GetEntry(int Index) = 0 ;
  436.     virtual IOTAResourceEntry* __fastcall GetEntryFromHandle(void * EntryHandle) = 0 ;
  437.     virtual IOTAResourceEntry* __fastcall FindEntry(char * ResType, char * Name) = 0 ;
  438.     virtual void __fastcall DeleteEntry(void * EntryHandle) = 0 ;
  439.     virtual IOTAResourceEntry* __fastcall CreateEntry(char * ResType, char * Name, Word Flags, Word LanguageId
  440.         , int DataVersion, int Version, int Characteristics) = 0 ;
  441. public:
  442.     #pragma option push -w-inl
  443.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProjectResource(void) { }
  444.     #pragma option pop
  445.     
  446. public:
  447.     #pragma option push -w-inl
  448.     /* TObject.Create */ inline __fastcall IOTAProjectResource(void) : IOTAEditor() { }
  449.     #pragma option pop
  450.     
  451. };
  452.  
  453. #pragma pack(pop)
  454.  
  455. class DELPHICLASS IOTAComponent;
  456. typedef void __fastcall (__closure *TOTAGetChildCallback)(void * Param, IOTAComponent* Component, bool 
  457.     &Result);
  458.  
  459. class DELPHICLASS INTAComponent;
  460. #pragma pack(push, 4)
  461. class PASCALIMPLEMENTATION INTAComponent : public IUnknown 
  462. {
  463.     typedef IUnknown inherited;
  464.     
  465. public:
  466.     virtual Classes::TPersistent* __fastcall GetPersistent(void) = 0 ;
  467.     virtual Classes::TComponent* __fastcall GetComponent(void) = 0 ;
  468. public:
  469.     #pragma option push -w-inl
  470.     /* IUnknown.Destroy */ inline __fastcall ~INTAComponent(void) { }
  471.     #pragma option pop
  472.     
  473. public:
  474.     #pragma option push -w-inl
  475.     /* TObject.Create */ inline __fastcall INTAComponent(void) : IUnknown() { }
  476.     #pragma option pop
  477.     
  478. };
  479.  
  480. #pragma pack(pop)
  481.  
  482. #pragma pack(push, 4)
  483. class PASCALIMPLEMENTATION IOTAComponent : public IUnknown 
  484. {
  485.     typedef IUnknown inherited;
  486.     
  487. public:
  488.     virtual AnsiString __fastcall GetComponentType(void) = 0 ;
  489.     virtual void * __fastcall GetComponentHandle(void) = 0 ;
  490.     virtual IOTAComponent* __fastcall GetParent(void) = 0 ;
  491.     virtual bool __fastcall IsTControl(void) = 0 ;
  492.     virtual int __fastcall GetPropCount(void) = 0 ;
  493.     virtual AnsiString __fastcall GetPropName(int Index) = 0 ;
  494.     virtual Typinfo::TTypeKind __fastcall GetPropType(int Index) = 0 ;
  495.     virtual Typinfo::TTypeKind __fastcall GetPropTypeByName(const AnsiString Name) = 0 ;
  496.     virtual bool __fastcall GetPropValue(int Index, void *Value) = 0 ;
  497.     virtual bool __fastcall GetPropValueByName(const AnsiString Name, void *Value) = 0 ;
  498.     virtual bool __fastcall SetProp(int Index, const void *Value) = 0 ;
  499.     virtual bool __fastcall SetPropByName(const AnsiString Name, const void *Value) = 0 ;
  500.     virtual bool __fastcall GetChildren(void * Param, TOTAGetChildCallback Proc) = 0 ;
  501.     virtual int __fastcall GetControlCount(void) = 0 ;
  502.     virtual IOTAComponent* __fastcall GetControl(int Index) = 0 ;
  503.     virtual int __fastcall GetComponentCount(void) = 0 ;
  504.     virtual IOTAComponent* __fastcall GetComponent(int Index) = 0 ;
  505.     virtual bool __fastcall Select(bool AddToSelection) = 0 ;
  506.     virtual bool __fastcall Focus(bool AddToSelection) = 0 ;
  507.     virtual bool __fastcall Delete(void) = 0 ;
  508.     virtual Dsgnintf::_di_IPersistent __fastcall GetIPersistent(void) = 0 ;
  509.     virtual Dsgnintf::_di_IComponent __fastcall GetIComponent(void) = 0 ;
  510. public:
  511.     #pragma option push -w-inl
  512.     /* IUnknown.Destroy */ inline __fastcall ~IOTAComponent(void) { }
  513.     #pragma option pop
  514.     
  515. public:
  516.     #pragma option push -w-inl
  517.     /* TObject.Create */ inline __fastcall IOTAComponent(void) : IUnknown() { }
  518.     #pragma option pop
  519.     
  520. };
  521.  
  522. #pragma pack(pop)
  523.  
  524. class DELPHICLASS INTAFormEditor;
  525. #pragma pack(push, 4)
  526. class PASCALIMPLEMENTATION INTAFormEditor : public IUnknown 
  527. {
  528.     typedef IUnknown inherited;
  529.     
  530. public:
  531.     virtual Dsgnintf::_di_IFormDesigner __fastcall GetFormDesigner(void) = 0 ;
  532.     virtual void __fastcall GetFormResource(Classes::TStream* Stream) = 0 ;
  533. public:
  534.     #pragma option push -w-inl
  535.     /* IUnknown.Destroy */ inline __fastcall ~INTAFormEditor(void) { }
  536.     #pragma option pop
  537.     
  538. public:
  539.     #pragma option push -w-inl
  540.     /* TObject.Create */ inline __fastcall INTAFormEditor(void) : IUnknown() { }
  541.     #pragma option pop
  542.     
  543. };
  544.  
  545. #pragma pack(pop)
  546.  
  547. class DELPHICLASS IOTAFormEditor;
  548. #pragma pack(push, 4)
  549. class PASCALIMPLEMENTATION IOTAFormEditor : public IOTAEditor 
  550. {
  551.     typedef IOTAEditor inherited;
  552.     
  553. public:
  554.     virtual IOTAComponent* __fastcall GetRootComponent(void) = 0 ;
  555.     virtual IOTAComponent* __fastcall FindComponent(const AnsiString Name) = 0 ;
  556.     virtual IOTAComponent* __fastcall GetComponentFromHandle(void * ComponentHandle) = 0 ;
  557.     virtual int __fastcall GetSelCount(void) = 0 ;
  558.     virtual IOTAComponent* __fastcall GetSelComponent(int Index) = 0 ;
  559.     virtual IOTAComponent* __fastcall GetCreateParent(void) = 0 ;
  560.     virtual IOTAComponent* __fastcall CreateComponent(const IOTAComponent* Container, const AnsiString 
  561.         TypeName, int X, int Y, int W, int H) = 0 ;
  562.     virtual void __fastcall GetFormResource(const IStream* Stream) = 0 ;
  563. public:
  564.     #pragma option push -w-inl
  565.     /* IUnknown.Destroy */ inline __fastcall ~IOTAFormEditor(void) { }
  566.     #pragma option pop
  567.     
  568. public:
  569.     #pragma option push -w-inl
  570.     /* TObject.Create */ inline __fastcall IOTAFormEditor(void) : IOTAEditor() { }
  571.     #pragma option pop
  572.     
  573. };
  574.  
  575. #pragma pack(pop)
  576.  
  577. class DELPHICLASS IOTATypeLibEditor;
  578. #pragma pack(push, 4)
  579. class PASCALIMPLEMENTATION IOTATypeLibEditor : public IOTAEditor 
  580. {
  581.     typedef IOTAEditor inherited;
  582.     
  583. public:
  584.     #pragma option push -w-inl
  585.     /* IUnknown.Destroy */ inline __fastcall ~IOTATypeLibEditor(void) { }
  586.     #pragma option pop
  587.     
  588. public:
  589.     #pragma option push -w-inl
  590.     /* TObject.Create */ inline __fastcall IOTATypeLibEditor(void) : IOTAEditor() { }
  591.     #pragma option pop
  592.     
  593. };
  594.  
  595. #pragma pack(pop)
  596.  
  597. class DELPHICLASS IOTAModuleNotifier;
  598. #pragma pack(push, 4)
  599. class PASCALIMPLEMENTATION IOTAModuleNotifier : public IOTANotifier 
  600. {
  601.     typedef IOTANotifier inherited;
  602.     
  603. public:
  604.     virtual bool __fastcall CheckOverwrite(void) = 0 ;
  605.     virtual void __fastcall ModuleRenamed(const AnsiString NewName) = 0 ;
  606. public:
  607.     #pragma option push -w-inl
  608.     /* IUnknown.Destroy */ inline __fastcall ~IOTAModuleNotifier(void) { }
  609.     #pragma option pop
  610.     
  611. public:
  612.     #pragma option push -w-inl
  613.     /* TObject.Create */ inline __fastcall IOTAModuleNotifier(void) : IOTANotifier() { }
  614.     #pragma option pop
  615.     
  616. };
  617.  
  618. #pragma pack(pop)
  619.  
  620. class DELPHICLASS IOTAModuleInfo;
  621. #pragma pack(push, 4)
  622. class PASCALIMPLEMENTATION IOTAModuleInfo : public IUnknown 
  623. {
  624.     typedef IUnknown inherited;
  625.     
  626. public:
  627.     virtual TOTAModuleType __fastcall GetModuleType(void) = 0 ;
  628.     virtual AnsiString __fastcall GetName(void) = 0 ;
  629.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  630.     virtual AnsiString __fastcall GetFormName(void) = 0 ;
  631.     virtual AnsiString __fastcall GetDesignClass(void) = 0 ;
  632.     virtual void __fastcall GetCoClasses(Classes::TStrings* CoClasses) = 0 ;
  633.     virtual IOTAModule* __fastcall OpenModule(void) = 0 ;
  634. public:
  635.     #pragma option push -w-inl
  636.     /* IUnknown.Destroy */ inline __fastcall ~IOTAModuleInfo(void) { }
  637.     #pragma option pop
  638.     
  639. public:
  640.     #pragma option push -w-inl
  641.     /* TObject.Create */ inline __fastcall IOTAModuleInfo(void) : IUnknown() { }
  642.     #pragma option pop
  643.     
  644. };
  645.  
  646. #pragma pack(pop)
  647.  
  648. class DELPHICLASS IOTAProject;
  649. #pragma pack(push, 4)
  650. class PASCALIMPLEMENTATION IOTAModule : public IUnknown 
  651. {
  652.     typedef IUnknown inherited;
  653.     
  654. public:
  655.     virtual int __fastcall AddNotifier(const IOTAModuleNotifier* ANotifier) = 0 ;
  656.     virtual void __fastcall AddToInterface(void) = 0 ;
  657.     virtual bool __fastcall Close(void) = 0 ;
  658.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  659.     virtual AnsiString __fastcall GetFileSystem(void) = 0 ;
  660.     virtual int __fastcall GetModuleFileCount(void) = 0 ;
  661.     virtual IOTAEditor* __fastcall GetModuleFileEditor(int Index) = 0 ;
  662.     virtual int __fastcall GetOwnerCount(void) = 0 ;
  663.     virtual IOTAProject* __fastcall GetOwner(int Index) = 0 ;
  664.     virtual bool __fastcall HasCoClasses(void) = 0 ;
  665.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  666.     virtual bool __fastcall Save(bool ChangeName, bool ForceSave) = 0 ;
  667.     virtual void __fastcall SetFileName(const AnsiString AFileName) = 0 ;
  668.     virtual void __fastcall SetFileSystem(const AnsiString AFileSystem) = 0 ;
  669. public:
  670.     #pragma option push -w-inl
  671.     /* IUnknown.Destroy */ inline __fastcall ~IOTAModule(void) { }
  672.     #pragma option pop
  673.     
  674. public:
  675.     #pragma option push -w-inl
  676.     /* TObject.Create */ inline __fastcall IOTAModule(void) : IUnknown() { }
  677.     #pragma option pop
  678.     
  679. };
  680.  
  681. #pragma pack(pop)
  682.  
  683. class DELPHICLASS IOTATypeLibModule;
  684. #pragma pack(push, 4)
  685. class PASCALIMPLEMENTATION IOTATypeLibModule : public IOTAModule 
  686. {
  687.     typedef IOTAModule inherited;
  688.     
  689. public:
  690.     #pragma option push -w-inl
  691.     /* IUnknown.Destroy */ inline __fastcall ~IOTATypeLibModule(void) { }
  692.     #pragma option pop
  693.     
  694. public:
  695.     #pragma option push -w-inl
  696.     /* TObject.Create */ inline __fastcall IOTATypeLibModule(void) : IOTAModule() { }
  697.     #pragma option pop
  698.     
  699. };
  700.  
  701. #pragma pack(pop)
  702.  
  703. class DELPHICLASS IOTAOptions;
  704. #pragma pack(push, 4)
  705. class PASCALIMPLEMENTATION IOTAOptions : public IUnknown 
  706. {
  707.     typedef IUnknown inherited;
  708.     
  709. public:
  710.     virtual void __fastcall EditOptions(void) = 0 ;
  711.     virtual Variant __fastcall GetOptionValue(const AnsiString ValueName) = 0 ;
  712.     virtual void __fastcall SetOptionValue(const AnsiString ValueName, const Variant &Value) = 0 ;
  713.     virtual TOTAOptionNameArray __fastcall GetOptionNames(void) = 0 ;
  714.     __property Variant Values[AnsiString ValueName] = {read=GetOptionValue, write=SetOptionValue};
  715. public:
  716.         
  717.     #pragma option push -w-inl
  718.     /* IUnknown.Destroy */ inline __fastcall ~IOTAOptions(void) { }
  719.     #pragma option pop
  720.     
  721. public:
  722.     #pragma option push -w-inl
  723.     /* TObject.Create */ inline __fastcall IOTAOptions(void) : IUnknown() { }
  724.     #pragma option pop
  725.     
  726. };
  727.  
  728. #pragma pack(pop)
  729.  
  730. class DELPHICLASS IOTAProjectOptions;
  731. #pragma pack(push, 4)
  732. class PASCALIMPLEMENTATION IOTAProjectOptions : public IOTAOptions 
  733. {
  734.     typedef IOTAOptions inherited;
  735.     
  736. public:
  737.     #pragma option push -w-inl
  738.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProjectOptions(void) { }
  739.     #pragma option pop
  740.     
  741. public:
  742.     #pragma option push -w-inl
  743.     /* TObject.Create */ inline __fastcall IOTAProjectOptions(void) : IOTAOptions() { }
  744.     #pragma option pop
  745.     
  746. };
  747.  
  748. #pragma pack(pop)
  749.  
  750. class DELPHICLASS IOTAProjectBuilder;
  751. #pragma pack(push, 4)
  752. class PASCALIMPLEMENTATION IOTAProjectBuilder : public IUnknown 
  753. {
  754.     typedef IUnknown inherited;
  755.     
  756. public:
  757.     virtual bool __fastcall GetShouldBuild(void) = 0 ;
  758.     virtual bool __fastcall BuildProject(TOTACompileMode CompileMode, bool Wait) = 0 ;
  759. public:
  760.     #pragma option push -w-inl
  761.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProjectBuilder(void) { }
  762.     #pragma option pop
  763.     
  764. public:
  765.     #pragma option push -w-inl
  766.     /* TObject.Create */ inline __fastcall IOTAProjectBuilder(void) : IUnknown() { }
  767.     #pragma option pop
  768.     
  769. };
  770.  
  771. #pragma pack(pop)
  772.  
  773. #pragma pack(push, 4)
  774. class PASCALIMPLEMENTATION IOTAProject : public IOTAModule 
  775. {
  776.     typedef IOTAModule inherited;
  777.     
  778. public:
  779.     virtual int __fastcall GetModuleCount(void) = 0 ;
  780.     virtual IOTAModuleInfo* __fastcall GetModule(int Index) = 0 ;
  781.     virtual IOTAProjectOptions* __fastcall GetProjectOptions(void) = 0 ;
  782.     virtual IOTAProjectBuilder* __fastcall GetProjectBuilder(void) = 0 ;
  783. public:
  784.     #pragma option push -w-inl
  785.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProject(void) { }
  786.     #pragma option pop
  787.     
  788. public:
  789.     #pragma option push -w-inl
  790.     /* TObject.Create */ inline __fastcall IOTAProject(void) : IOTAModule() { }
  791.     #pragma option pop
  792.     
  793. };
  794.  
  795. #pragma pack(pop)
  796.  
  797. class DELPHICLASS IOTAProjectGroup;
  798. #pragma pack(push, 4)
  799. class PASCALIMPLEMENTATION IOTAProjectGroup : public IOTAModule 
  800. {
  801.     typedef IOTAModule inherited;
  802.     
  803. public:
  804.     virtual void __fastcall AddNewProject(void) = 0 ;
  805.     virtual void __fastcall AddExistingProject(void) = 0 ;
  806.     virtual IOTAProject* __fastcall GetActiveProject(void) = 0 ;
  807.     virtual int __fastcall GetProjectCount(void) = 0 ;
  808.     virtual IOTAProject* __fastcall GetProject(int Index) = 0 ;
  809.     virtual void __fastcall RemoveProject(const IOTAProject* AProject) = 0 ;
  810.     virtual void __fastcall SetActiveProject(const IOTAProject* AProject) = 0 ;
  811. public:
  812.     #pragma option push -w-inl
  813.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProjectGroup(void) { }
  814.     #pragma option pop
  815.     
  816. public:
  817.     #pragma option push -w-inl
  818.     /* TObject.Create */ inline __fastcall IOTAProjectGroup(void) : IOTAModule() { }
  819.     #pragma option pop
  820.     
  821. };
  822.  
  823. #pragma pack(pop)
  824.  
  825. class DELPHICLASS IOTAActionServices;
  826. #pragma pack(push, 4)
  827. class PASCALIMPLEMENTATION IOTAActionServices : public IUnknown 
  828. {
  829.     typedef IUnknown inherited;
  830.     
  831. public:
  832.     virtual bool __fastcall CloseFile(const AnsiString FileName) = 0 ;
  833.     virtual bool __fastcall OpenFile(const AnsiString FileName) = 0 ;
  834.     virtual bool __fastcall OpenProject(const AnsiString ProjName, bool NewProjGroup) = 0 ;
  835.     virtual bool __fastcall ReloadFile(const AnsiString FileName) = 0 ;
  836.     virtual bool __fastcall SaveFile(const AnsiString FileName) = 0 ;
  837. public:
  838.     #pragma option push -w-inl
  839.     /* IUnknown.Destroy */ inline __fastcall ~IOTAActionServices(void) { }
  840.     #pragma option pop
  841.     
  842. public:
  843.     #pragma option push -w-inl
  844.     /* TObject.Create */ inline __fastcall IOTAActionServices(void) : IUnknown() { }
  845.     #pragma option pop
  846.     
  847. };
  848.  
  849. #pragma pack(pop)
  850.  
  851. class DELPHICLASS IOTAFileSystem;
  852. #pragma pack(push, 4)
  853. class PASCALIMPLEMENTATION IOTAFileSystem : public IUnknown 
  854. {
  855.     typedef IUnknown inherited;
  856.     
  857. public:
  858.     virtual IStream* __fastcall GetFileStream(const AnsiString FileName, int Mode) = 0 ;
  859.     virtual int __fastcall FileAge(const AnsiString FileName) = 0 ;
  860.     virtual bool __fastcall RenameFile(const AnsiString OldName, const AnsiString NewName) = 0 ;
  861.     virtual bool __fastcall IsReadonly(const AnsiString FileName) = 0 ;
  862.     virtual bool __fastcall IsFileBased(void) = 0 ;
  863.     virtual bool __fastcall DeleteFile(const AnsiString FileName) = 0 ;
  864.     virtual bool __fastcall FileExists(const AnsiString FileName) = 0 ;
  865.     virtual AnsiString __fastcall GetTempFileName(const AnsiString FileName) = 0 ;
  866.     virtual AnsiString __fastcall GetBackupFileName(const AnsiString FileName) = 0 ;
  867.     virtual AnsiString __fastcall GetIDString(void) = 0 ;
  868. public:
  869.     #pragma option push -w-inl
  870.     /* IUnknown.Destroy */ inline __fastcall ~IOTAFileSystem(void) { }
  871.     #pragma option pop
  872.     
  873. public:
  874.     #pragma option push -w-inl
  875.     /* TObject.Create */ inline __fastcall IOTAFileSystem(void) : IUnknown() { }
  876.     #pragma option pop
  877.     
  878. };
  879.  
  880. #pragma pack(pop)
  881.  
  882. class DELPHICLASS IOTAFile;
  883. #pragma pack(push, 4)
  884. class PASCALIMPLEMENTATION IOTAFile : public IUnknown 
  885. {
  886.     typedef IUnknown inherited;
  887.     
  888. public:
  889.     virtual AnsiString __fastcall GetSource(void) = 0 ;
  890.     virtual System::TDateTime __fastcall GetAge(void) = 0 ;
  891. public:
  892.     #pragma option push -w-inl
  893.     /* IUnknown.Destroy */ inline __fastcall ~IOTAFile(void) { }
  894.     #pragma option pop
  895.     
  896. public:
  897.     #pragma option push -w-inl
  898.     /* TObject.Create */ inline __fastcall IOTAFile(void) : IUnknown() { }
  899.     #pragma option pop
  900.     
  901. };
  902.  
  903. #pragma pack(pop)
  904.  
  905. class DELPHICLASS IOTACreator;
  906. #pragma pack(push, 4)
  907. class PASCALIMPLEMENTATION IOTACreator : public IUnknown 
  908. {
  909.     typedef IUnknown inherited;
  910.     
  911. public:
  912.     virtual AnsiString __fastcall GetCreatorType(void) = 0 ;
  913.     virtual bool __fastcall GetExisting(void) = 0 ;
  914.     virtual AnsiString __fastcall GetFileSystem(void) = 0 ;
  915.     virtual IOTAModule* __fastcall GetOwner(void) = 0 ;
  916.     virtual bool __fastcall GetUnnamed(void) = 0 ;
  917. public:
  918.     #pragma option push -w-inl
  919.     /* IUnknown.Destroy */ inline __fastcall ~IOTACreator(void) { }
  920.     #pragma option pop
  921.     
  922. public:
  923.     #pragma option push -w-inl
  924.     /* TObject.Create */ inline __fastcall IOTACreator(void) : IUnknown() { }
  925.     #pragma option pop
  926.     
  927. };
  928.  
  929. #pragma pack(pop)
  930.  
  931. class DELPHICLASS IOTAModuleCreator;
  932. #pragma pack(push, 4)
  933. class PASCALIMPLEMENTATION IOTAModuleCreator : public IOTACreator 
  934. {
  935.     typedef IOTACreator inherited;
  936.     
  937. public:
  938.     virtual AnsiString __fastcall GetAncestorName(void) = 0 ;
  939.     virtual AnsiString __fastcall GetImplFileName(void) = 0 ;
  940.     virtual AnsiString __fastcall GetIntfFileName(void) = 0 ;
  941.     virtual AnsiString __fastcall GetFormName(void) = 0 ;
  942.     virtual bool __fastcall GetMainForm(void) = 0 ;
  943.     virtual bool __fastcall GetShowForm(void) = 0 ;
  944.     virtual bool __fastcall GetShowSource(void) = 0 ;
  945.     virtual IOTAFile* __fastcall NewFormFile(const AnsiString FormIdent, const AnsiString AncestorIdent
  946.         ) = 0 ;
  947.     virtual IOTAFile* __fastcall NewImplSource(const AnsiString ModuleIdent, const AnsiString FormIdent
  948.         , const AnsiString AncestorIdent) = 0 ;
  949.     virtual IOTAFile* __fastcall NewIntfSource(const AnsiString ModuleIdent, const AnsiString FormIdent
  950.         , const AnsiString AncestorIdent) = 0 ;
  951.     virtual void __fastcall FormCreated(const IOTAFormEditor* FormEditor) = 0 ;
  952. public:
  953.     #pragma option push -w-inl
  954.     /* IUnknown.Destroy */ inline __fastcall ~IOTAModuleCreator(void) { }
  955.     #pragma option pop
  956.     
  957. public:
  958.     #pragma option push -w-inl
  959.     /* TObject.Create */ inline __fastcall IOTAModuleCreator(void) : IOTACreator() { }
  960.     #pragma option pop
  961.     
  962. };
  963.  
  964. #pragma pack(pop)
  965.  
  966. class DELPHICLASS IOTAProjectCreator;
  967. #pragma pack(push, 4)
  968. class PASCALIMPLEMENTATION IOTAProjectCreator : public IOTACreator 
  969. {
  970.     typedef IOTACreator inherited;
  971.     
  972. public:
  973.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  974.     virtual AnsiString __fastcall GetOptionFileName(void) = 0 ;
  975.     virtual bool __fastcall GetShowSource(void) = 0 ;
  976.     virtual void __fastcall NewDefaultModule(void) = 0 ;
  977.     virtual IOTAFile* __fastcall NewOptionSource(const AnsiString ProjectName) = 0 ;
  978.     virtual void __fastcall NewProjectResource(const IOTAProject* Project) = 0 ;
  979.     virtual IOTAFile* __fastcall NewProjectSource(const AnsiString ProjectName) = 0 ;
  980. public:
  981.     #pragma option push -w-inl
  982.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProjectCreator(void) { }
  983.     #pragma option pop
  984.     
  985. public:
  986.     #pragma option push -w-inl
  987.     /* TObject.Create */ inline __fastcall IOTAProjectCreator(void) : IOTACreator() { }
  988.     #pragma option pop
  989.     
  990. };
  991.  
  992. #pragma pack(pop)
  993.  
  994. class DELPHICLASS IOTAProjectGroupCreator;
  995. #pragma pack(push, 4)
  996. class PASCALIMPLEMENTATION IOTAProjectGroupCreator : public IOTACreator 
  997. {
  998.     typedef IOTACreator inherited;
  999.     
  1000. public:
  1001.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  1002.     virtual bool __fastcall GetShowSource(void) = 0 ;
  1003.     virtual IOTAFile* __fastcall NewProjectGroupSource(const AnsiString ProjectGroupName) = 0 ;
  1004. public:
  1005.     #pragma option push -w-inl
  1006.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProjectGroupCreator(void) { }
  1007.     #pragma option pop
  1008.     
  1009. public:
  1010.     #pragma option push -w-inl
  1011.     /* TObject.Create */ inline __fastcall IOTAProjectGroupCreator(void) : IOTACreator() { }
  1012.     #pragma option pop
  1013.     
  1014. };
  1015.  
  1016. #pragma pack(pop)
  1017.  
  1018. class DELPHICLASS IOTAModuleServices;
  1019. #pragma pack(push, 4)
  1020. class PASCALIMPLEMENTATION IOTAModuleServices : public IUnknown 
  1021. {
  1022.     typedef IUnknown inherited;
  1023.     
  1024. public:
  1025.     virtual int __fastcall AddFileSystem(IOTAFileSystem* FileSystem) = 0 ;
  1026.     virtual bool __fastcall CloseAll(void) = 0 ;
  1027.     virtual IOTAModule* __fastcall CreateModule(const IOTACreator* Creator) = 0 ;
  1028.     virtual IOTAModule* __fastcall CurrentModule(void) = 0 ;
  1029.     virtual IOTAFileSystem* __fastcall FindFileSystem(const AnsiString Name) = 0 ;
  1030.     virtual IOTAModule* __fastcall FindFormModule(const AnsiString FormName) = 0 ;
  1031.     virtual IOTAModule* __fastcall FindModule(const AnsiString FileName) = 0 ;
  1032.     virtual int __fastcall GetModuleCount(void) = 0 ;
  1033.     virtual IOTAModule* __fastcall GetModule(int Index) = 0 ;
  1034.     virtual void __fastcall GetNewModuleAndClassName(const AnsiString Prefix, AnsiString &UnitIdent, AnsiString 
  1035.         &ClassName, AnsiString &FileName) = 0 ;
  1036.     virtual bool __fastcall NewModule(void) = 0 ;
  1037.     virtual void __fastcall RemoveFileSystem(int Index) = 0 ;
  1038.     virtual bool __fastcall SaveAll(void) = 0 ;
  1039. public:
  1040.     #pragma option push -w-inl
  1041.     /* IUnknown.Destroy */ inline __fastcall ~IOTAModuleServices(void) { }
  1042.     #pragma option pop
  1043.     
  1044. public:
  1045.     #pragma option push -w-inl
  1046.     /* TObject.Create */ inline __fastcall IOTAModuleServices(void) : IUnknown() { }
  1047.     #pragma option pop
  1048.     
  1049. };
  1050.  
  1051. #pragma pack(pop)
  1052.  
  1053. #pragma option push -b-
  1054. enum TOTATriggerResult { trStop, trContinue, trDefault };
  1055. #pragma option pop
  1056.  
  1057. #pragma option push -b-
  1058. enum TOTAAccessType { atRead, atWrite, atExecute };
  1059. #pragma option pop
  1060.  
  1061. #pragma option push -b-
  1062. enum TOTARunMode { ormRun, ormRunToEntry, ormRunToMain, ormRunToCursor, ormStmtStepInto, ormStmtStepOver, 
  1063.     ormInstStepInto, ormInstStepOver, ormStmtStepToSource, ormReserved1, rmReserved2, rmReserved3 };
  1064. #pragma option pop
  1065.  
  1066. class DELPHICLASS IOTABreakpointNotifier;
  1067. #pragma pack(push, 4)
  1068. class PASCALIMPLEMENTATION IOTABreakpointNotifier : public IOTANotifier 
  1069. {
  1070.     typedef IOTANotifier inherited;
  1071.     
  1072. public:
  1073.     virtual bool __fastcall Edit(bool AllowKeyChanges) = 0 ;
  1074.     virtual TOTATriggerResult __fastcall Trigger(void) = 0 ;
  1075.     virtual void __fastcall Verified(bool Enabled, bool Valid) = 0 ;
  1076. public:
  1077.     #pragma option push -w-inl
  1078.     /* IUnknown.Destroy */ inline __fastcall ~IOTABreakpointNotifier(void) { }
  1079.     #pragma option pop
  1080.     
  1081. public:
  1082.     #pragma option push -w-inl
  1083.     /* TObject.Create */ inline __fastcall IOTABreakpointNotifier(void) : IOTANotifier() { }
  1084.     #pragma option pop
  1085.     
  1086. };
  1087.  
  1088. #pragma pack(pop)
  1089.  
  1090. class DELPHICLASS IOTABreakpoint;
  1091. class DELPHICLASS IOTAProcess;
  1092. #pragma pack(push, 4)
  1093. class PASCALIMPLEMENTATION IOTABreakpoint : public IUnknown 
  1094. {
  1095.     typedef IUnknown inherited;
  1096.     
  1097. public:
  1098.     virtual int __fastcall AddNotifier(const IOTABreakpointNotifier* Notifier) = 0 ;
  1099.     virtual void __fastcall Destruct(void) = 0 ;
  1100.     virtual bool __fastcall DefaultTrigger(void) = 0 ;
  1101.     virtual bool __fastcall DecPassCount(void) = 0 ;
  1102.     virtual void __fastcall Edit(bool AllowKeyChanges) = 0 ;
  1103.     virtual bool __fastcall EvaluateExpression(void) = 0 ;
  1104.     virtual bool __fastcall GetEnabled(void) = 0 ;
  1105.     virtual AnsiString __fastcall GetExpression(void) = 0 ;
  1106.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  1107.     virtual int __fastcall GetLineNumber(void) = 0 ;
  1108.     virtual int __fastcall GetCurPassCount(void) = 0 ;
  1109.     virtual int __fastcall GetPassCount(void) = 0 ;
  1110.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1111.     virtual void __fastcall ResetPassCount(void) = 0 ;
  1112.     virtual void __fastcall SetFileName(const AnsiString Value) = 0 ;
  1113.     virtual void __fastcall SetLineNumber(int Value) = 0 ;
  1114.     virtual void __fastcall SetEnabled(bool Value) = 0 ;
  1115.     virtual void __fastcall SetExpression(const AnsiString Value) = 0 ;
  1116.     virtual void __fastcall SetPassCount(int Value) = 0 ;
  1117.     virtual bool __fastcall ValidInCurrentProcess(void) = 0 ;
  1118.     virtual bool __fastcall ValidInProcess(IOTAProcess* Process) = 0 ;
  1119. public:
  1120.     #pragma option push -w-inl
  1121.     /* IUnknown.Destroy */ inline __fastcall ~IOTABreakpoint(void) { }
  1122.     #pragma option pop
  1123.     
  1124. public:
  1125.     #pragma option push -w-inl
  1126.     /* TObject.Create */ inline __fastcall IOTABreakpoint(void) : IUnknown() { }
  1127.     #pragma option pop
  1128.     
  1129. };
  1130.  
  1131. #pragma pack(pop)
  1132.  
  1133. class DELPHICLASS IOTASourceBreakpoint;
  1134. #pragma pack(push, 4)
  1135. class PASCALIMPLEMENTATION IOTASourceBreakpoint : public IOTABreakpoint 
  1136. {
  1137.     typedef IOTABreakpoint inherited;
  1138.     
  1139. public:
  1140.     #pragma option push -w-inl
  1141.     /* IUnknown.Destroy */ inline __fastcall ~IOTASourceBreakpoint(void) { }
  1142.     #pragma option pop
  1143.     
  1144. public:
  1145.     #pragma option push -w-inl
  1146.     /* TObject.Create */ inline __fastcall IOTASourceBreakpoint(void) : IOTABreakpoint() { }
  1147.     #pragma option pop
  1148.     
  1149. };
  1150.  
  1151. #pragma pack(pop)
  1152.  
  1153. class DELPHICLASS IOTAAddressBreakpoint;
  1154. #pragma pack(push, 4)
  1155. class PASCALIMPLEMENTATION IOTAAddressBreakpoint : public IOTABreakpoint 
  1156. {
  1157.     typedef IOTABreakpoint inherited;
  1158.     
  1159. public:
  1160.     virtual unsigned __fastcall Address(void) = 0 ;
  1161.     virtual unsigned __fastcall AddressInProcess(IOTAProcess* Process) = 0 ;
  1162.     virtual TOTAAccessType __fastcall GetAccessType(void) = 0 ;
  1163.     virtual AnsiString __fastcall GetDataExpr(void) = 0 ;
  1164.     virtual int __fastcall GetLineSize(void) = 0 ;
  1165.     virtual int __fastcall GetLineOffset(void) = 0 ;
  1166.     virtual AnsiString __fastcall GetModuleName(void) = 0 ;
  1167. public:
  1168.     #pragma option push -w-inl
  1169.     /* IUnknown.Destroy */ inline __fastcall ~IOTAAddressBreakpoint(void) { }
  1170.     #pragma option pop
  1171.     
  1172. public:
  1173.     #pragma option push -w-inl
  1174.     /* TObject.Create */ inline __fastcall IOTAAddressBreakpoint(void) : IOTABreakpoint() { }
  1175.     #pragma option pop
  1176.     
  1177. };
  1178.  
  1179. #pragma pack(pop)
  1180.  
  1181. #pragma option push -b-
  1182. enum TOTANotifyReason { nrOther, nrRunning, nrStopped, nrException, nrFault };
  1183. #pragma option pop
  1184.  
  1185. class DELPHICLASS IOTAThreadNotifier;
  1186. #pragma pack(push, 4)
  1187. class PASCALIMPLEMENTATION IOTAThreadNotifier : public IOTANotifier 
  1188. {
  1189.     typedef IOTANotifier inherited;
  1190.     
  1191. public:
  1192.     virtual void __fastcall ThreadNotify(TOTANotifyReason Reason) = 0 ;
  1193.     virtual void __fastcall EvaluteComplete(const AnsiString ExprStr, const AnsiString ResultStr, bool 
  1194.         CanModify, unsigned ResultAddress, unsigned ResultSize, int ReturnCode) = 0 ;
  1195.     virtual void __fastcall ModifyComplete(const AnsiString ExprStr, const AnsiString ResultStr, int ReturnCode
  1196.         ) = 0 ;
  1197. public:
  1198.     #pragma option push -w-inl
  1199.     /* IUnknown.Destroy */ inline __fastcall ~IOTAThreadNotifier(void) { }
  1200.     #pragma option pop
  1201.     
  1202. public:
  1203.     #pragma option push -w-inl
  1204.     /* TObject.Create */ inline __fastcall IOTAThreadNotifier(void) : IOTANotifier() { }
  1205.     #pragma option pop
  1206.     
  1207. };
  1208.  
  1209. #pragma pack(pop)
  1210.  
  1211. #pragma option push -b-
  1212. enum TOTAEvaluateResult { erOK, erError, erDeferred };
  1213. #pragma option pop
  1214.  
  1215. #pragma option push -b-
  1216. enum TOTAThreadState { tsStopped, tsRunnable, tsBlocked, tsNone };
  1217. #pragma option pop
  1218.  
  1219. class DELPHICLASS IOTAThread;
  1220. #pragma pack(push, 4)
  1221. class PASCALIMPLEMENTATION IOTAThread : public IUnknown 
  1222. {
  1223.     typedef IUnknown inherited;
  1224.     
  1225. public:
  1226.     virtual int __fastcall AddNotifier(const IOTAThreadNotifier* Notifier) = 0 ;
  1227.     virtual TOTAEvaluateResult __fastcall Evaluate(const AnsiString ExprStr, char * ResultStr, unsigned 
  1228.         ResultStrSize, /* out */ bool &CanModify, bool AllowSideEffects, char * FormatSpecifiers, /* out */ 
  1229.         unsigned &ResultAddr, /* out */ unsigned &ResultSize, /* out */ unsigned &ResultVal) = 0 ;
  1230.     virtual TOTAEvaluateResult __fastcall Modify(const AnsiString ValueStr, char * ResultStr, unsigned 
  1231.         ResultSize, /* out */ int &ResultVal) = 0 ;
  1232.     virtual int __fastcall GetCallCount(void) = 0 ;
  1233.     virtual AnsiString __fastcall GetCallHeader(int Index) = 0 ;
  1234.     virtual void __fastcall GetCallPos(int Index, /* out */ AnsiString &FileName, /* out */ int &LineNum
  1235.         ) = 0 ;
  1236.     virtual AnsiString __fastcall GetCurrentFile(void) = 0 ;
  1237.     virtual unsigned __fastcall GetCurrentLine(void) = 0 ;
  1238.     virtual _CONTEXT __fastcall GetContext(void) = 0 ;
  1239.     virtual unsigned __fastcall GetHandle(void) = 0 ;
  1240.     virtual unsigned __fastcall GetOSThreadID(void) = 0 ;
  1241.     virtual TOTAThreadState __fastcall GetState(void) = 0 ;
  1242.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1243. public:
  1244.     #pragma option push -w-inl
  1245.     /* IUnknown.Destroy */ inline __fastcall ~IOTAThread(void) { }
  1246.     #pragma option pop
  1247.     
  1248. public:
  1249.     #pragma option push -w-inl
  1250.     /* TObject.Create */ inline __fastcall IOTAThread(void) : IUnknown() { }
  1251.     #pragma option pop
  1252.     
  1253. };
  1254.  
  1255. #pragma pack(pop)
  1256.  
  1257. class DELPHICLASS IOTAProcessModNotifier;
  1258. #pragma pack(push, 4)
  1259. class PASCALIMPLEMENTATION IOTAProcessModNotifier : public IOTANotifier 
  1260. {
  1261.     typedef IOTANotifier inherited;
  1262.     
  1263. public:
  1264.     #pragma option push -w-inl
  1265.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProcessModNotifier(void) { }
  1266.     #pragma option pop
  1267.     
  1268. public:
  1269.     #pragma option push -w-inl
  1270.     /* TObject.Create */ inline __fastcall IOTAProcessModNotifier(void) : IOTANotifier() { }
  1271.     #pragma option pop
  1272.     
  1273. };
  1274.  
  1275. #pragma pack(pop)
  1276.  
  1277. class DELPHICLASS IOTAProcessModule;
  1278. #pragma pack(push, 4)
  1279. class PASCALIMPLEMENTATION IOTAProcessModule : public IUnknown 
  1280. {
  1281.     typedef IUnknown inherited;
  1282.     
  1283. public:
  1284.     virtual int __fastcall AddNotifier(const IOTAProcessModNotifier* Notifier) = 0 ;
  1285.     virtual int __fastcall GetCompUnitCount(void) = 0 ;
  1286.     virtual AnsiString __fastcall GetCompUnit(int Index) = 0 ;
  1287.     virtual int __fastcall GetCompUnitFileCount(int Index) = 0 ;
  1288.     virtual AnsiString __fastcall GetCompUnitFileName(int CompIndex, int FileIndex) = 0 ;
  1289.     virtual unsigned __fastcall GetEntryPoint(void) = 0 ;
  1290.     virtual unsigned __fastcall GetBaseAddress(void) = 0 ;
  1291.     virtual int __fastcall GetFileCount(void) = 0 ;
  1292.     virtual AnsiString __fastcall GetFileName(int Index) = 0 ;
  1293.     virtual int __fastcall GetModuleEntryPointCount(void) = 0 ;
  1294.     virtual AnsiString __fastcall GetModuleEntryPoint(int Index) = 0 ;
  1295.     virtual unsigned __fastcall GetModuleEntryPointAddress(int Index) = 0 ;
  1296.     virtual AnsiString __fastcall GetModuleFileName(void) = 0 ;
  1297.     virtual AnsiString __fastcall GetModuleName(void) = 0 ;
  1298.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1299. public:
  1300.     #pragma option push -w-inl
  1301.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProcessModule(void) { }
  1302.     #pragma option pop
  1303.     
  1304. public:
  1305.     #pragma option push -w-inl
  1306.     /* TObject.Create */ inline __fastcall IOTAProcessModule(void) : IUnknown() { }
  1307.     #pragma option pop
  1308.     
  1309. };
  1310.  
  1311. #pragma pack(pop)
  1312.  
  1313. class DELPHICLASS IOTAProcessNotifier;
  1314. #pragma pack(push, 4)
  1315. class PASCALIMPLEMENTATION IOTAProcessNotifier : public IOTANotifier 
  1316. {
  1317.     typedef IOTANotifier inherited;
  1318.     
  1319. public:
  1320.     virtual void __fastcall ThreadCreated(IOTAThread* Thread) = 0 ;
  1321.     virtual void __fastcall ThreadDestroyed(IOTAThread* Thread) = 0 ;
  1322.     virtual void __fastcall ProcessModuleCreated(IOTAProcessModule* ProcessModule) = 0 ;
  1323.     virtual void __fastcall ProcessModuleDestroyed(IOTAProcessModule* ProcessModule) = 0 ;
  1324. public:
  1325.     #pragma option push -w-inl
  1326.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProcessNotifier(void) { }
  1327.     #pragma option pop
  1328.     
  1329. public:
  1330.     #pragma option push -w-inl
  1331.     /* TObject.Create */ inline __fastcall IOTAProcessNotifier(void) : IOTANotifier() { }
  1332.     #pragma option pop
  1333.     
  1334. };
  1335.  
  1336. #pragma pack(pop)
  1337.  
  1338. #pragma pack(push, 4)
  1339. class PASCALIMPLEMENTATION IOTAProcess : public IUnknown 
  1340. {
  1341.     typedef IUnknown inherited;
  1342.     
  1343. public:
  1344.     virtual int __fastcall AddNotifier(const IOTAProcessNotifier* Notifier) = 0 ;
  1345.     virtual IOTAThread* __fastcall GetCurrentThread(void) = 0 ;
  1346.     virtual int __fastcall GetThreadCount(void) = 0 ;
  1347.     virtual IOTAThread* __fastcall GetThread(int Index) = 0 ;
  1348.     virtual unsigned __fastcall GetProcessId(void) = 0 ;
  1349.     virtual void __fastcall Pause(void) = 0 ;
  1350.     virtual int __fastcall ReadProcessMemory(unsigned Address, int Count, void *Buffer) = 0 ;
  1351.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1352.     virtual void __fastcall Run(TOTARunMode RunMode) = 0 ;
  1353.     virtual void __fastcall SetCurrentThread(IOTAThread* Value) = 0 ;
  1354.     virtual void __fastcall Terminate(void) = 0 ;
  1355.     virtual int __fastcall WriteProcessMemory(unsigned Address, int Count, void *Buffer) = 0 ;
  1356. public:
  1357.     #pragma option push -w-inl
  1358.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProcess(void) { }
  1359.     #pragma option pop
  1360.     
  1361. public:
  1362.     #pragma option push -w-inl
  1363.     /* TObject.Create */ inline __fastcall IOTAProcess(void) : IUnknown() { }
  1364.     #pragma option pop
  1365.     
  1366. };
  1367.  
  1368. #pragma pack(pop)
  1369.  
  1370. class DELPHICLASS IOTADebuggerNotifier;
  1371. #pragma pack(push, 4)
  1372. class PASCALIMPLEMENTATION IOTADebuggerNotifier : public IOTANotifier 
  1373. {
  1374.     typedef IOTANotifier inherited;
  1375.     
  1376. public:
  1377.     virtual void __fastcall ProcessCreated(IOTAProcess* Process) = 0 ;
  1378.     virtual void __fastcall ProcessDestroyed(IOTAProcess* Process) = 0 ;
  1379.     virtual void __fastcall BreakpointAdded(IOTABreakpoint* Breakpoint) = 0 ;
  1380.     virtual void __fastcall BreakpointDeleted(IOTABreakpoint* Breakpoint) = 0 ;
  1381. public:
  1382.     #pragma option push -w-inl
  1383.     /* IUnknown.Destroy */ inline __fastcall ~IOTADebuggerNotifier(void) { }
  1384.     #pragma option pop
  1385.     
  1386. public:
  1387.     #pragma option push -w-inl
  1388.     /* TObject.Create */ inline __fastcall IOTADebuggerNotifier(void) : IOTANotifier() { }
  1389.     #pragma option pop
  1390.     
  1391. };
  1392.  
  1393. #pragma pack(pop)
  1394.  
  1395. typedef void __fastcall (*TEnumerateProcessesCallback)(unsigned Pid, const AnsiString ProcessName, void * 
  1396.     Param);
  1397.  
  1398. class DELPHICLASS IOTADebuggerServices;
  1399. #pragma pack(push, 4)
  1400. class PASCALIMPLEMENTATION IOTADebuggerServices : public IUnknown 
  1401. {
  1402.     typedef IUnknown inherited;
  1403.     
  1404. public:
  1405.     virtual int __fastcall AddNotifier(const IOTADebuggerNotifier* Notifier) = 0 ;
  1406.     virtual void __fastcall AttachProcess(int Pid, const AnsiString RemoteHost) = 0 ;
  1407.     virtual void __fastcall CreateProcess(const AnsiString ExeName, const AnsiString Args, const AnsiString 
  1408.         RemoteHost) = 0 ;
  1409.     virtual void __fastcall EnumerateRunningProcesses(TEnumerateProcessesCallback Callback, void * Param
  1410.         , const AnsiString HostName) = 0 ;
  1411.     virtual int __fastcall GetAddressBkptCount(void) = 0 ;
  1412.     virtual IOTAAddressBreakpoint* __fastcall GetAddressBkpt(int Index) = 0 ;
  1413.     virtual IOTAProcess* __fastcall GetCurrentProcess(void) = 0 ;
  1414.     virtual int __fastcall GetProcessCount(void) = 0 ;
  1415.     virtual IOTAProcess* __fastcall GetProcess(int Index) = 0 ;
  1416.     virtual int __fastcall GetSourceBkptCount(void) = 0 ;
  1417.     virtual IOTASourceBreakpoint* __fastcall GetSourceBkpt(int Index) = 0 ;
  1418.     virtual void __fastcall LogString(const AnsiString LogStr) = 0 ;
  1419.     virtual IOTABreakpoint* __fastcall NewAddressBreakpoint(unsigned Address, unsigned Length, TOTAAccessType 
  1420.         AccessType, IOTAProcess* AProcess) = 0 ;
  1421.     virtual IOTABreakpoint* __fastcall NewModuleBreakpoint(const AnsiString ModuleName, IOTAProcess* AProcess
  1422.         ) = 0 ;
  1423.     virtual IOTABreakpoint* __fastcall NewSourceBreakpoint(const AnsiString FileName, int LineNumber, IOTAProcess* 
  1424.         AProcess) = 0 ;
  1425.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1426.     virtual void __fastcall SetCurrentProcess(IOTAProcess* Process) = 0 ;
  1427. public:
  1428.     #pragma option push -w-inl
  1429.     /* IUnknown.Destroy */ inline __fastcall ~IOTADebuggerServices(void) { }
  1430.     #pragma option pop
  1431.     
  1432. public:
  1433.     #pragma option push -w-inl
  1434.     /* TObject.Create */ inline __fastcall IOTADebuggerServices(void) : IUnknown() { }
  1435.     #pragma option pop
  1436.     
  1437. };
  1438.  
  1439. #pragma pack(pop)
  1440.  
  1441. #pragma option push -b-
  1442. enum TOTAFileNotification { ofnFileOpening, ofnFileOpened, ofnFileClosing, ofnDefaultDesktopLoad, ofnDefaultDesktopSave, 
  1443.     ofnProjectDesktopLoad, ofnProjectDesktopSave, ofnPackageInstalled, ofnPackageUninstalled };
  1444. #pragma option pop
  1445.  
  1446. class DELPHICLASS IOTAIDENotifier;
  1447. #pragma pack(push, 4)
  1448. class PASCALIMPLEMENTATION IOTAIDENotifier : public IOTANotifier 
  1449. {
  1450.     typedef IOTANotifier inherited;
  1451.     
  1452. public:
  1453.     virtual void __fastcall FileNotification(TOTAFileNotification NotifyCode, const AnsiString FileName
  1454.         , bool &Cancel) = 0 ;
  1455.     virtual void __fastcall BeforeCompile(const IOTAProject* Project, bool &Cancel) = 0 ;
  1456.     virtual void __fastcall AfterCompile(bool Succeeded) = 0 ;
  1457. public:
  1458.     #pragma option push -w-inl
  1459.     /* IUnknown.Destroy */ inline __fastcall ~IOTAIDENotifier(void) { }
  1460.     #pragma option pop
  1461.     
  1462. public:
  1463.     #pragma option push -w-inl
  1464.     /* TObject.Create */ inline __fastcall IOTAIDENotifier(void) : IOTANotifier() { }
  1465.     #pragma option pop
  1466.     
  1467. };
  1468.  
  1469. #pragma pack(pop)
  1470.  
  1471. #pragma option push -b-
  1472. enum ToolsAPI__84 { wsEnabled, wsChecked };
  1473. #pragma option pop
  1474.  
  1475. typedef Set<ToolsAPI__84, wsEnabled, wsChecked>  TWizardState;
  1476.  
  1477. class DELPHICLASS IOTAWizard;
  1478. #pragma pack(push, 4)
  1479. class PASCALIMPLEMENTATION IOTAWizard : public IOTANotifier 
  1480. {
  1481.     typedef IOTANotifier inherited;
  1482.     
  1483. public:
  1484.     virtual AnsiString __fastcall GetIDString(void) = 0 ;
  1485.     virtual AnsiString __fastcall GetName(void) = 0 ;
  1486.     virtual TWizardState __fastcall GetState(void) = 0 ;
  1487.     virtual void __fastcall Execute(void) = 0 ;
  1488. public:
  1489.     #pragma option push -w-inl
  1490.     /* IUnknown.Destroy */ inline __fastcall ~IOTAWizard(void) { }
  1491.     #pragma option pop
  1492.     
  1493. public:
  1494.     #pragma option push -w-inl
  1495.     /* TObject.Create */ inline __fastcall IOTAWizard(void) : IOTANotifier() { }
  1496.     #pragma option pop
  1497.     
  1498. };
  1499.  
  1500. #pragma pack(pop)
  1501.  
  1502. class DELPHICLASS IOTARepositoryWizard;
  1503. #pragma pack(push, 4)
  1504. class PASCALIMPLEMENTATION IOTARepositoryWizard : public IOTAWizard 
  1505. {
  1506.     typedef IOTAWizard inherited;
  1507.     
  1508. public:
  1509.     virtual AnsiString __fastcall GetAuthor(void) = 0 ;
  1510.     virtual AnsiString __fastcall GetComment(void) = 0 ;
  1511.     virtual AnsiString __fastcall GetPage(void) = 0 ;
  1512.     virtual HICON __fastcall GetGlyph(void) = 0 ;
  1513. public:
  1514.     #pragma option push -w-inl
  1515.     /* IUnknown.Destroy */ inline __fastcall ~IOTARepositoryWizard(void) { }
  1516.     #pragma option pop
  1517.     
  1518. public:
  1519.     #pragma option push -w-inl
  1520.     /* TObject.Create */ inline __fastcall IOTARepositoryWizard(void) : IOTAWizard() { }
  1521.     #pragma option pop
  1522.     
  1523. };
  1524.  
  1525. #pragma pack(pop)
  1526.  
  1527. class DELPHICLASS IOTAFormWizard;
  1528. #pragma pack(push, 4)
  1529. class PASCALIMPLEMENTATION IOTAFormWizard : public IOTARepositoryWizard 
  1530. {
  1531.     typedef IOTARepositoryWizard inherited;
  1532.     
  1533. public:
  1534.     #pragma option push -w-inl
  1535.     /* IUnknown.Destroy */ inline __fastcall ~IOTAFormWizard(void) { }
  1536.     #pragma option pop
  1537.     
  1538. public:
  1539.     #pragma option push -w-inl
  1540.     /* TObject.Create */ inline __fastcall IOTAFormWizard(void) : IOTARepositoryWizard() { }
  1541.     #pragma option pop
  1542.     
  1543. };
  1544.  
  1545. #pragma pack(pop)
  1546.  
  1547. class DELPHICLASS IOTAProjectWizard;
  1548. #pragma pack(push, 4)
  1549. class PASCALIMPLEMENTATION IOTAProjectWizard : public IOTARepositoryWizard 
  1550. {
  1551.     typedef IOTARepositoryWizard inherited;
  1552.     
  1553. public:
  1554.     #pragma option push -w-inl
  1555.     /* IUnknown.Destroy */ inline __fastcall ~IOTAProjectWizard(void) { }
  1556.     #pragma option pop
  1557.     
  1558. public:
  1559.     #pragma option push -w-inl
  1560.     /* TObject.Create */ inline __fastcall IOTAProjectWizard(void) : IOTARepositoryWizard() { }
  1561.     #pragma option pop
  1562.     
  1563. };
  1564.  
  1565. #pragma pack(pop)
  1566.  
  1567. class DELPHICLASS IOTAMenuWizard;
  1568. #pragma pack(push, 4)
  1569. class PASCALIMPLEMENTATION IOTAMenuWizard : public IOTAWizard 
  1570. {
  1571.     typedef IOTAWizard inherited;
  1572.     
  1573. public:
  1574.     virtual AnsiString __fastcall GetMenuText(void) = 0 ;
  1575. public:
  1576.     #pragma option push -w-inl
  1577.     /* IUnknown.Destroy */ inline __fastcall ~IOTAMenuWizard(void) { }
  1578.     #pragma option pop
  1579.     
  1580. public:
  1581.     #pragma option push -w-inl
  1582.     /* TObject.Create */ inline __fastcall IOTAMenuWizard(void) : IOTAWizard() { }
  1583.     #pragma option pop
  1584.     
  1585. };
  1586.  
  1587. #pragma pack(pop)
  1588.  
  1589. typedef bool __fastcall (*TWizardRegisterProc)(const IOTAWizard* Wizard);
  1590.  
  1591. typedef void __fastcall (*TWizardTerminateProc)(void);
  1592.  
  1593. class DELPHICLASS IBorlandIDEServices;
  1594. typedef bool __stdcall (*TWizardInitProc)(const IBorlandIDEServices* BorlandIDEServices, TWizardRegisterProc 
  1595.     RegisterProc, TWizardTerminateProc &Terminate);
  1596.  
  1597. class DELPHICLASS IOTAWizardServices;
  1598. #pragma pack(push, 4)
  1599. class PASCALIMPLEMENTATION IOTAWizardServices : public IUnknown 
  1600. {
  1601.     typedef IUnknown inherited;
  1602.     
  1603. public:
  1604.     virtual int __fastcall AddWizard(const IOTAWizard* AWizard) = 0 ;
  1605.     virtual void __fastcall RemoveWizard(int Index) = 0 ;
  1606. public:
  1607.     #pragma option push -w-inl
  1608.     /* IUnknown.Destroy */ inline __fastcall ~IOTAWizardServices(void) { }
  1609.     #pragma option pop
  1610.     
  1611. public:
  1612.     #pragma option push -w-inl
  1613.     /* TObject.Create */ inline __fastcall IOTAWizardServices(void) : IUnknown() { }
  1614.     #pragma option pop
  1615.     
  1616. };
  1617.  
  1618. #pragma pack(pop)
  1619.  
  1620. class DELPHICLASS IOTAPackageServices;
  1621. #pragma pack(push, 4)
  1622. class PASCALIMPLEMENTATION IOTAPackageServices : public IUnknown 
  1623. {
  1624.     typedef IUnknown inherited;
  1625.     
  1626. public:
  1627.     virtual int __fastcall GetPackageCount(void) = 0 ;
  1628.     virtual AnsiString __fastcall GetPackageName(int Index) = 0 ;
  1629.     virtual int __fastcall GetComponentCount(int PkgIndex) = 0 ;
  1630.     virtual AnsiString __fastcall GetComponentName(int PkgIndex, int CompIndex) = 0 ;
  1631. public:
  1632.     #pragma option push -w-inl
  1633.     /* IUnknown.Destroy */ inline __fastcall ~IOTAPackageServices(void) { }
  1634.     #pragma option pop
  1635.     
  1636. public:
  1637.     #pragma option push -w-inl
  1638.     /* TObject.Create */ inline __fastcall IOTAPackageServices(void) : IUnknown() { }
  1639.     #pragma option pop
  1640.     
  1641. };
  1642.  
  1643. #pragma pack(pop)
  1644.  
  1645. class DELPHICLASS IOTACustomMessage;
  1646. #pragma pack(push, 4)
  1647. class PASCALIMPLEMENTATION IOTACustomMessage : public IUnknown 
  1648. {
  1649.     typedef IUnknown inherited;
  1650.     
  1651. public:
  1652.     virtual int __fastcall GetColumnNumber(void) = 0 ;
  1653.     virtual AnsiString __fastcall GetFileName(void) = 0 ;
  1654.     virtual int __fastcall GetLineNumber(void) = 0 ;
  1655.     virtual AnsiString __fastcall GetLineText(void) = 0 ;
  1656.     virtual void __fastcall ShowHelp(void) = 0 ;
  1657. public:
  1658.     #pragma option push -w-inl
  1659.     /* IUnknown.Destroy */ inline __fastcall ~IOTACustomMessage(void) { }
  1660.     #pragma option pop
  1661.     
  1662. public:
  1663.     #pragma option push -w-inl
  1664.     /* TObject.Create */ inline __fastcall IOTACustomMessage(void) : IUnknown() { }
  1665.     #pragma option pop
  1666.     
  1667. };
  1668.  
  1669. #pragma pack(pop)
  1670.  
  1671. class DELPHICLASS INTACustomDrawMessage;
  1672. #pragma pack(push, 4)
  1673. class PASCALIMPLEMENTATION INTACustomDrawMessage : public IOTACustomMessage 
  1674. {
  1675.     typedef IOTACustomMessage inherited;
  1676.     
  1677. public:
  1678.     virtual void __fastcall Draw(Graphics::TCanvas* Canvas, const Windows::TRect &Rect, bool Wrap) = 0 
  1679.         ;
  1680.     virtual Windows::TRect __fastcall CalcRect(Graphics::TCanvas* Canvas, int MaxWidth, bool Wrap) = 0 
  1681.         ;
  1682. public:
  1683.     #pragma option push -w-inl
  1684.     /* IUnknown.Destroy */ inline __fastcall ~INTACustomDrawMessage(void) { }
  1685.     #pragma option pop
  1686.     
  1687. public:
  1688.     #pragma option push -w-inl
  1689.     /* TObject.Create */ inline __fastcall INTACustomDrawMessage(void) : IOTACustomMessage() { }
  1690.     #pragma option pop
  1691.     
  1692. };
  1693.  
  1694. #pragma pack(pop)
  1695.  
  1696. class DELPHICLASS IOTAMessageServices;
  1697. #pragma pack(push, 4)
  1698. class PASCALIMPLEMENTATION IOTAMessageServices : public IUnknown 
  1699. {
  1700.     typedef IUnknown inherited;
  1701.     
  1702. public:
  1703.     virtual void __fastcall AddCustomMessage(const IOTACustomMessage* CustomMsg) = 0 ;
  1704.     virtual void __fastcall AddTitleMessage(const AnsiString MessageStr) = 0 ;
  1705.     virtual void __fastcall AddToolMessage(const AnsiString FileName, const AnsiString MessageStr, const 
  1706.         AnsiString PrefixStr, int LineNumber, int ColumnNumber) = 0 ;
  1707.     virtual void __fastcall ClearAllMessages(void) = 0 ;
  1708.     virtual void __fastcall ClearCompilerMessages(void) = 0 ;
  1709.     virtual void __fastcall ClearSearchMessages(void) = 0 ;
  1710.     virtual void __fastcall ClearToolMessages(void) = 0 ;
  1711. public:
  1712.     #pragma option push -w-inl
  1713.     /* IUnknown.Destroy */ inline __fastcall ~IOTAMessageServices(void) { }
  1714.     #pragma option pop
  1715.     
  1716. public:
  1717.     #pragma option push -w-inl
  1718.     /* TObject.Create */ inline __fastcall IOTAMessageServices(void) : IUnknown() { }
  1719.     #pragma option pop
  1720.     
  1721. };
  1722.  
  1723. #pragma pack(pop)
  1724.  
  1725. class DELPHICLASS IOTAEnvironmentOptions;
  1726. #pragma pack(push, 4)
  1727. class PASCALIMPLEMENTATION IOTAEnvironmentOptions : public IOTAOptions 
  1728. {
  1729.     typedef IOTAOptions inherited;
  1730.     
  1731. public:
  1732.     #pragma option push -w-inl
  1733.     /* IUnknown.Destroy */ inline __fastcall ~IOTAEnvironmentOptions(void) { }
  1734.     #pragma option pop
  1735.     
  1736. public:
  1737.     #pragma option push -w-inl
  1738.     /* TObject.Create */ inline __fastcall IOTAEnvironmentOptions(void) : IOTAOptions() { }
  1739.     #pragma option pop
  1740.     
  1741. };
  1742.  
  1743. #pragma pack(pop)
  1744.  
  1745. class DELPHICLASS INTAServices;
  1746. #pragma pack(push, 4)
  1747. class PASCALIMPLEMENTATION INTAServices : public IUnknown 
  1748. {
  1749.     typedef IUnknown inherited;
  1750.     
  1751. public:
  1752.     virtual int __fastcall AddMasked(Graphics::TBitmap* Image, Graphics::TColor MaskColor) = 0 ;
  1753.     virtual Actnlist::TCustomActionList* __fastcall GetActionList(void) = 0 ;
  1754.     virtual Imglist::TCustomImageList* __fastcall GetImageList(void) = 0 ;
  1755.     virtual Menus::TMainMenu* __fastcall GetMainMenu(void) = 0 ;
  1756.     virtual Comctrls::TToolBar* __fastcall GetToolBar(const AnsiString ToolBarName) = 0 ;
  1757. public:
  1758.     #pragma option push -w-inl
  1759.     /* IUnknown.Destroy */ inline __fastcall ~INTAServices(void) { }
  1760.     #pragma option pop
  1761.     
  1762. public:
  1763.     #pragma option push -w-inl
  1764.     /* TObject.Create */ inline __fastcall INTAServices(void) : IUnknown() { }
  1765.     #pragma option pop
  1766.     
  1767. };
  1768.  
  1769. #pragma pack(pop)
  1770.  
  1771. class DELPHICLASS IOTAServices;
  1772. #pragma pack(push, 4)
  1773. class PASCALIMPLEMENTATION IOTAServices : public IUnknown 
  1774. {
  1775.     typedef IUnknown inherited;
  1776.     
  1777. public:
  1778.     virtual int __fastcall AddNotifier(const IOTAIDENotifier* Notifier) = 0 ;
  1779.     virtual void __fastcall RemoveNotifier(int Index) = 0 ;
  1780.     virtual AnsiString __fastcall GetBaseRegistryKey(void) = 0 ;
  1781.     virtual AnsiString __fastcall GetProductIdentifier(void) = 0 ;
  1782.     virtual HWND __fastcall GetParentHandle(void) = 0 ;
  1783.     virtual IOTAEnvironmentOptions* __fastcall GetEnvironmentOptions(void) = 0 ;
  1784. public:
  1785.     #pragma option push -w-inl
  1786.     /* IUnknown.Destroy */ inline __fastcall ~IOTAServices(void) { }
  1787.     #pragma option pop
  1788.     
  1789. public:
  1790.     #pragma option push -w-inl
  1791.     /* TObject.Create */ inline __fastcall IOTAServices(void) : IUnknown() { }
  1792.     #pragma option pop
  1793.     
  1794. };
  1795.  
  1796. #pragma pack(pop)
  1797.  
  1798. #pragma pack(push, 4)
  1799. class PASCALIMPLEMENTATION IBorlandIDEServices : public IUnknown 
  1800. {
  1801.     typedef IUnknown inherited;
  1802.     
  1803. public:
  1804.     #pragma option push -w-inl
  1805.     /* IUnknown.Destroy */ inline __fastcall ~IBorlandIDEServices(void) { }
  1806.     #pragma option pop
  1807.     
  1808. public:
  1809.     #pragma option push -w-inl
  1810.     /* TObject.Create */ inline __fastcall IBorlandIDEServices(void) : IUnknown() { }
  1811.     #pragma option pop
  1812.     
  1813. };
  1814.  
  1815. #pragma pack(pop)
  1816.  
  1817. //-- var, const, procedure ---------------------------------------------------
  1818. static const Shortint utForm = 0x0;
  1819. static const Shortint utDataModule = 0x1;
  1820. static const Shortint utProjUnit = 0x2;
  1821. static const Shortint utUnit = 0x3;
  1822. static const Shortint utRc = 0x4;
  1823. static const Shortint utAsm = 0x5;
  1824. static const Shortint utDef = 0x6;
  1825. static const Shortint utObj = 0x7;
  1826. static const Shortint utRes = 0x8;
  1827. static const Shortint utLib = 0x9;
  1828. static const Shortint utTypeLib = 0xa;
  1829. static const Shortint utPackageImport = 0xb;
  1830. static const Shortint utFormResource = 0xc;
  1831. static const Shortint utNoMake = 0xd;
  1832. static const Shortint atWhiteSpace = 0x0;
  1833. static const Shortint atComment = 0x1;
  1834. static const Shortint atReservedWord = 0x2;
  1835. static const Shortint atIdentifier = 0x3;
  1836. static const Shortint atSymbol = 0x4;
  1837. static const Shortint atString = 0x5;
  1838. static const Shortint atNumber = 0x6;
  1839. static const Shortint atFloat = 0x7;
  1840. static const Shortint atOctal = 0x8;
  1841. static const Shortint atHex = 0x9;
  1842. static const Shortint atCharacter = 0xa;
  1843. static const Shortint atPreproc = 0xb;
  1844. static const Shortint atIllegal = 0xc;
  1845. static const Shortint atAssembler = 0xd;
  1846. static const Shortint SyntaxOff = 0xe;
  1847. static const Shortint MarkedBlock = 0xf;
  1848. static const Shortint SearchMatch = 0x10;
  1849. static const Shortint lfCurrentEIP = 0x1;
  1850. static const Shortint lfBreakpointEnabled = 0x2;
  1851. static const Shortint lfBreakpointDisabled = 0x4;
  1852. static const Shortint lfBreakpointInvalid = 0x8;
  1853. static const Shortint lfErrorLine = 0x10;
  1854. static const Shortint lfBreakpointVerified = 0x20;
  1855. static const Shortint lfBackgroundBkpt = 0x40;
  1856. static const Byte lfBackgroupEIP = 0x80;
  1857. #define WizardEntryPoint "INITWIZARD0001"
  1858. #define isWizards "Wizards"
  1859. #define sCustomToolBar "CustomToolBar"
  1860. #define sStandardToolBar "StandardToolBar"
  1861. #define sDebugToolBar "DebugToolBar"
  1862. #define sViewToolBar "ViewToolBar"
  1863. #define sApplication "Application"
  1864. #define sLibrary "Library"
  1865. #define sConsole "Console"
  1866. #define sPackage "Package"
  1867. #define sUnit "Unit"
  1868. #define sForm "Form"
  1869. #define sText "Text"
  1870. extern PACKAGE IBorlandIDEServices* BorlandIDEServices;
  1871. extern PACKAGE TWizardRegisterProc LibraryWizardProc;
  1872. extern PACKAGE void __fastcall RegisterPackageWizard(const IOTAWizard* Wizard);
  1873.  
  1874. }    /* namespace Toolsapi */
  1875. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1876. using namespace Toolsapi;
  1877. #endif
  1878. #pragma option pop    // -w-
  1879.  
  1880. #pragma delphiheader end.
  1881. //-- end unit ----------------------------------------------------------------
  1882. #endif    // ToolsAPI
  1883.