⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 agentobjects_tlb.pas

📁 电脑编程技巧和源码。很不错的。
💻 PAS
📖 第 1 页 / 共 5 页
字号:
unit AgentObjects_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.88  $
// File generated on 1999-11-22 17:23:46 from Type Library described below.

// ************************************************************************ //
// Type Lib: C:\WINDOWS\MSAGENT\AGENTCTL.DLL (1)
// IID\LCID: {F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}\0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\SYSTEM\STDOLE2.TLB)
//   (2) v4.0 StdVCL, (C:\WINDOWS\SYSTEM\STDVCL40.DLL)
// Errors:
//   Hint: Parameter 'On' of IAgentCtlCharacterEx.AutoPopupMenu changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacterEx.AutoPopupMenu changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacterEx.HelpModeOn changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacterEx.HelpModeOn changed to 'On_'
//   Hint: Parameter 'File' of IAgentCtlCharacterEx.HelpFile changed to 'File_'
//   Hint: Parameter 'File' of IAgentCtlCharacterEx.HelpFile changed to 'File_'
//   Hint: Parameter 'On' of IAgentCtlCharacter.IdleOn changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacter.IdleOn changed to 'On_'
//   Hint: Parameter 'Type' of IAgentCtlCharacter.Get changed to 'Type_'
//   Hint: Parameter 'On' of IAgentCtlCharacter.SoundEffectsOn changed to 'On_'
//   Hint: Parameter 'On' of IAgentCtlCharacter.SoundEffectsOn changed to 'On_'
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;

