**********************************************************************
                     CnPack For Delphi/C++Builder
                    йԼĿԴ
                  (C)Copyright 2001-2025 CnPack 
**********************************************************************

                  ToolsAPI  PascalScript Ӧ޸
                            Revision 1.0.0.1
                       =========================
                        ߣХ 2023.11.21

    CnWizards мɵ Pascal Script ܹűʹ IDE ӿڣҪڱڽÿ汾 IDE Ӧ ToolsAPI.pas ļ Pascal Script עļԱűܹ˳书ܡ֮ǰ CnWizards ֻ D5 Լ D5 ϰ汾汾 IDE  ToolsAPI.pas 仯޷ȫݣҪÿ汾 IDE  ToolsAPI.pas ļ룬˵䣩

ߣ
ʹ Pascal Script 3 װԴ UnitImporter˹߶Դļ﷨ҪϸߣҪתǰ ToolsAPI.pas ¸Ķ

1 function: Boolean stdcall; ĺϷ﷨Pascal Script ΪдҪ stdcall ǰϷֺš

2 GUID  Interface  Pascal Script Ϊ䲻Ϸֻܰ interface ȫɾһ GUID ϡ IOTACodeInsightSymbolList80ҪӸ ['{9D76DD60-0D5A-405B-9695-C1F13092898E}'] GUID  XE7  ToolsAPI иƶעļʱʵʽӿ GUID ޷ͨΪ TGUID ı룬ֻɾ

3ʹ UnitName.Type ַʽҪȥ UnitNameϡ͵ĵط DesignIntf.IDesigner Ҫĳ IDesigner

4 packed record ֻ֧֣ͳͳĳ record˵

5IFDEF LINUX ڲĶȥҪ TGetSrcLinesFunc ֻ pascal

6ṹָ^ɾõĵط滻 Pointer

7TOTAThreadContext ̫޷ʶֻȫɾĵط滻 Pointer˵TOTAXMMRegs/TOTAXMMReg õĵطɾòƲҪ

8TWizardState = set of (wsEnabled, wsChecked) ﷨ Pascal Script ʶ TWizardStateE = (wsEnabled, wsChecked);  TWizardState = set of TWizardStateE; ƵĻ TOTAAlignableState

9{$IFDEF FATCHAR} POTAEdChar = PWideChar; {$ELSE} POTAEdChar = PChar; {$ENDIF} ֻ֣ܱһߡ Unicode 汾 AnsiChar  PAnsiCharøĳ Char  PChar
 
10Ҵ overload ؼĺǲģڵһϺ׺ 1ֻкеģеĲ䣬Ӧ氤 1 2 3ͬʱɾ overload ؼ֡

11еĲĬϲ֧֡񼯺Ϻ string = '' ֣ͳʼֵ ַʼֵ = '' Ҫͳͳɾ = nil  = True ԼöƺԲȥҲת

12Ϊ Pascal Script ޷ BorlandIDEServicesҪע SIRegister_IBorlandIDEServices(CL); һ CL.AddDelphiFunction('Function BorlandIDEServices : IBorlandIDEServices');  RIRegister_ToolsAPI_Routines Ӿ䣺S.RegisterDelphiFunction(@BorlandIDEServices, 'BorlandIDEServices', cdRegister); ҺӸº
function BorlandIDEServices: IBorlandIDEServices;
begin
  Result := ToolsAPI.BorlandIDEServices;
end;

13TOTASyntaxHighlighter = (shNone = 0,  ִֵöٶ壬Pascal Script ֧֣ʹ 0 ʼɾֵǣֻɾȻõĵط Integer

14sCSApplication ĸֱֵӰֵַƹƵĻͳӣ滻ɼĽsvpHighest  Low(Integer) ͵ıʽ

15procedure Destruct; deprecated 'Use IOTADebuggerServices.RemoveBreakpoint';  deprecated һַ˵﷨֧֣øĳprocedure Destruct; deprecated;

16Pascal Script ַ֧ͣ TArray<string> ֻͣ滻 TObject ͨ룬ط޷ʹá

17UInt64 Ͳ֧֣򵥸ĳ Int64 ˡ

תļȻҪ´

18svpHighest ֵָıʽ SetUIntøĳ SetInt

19ϳʱɵַ̫ҪֹӺŷֿС

20D2009 ϰ汾TPSImport_ToolsAPI = class(TPSPlugin) ·Ҫ protected ĳ public 뾯档

⣬XE5  XE6  ToolsAPI.pas ͬXE7 һг塣