// *********************************************************************//
// 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
  AgentObjectsMajorVersion = 2;
  AgentObjectsMinorVersion = 0;

  LIBID_AgentObjects: TGUID = '{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}';

  IID_IAgentCtlCharacters: TGUID = '{F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlCharacter: TGUID = '{F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlCharacterEx: TGUID = '{DE8EF600-2F82-11D1-ACAC-00C04FD97575}';
  IID_IAgentCtlBalloon: TGUID = '{F5BE8BD3-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlBalloonEx: TGUID = '{822DB1C0-8879-11D1-9EC6-00C04FD7081F}';
  IID_IAgentCtlCommands: TGUID = '{F5BE8BE1-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlCommandsEx: TGUID = '{6BA90C01-3910-11D1-ACB3-00C04FD97575}';
  IID_IAgentCtlCommand: TGUID = '{F5BE8BE3-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlCommandEx: TGUID = '{B0913410-3B44-11D1-ACBA-00C04FD97575}';
  IID_IAgentCtlRequest: TGUID = '{1DAB85C3-803A-11D0-AC63-00C04FD97575}';
  IID_IAgentCtlAnimationNames: TGUID = '{8B77181C-D3EF-11D1-8500-00C04FA34A14}';
  IID_IAgentCtlAudioObject: TGUID = '{F5BE8BDB-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlAudioObjectEx: TGUID = '{F5BE8BF0-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlSpeechInput: TGUID = '{F5BE8BDD-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlPropertySheet: TGUID = '{F5BE8BDF-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlUserInput: TGUID = '{C4ABF875-8100-11D0-AC63-00C04FD97575}';
  IID_IAgentCtlCommandsWindow: TGUID = '{6D0ECB27-9968-11D0-AC6E-00C04FD97575}';
  IID_IAgentCtl: TGUID = '{F5BE8BD1-7DE6-11D0-91FE-00C04FD701A5}';
  IID_IAgentCtlEx: TGUID = '{8563FF20-8ECC-11D1-B9B4-00C04FD97575}';
  DIID__AgentEvents: TGUID = '{F5BE8BD4-7DE6-11D0-91FE-00C04FD701A5}';
  CLASS_Agent: TGUID = '{D45FD31B-5C6E-11D1-9EC1-00C04FD7081F}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IAgentCtlCharacters = interface;
  IAgentCtlCharactersDisp = dispinterface;
  IAgentCtlCharacter = interface;
  IAgentCtlCharacterDisp = dispinterface;
  IAgentCtlCharacterEx = interface;
  IAgentCtlCharacterExDisp = dispinterface;
  IAgentCtlBalloon = interface;
  IAgentCtlBalloonDisp = dispinterface;
  IAgentCtlBalloonEx = interface;
  IAgentCtlBalloonExDisp = dispinterface;
  IAgentCtlCommands = interface;
  IAgentCtlCommandsDisp = dispinterface;
  IAgentCtlCommandsEx = interface;
  IAgentCtlCommandsExDisp = dispinterface;
  IAgentCtlCommand = interface;
  IAgentCtlCommandDisp = dispinterface;
  IAgentCtlCommandEx = interface;
  IAgentCtlCommandExDisp = dispinterface;
  IAgentCtlRequest = interface;
  IAgentCtlRequestDisp = dispinterface;
  IAgentCtlAnimationNames = interface;
  IAgentCtlAnimationNamesDisp = dispinterface;
  IAgentCtlAudioObject = interface;
  IAgentCtlAudioObjectDisp = dispinterface;
  IAgentCtlAudioObjectEx = interface;
  IAgentCtlAudioObjectExDisp = dispinterface;
  IAgentCtlSpeechInput = interface;
  IAgentCtlSpeechInputDisp = dispinterface;
  IAgentCtlPropertySheet = interface;
  IAgentCtlPropertySheetDisp = dispinterface;
  IAgentCtlUserInput = interface;
  IAgentCtlUserInputDisp = dispinterface;
  IAgentCtlCommandsWindow = interface;
  IAgentCtlCommandsWindowDisp = dispinterface;
  IAgentCtl = interface;
  IAgentCtlDisp = dispinterface;
  IAgentCtlEx = interface;
  IAgentCtlExDisp = dispinterface;
  _AgentEvents = dispinterface;

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


// *********************************************************************//
// Interface: IAgentCtlCharacters
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCharacters = interface(IDispatch)
    ['{F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}']
    function  Get_Item(const CharacterID: WideString): IAgentCtlCharacterEx; safecall;
    function  Character(const CharacterID: WideString): IAgentCtlCharacterEx; safecall;
    function  Get_Enum: IUnknown; safecall;
    procedure Unload(const CharacterID: WideString); safecall;
    function  Load(const CharacterID: WideString; LoadKey: OleVariant): IAgentCtlRequest; safecall;
    property Item[const CharacterID: WideString]: IAgentCtlCharacterEx read Get_Item; default;
    property Enum: IUnknown read Get_Enum;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlCharactersDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCharactersDisp = dispinterface
    ['{F5BE8BE8-7DE6-11D0-91FE-00C04FD701A5}']
    property Item[const CharacterID: WideString]: IAgentCtlCharacterEx readonly dispid 0; default;
    function  Character(const CharacterID: WideString): IAgentCtlCharacterEx; dispid 3;
    property Enum: IUnknown readonly dispid -4;
    procedure Unload(const CharacterID: WideString); dispid 2;
    function  Load(const CharacterID: WideString; LoadKey: OleVariant): IAgentCtlRequest; dispid 1;
  end;

// *********************************************************************//
// Interface: IAgentCtlCharacter
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCharacter = interface(IDispatch)
    ['{F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}']
    function  Get_Balloon: IAgentCtlBalloonEx; safecall;
    function  Get_Commands: IAgentCtlCommandsEx; safecall;
    function  Get_Name: WideString; safecall;
    function  Get_Description: WideString; safecall;
    function  Get_Visible: WordBool; safecall;
    procedure Set_Left(Left: Smallint); safecall;
    function  Get_Left: Smallint; safecall;
    procedure Set_Top(Top: Smallint); safecall;
    function  Get_Top: Smallint; safecall;
    procedure Set_Height(Height: Smallint); safecall;
    function  Get_Height: Smallint; safecall;
    procedure Set_Width(Width: Smallint); safecall;
    function  Get_Width: Smallint; safecall;
    function  Get_Speed: Integer; safecall;
    function  Get_Pitch: Integer; safecall;
    procedure Set_IdleOn(On_: WordBool); safecall;
    function  Get_IdleOn: WordBool; safecall;
    function  Activate(State: OleVariant): WordBool; safecall;
    function  Play(const Animation: WideString): IAgentCtlRequest; safecall;
    function  Get(const Type_: WideString; const Name: WideString; Queue: OleVariant): IAgentCtlRequest; safecall;
    procedure Stop(Request: OleVariant); safecall;
    function  Wait(const WaitForRequest: IDispatch): IAgentCtlRequest; safecall;
    function  Interrupt(const InterruptRequest: IDispatch): IAgentCtlRequest; safecall;
    function  Speak(Text: OleVariant; Url: OleVariant): IAgentCtlRequest; safecall;
    function  GestureAt(x: Smallint; y: Smallint): IAgentCtlRequest; safecall;
    function  MoveTo(x: Smallint; y: Smallint; Speed: OleVariant): IAgentCtlRequest; safecall;
    function  Hide(Fast: OleVariant): IAgentCtlRequest; safecall;
    function  Show(Fast: OleVariant): IAgentCtlRequest; safecall;
    procedure StopAll(Types: OleVariant); safecall;
    function  Get_MoveCause: Smallint; safecall;
    function  Get_VisibilityCause: Smallint; safecall;
    function  Get_HasOtherClients: WordBool; safecall;
    procedure Set_SoundEffectsOn(On_: WordBool); safecall;
    function  Get_SoundEffectsOn: WordBool; safecall;
    procedure Set_Name(const Name: WideString); safecall;
    procedure Set_Description(const Description: WideString); safecall;
    function  Get_ExtraData: WideString; safecall;
    property Balloon: IAgentCtlBalloonEx read Get_Balloon;
    property Commands: IAgentCtlCommandsEx read Get_Commands;
    property Name: WideString read Get_Name write Set_Name;
    property Description: WideString read Get_Description write Set_Description;
    property Visible: WordBool read Get_Visible;
    property Left: Smallint read Get_Left write Set_Left;
    property Top: Smallint read Get_Top write Set_Top;
    property Height: Smallint read Get_Height write Set_Height;
    property Width: Smallint read Get_Width write Set_Width;
    property Speed: Integer read Get_Speed;
    property Pitch: Integer read Get_Pitch;
    property IdleOn: WordBool read Get_IdleOn write Set_IdleOn;
    property MoveCause: Smallint read Get_MoveCause;
    property VisibilityCause: Smallint read Get_VisibilityCause;
    property HasOtherClients: WordBool read Get_HasOtherClients;
    property SoundEffectsOn: WordBool read Get_SoundEffectsOn write Set_SoundEffectsOn;
    property ExtraData: WideString read Get_ExtraData;
  end;

// *********************************************************************//
// DispIntf:  IAgentCtlCharacterDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}
// *********************************************************************//
  IAgentCtlCharacterDisp = dispinterface
    ['{F5BE8BD9-7DE6-11D0-91FE-00C04FD701A5}']
    property Balloon: IAgentCtlBalloonEx readonly dispid 23;
    property Commands: IAgentCtlCommandsEx readonly dispid 25;
    property Name: WideString dispid 24;
    property Description: WideString dispid 28;
    property Visible: WordBool readonly dispid 2;
    property Left: Smallint dispid 3;
    property Top: Smallint dispid 4;
    property Height: Smallint dispid 5;
    property Width: Smallint dispid 6;
    property Speed: Integer readonly dispid 10;
    property Pitch: Integer readonly dispid 11;
    property IdleOn: WordBool dispid 29;
    function  Activate(State: OleVariant): WordBool; dispid 26;
    function  Play(const Animation: WideString): IAgentCtlRequest; dispid 13;
    function  Get(const Type_: WideString; const Name: WideString; Queue: OleVariant): IAgentCtlRequest; dispid 27;
    procedure Stop(Request: OleVariant); dispid 14;
    function  Wait(const WaitForRequest: IDispatch): IAgentCtlRequest; dispid 22;
    function  Interrupt(const InterruptRequest: IDispatch): IAgentCtlRequest; dispid 21;

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -