From e886496abde4434ab791c16f2b2c36d231cb9e64 Mon Sep 17 00:00:00 2001 From: Alex Gamper Date: Sat, 6 Jun 2020 10:15:58 +1000 Subject: [PATCH] Upgrade SDK to version 20H1 (Build 10.0.19041.0) --- Bindings/Windows.AI.MachineLearning.ads | 33 +- .../Windows.ApplicationModel.AppService.ads | 38 +- .../Windows.ApplicationModel.Background.ads | 104 ++ ...s.ApplicationModel.ConversationalAgent.adb | 57 + ...s.ApplicationModel.ConversationalAgent.ads | 1442 ++++++++++++++--- Bindings/Windows.ApplicationModel.Core.ads | 96 ++ .../Windows.ApplicationModel.DataTransfer.adb | 13 + .../Windows.ApplicationModel.DataTransfer.ads | 44 +- .../Windows.ApplicationModel.Payments.ads | 14 +- ....ApplicationModel.Resources.Management.ads | 6 +- Bindings/Windows.ApplicationModel.adb | 58 + Bindings/Windows.ApplicationModel.ads | 159 ++ ...indows.Devices.Bluetooth.Advertisement.ads | 174 +- .../Windows.Devices.Bluetooth.Background.ads | 17 + Bindings/Windows.Devices.Bluetooth.ads | 23 + Bindings/Windows.Devices.Display.ads | 16 + Bindings/Windows.Devices.Input.adb | 125 ++ Bindings/Windows.Devices.Input.ads | 339 ++++ Bindings/Windows.Devices.Sensors.ads | 406 +++++ Bindings/Windows.Foundation.ads | 2 +- Bindings/Windows.Globalization.adb | 20 + Bindings/Windows.Globalization.ads | 51 +- Bindings/Windows.Graphics.Capture.ads | 23 + Bindings/Windows.Graphics.DirectX.ads | 8 +- Bindings/Windows.Graphics.Holographic.ads | 341 ++++ Bindings/Windows.Management.Deployment.adb | 51 + Bindings/Windows.Management.Deployment.ads | 664 +++++++- Bindings/Windows.Media.Audio.adb | 63 + Bindings/Windows.Media.Audio.ads | 213 +++ Bindings/Windows.Media.Capture.Frames.adb | 1 + Bindings/Windows.Media.Capture.Frames.ads | 18 + Bindings/Windows.Media.Capture.adb | 16 + Bindings/Windows.Media.Capture.ads | 118 ++ Bindings/Windows.Media.Devices.adb | 1 + Bindings/Windows.Media.Devices.ads | 48 + Bindings/Windows.Media.MediaProperties.adb | 142 ++ Bindings/Windows.Media.MediaProperties.ads | 106 ++ .../Windows.Media.Protection.PlayReady.ads | 26 +- .../Windows.Networking.BackgroundTransfer.ads | 48 + Bindings/Windows.Networking.Connectivity.ads | 6 +- .../Windows.Networking.NetworkOperators.adb | 81 + .../Windows.Networking.NetworkOperators.ads | 110 ++ .../Windows.Networking.PushNotifications.adb | 51 + .../Windows.Networking.PushNotifications.ads | 78 + ...ndows.Security.Authentication.Web.Core.adb | 13 + ...ndows.Security.Authentication.Web.Core.ads | 40 + Bindings/Windows.Storage.Provider.adb | 38 + Bindings/Windows.Storage.Provider.ads | 278 ++++ Bindings/Windows.Storage.adb | 116 ++ Bindings/Windows.Storage.ads | 167 ++ Bindings/Windows.System.ads | 124 ++ .../Windows.UI.Composition.Interactions.ads | 31 + Bindings/Windows.UI.Input.Inking.ads | 23 + Bindings/Windows.UI.Input.adb | 73 + Bindings/Windows.UI.Input.ads | 569 ++++++- Bindings/Windows.UI.Text.ads | 42 + Bindings/Windows.UI.ViewManagement.Core.adb | 56 + Bindings/Windows.UI.ViewManagement.Core.ads | 221 ++- Bindings/Windows.UI.ViewManagement.adb | 26 + Bindings/Windows.UI.ViewManagement.ads | 91 ++ Bindings/Windows.adb | 8 +- Bindings/Windows.ads | 8 +- 62 files changed, 7091 insertions(+), 283 deletions(-) diff --git a/Bindings/Windows.AI.MachineLearning.ads b/Bindings/Windows.AI.MachineLearning.ads index 3e5e7da..c25829b 100644 --- a/Bindings/Windows.AI.MachineLearning.ads +++ b/Bindings/Windows.AI.MachineLearning.ads @@ -213,6 +213,9 @@ package Windows.AI.MachineLearning is type ILearningModelSessionOptions_Interface; type ILearningModelSessionOptions is access all ILearningModelSessionOptions_Interface'Class; type ILearningModelSessionOptions_Ptr is access all ILearningModelSessionOptions; + type ILearningModelSessionOptions2_Interface; + type ILearningModelSessionOptions2 is access all ILearningModelSessionOptions2_Interface'Class; + type ILearningModelSessionOptions2_Ptr is access all ILearningModelSessionOptions2; type ILearningModelStatics_Interface; type ILearningModelStatics is access all ILearningModelStatics_Interface'Class; type ILearningModelStatics_Ptr is access all ILearningModelStatics; @@ -928,6 +931,26 @@ package Windows.AI.MachineLearning is ------------------------------------------------------------------------ + IID_ILearningModelSessionOptions2 : aliased constant Windows.IID := (1875713476, 5983, 23506, (141, 229, 47, 32, 6, 162, 90, 223 )); + + type ILearningModelSessionOptions2_Interface is interface and Windows.IInspectable_Interface; + + function get_CloseModelOnSessionCreation + ( + This : access ILearningModelSessionOptions2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_CloseModelOnSessionCreation + ( + This : access ILearningModelSessionOptions2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ILearningModelStatics : aliased constant Windows.IID := (3820582888, 26962, 20039, (142, 244, 31, 127, 7, 137, 124, 109 )); type ILearningModelStatics_Interface is interface and Windows.IInspectable_Interface; @@ -2297,24 +2320,24 @@ package Windows.AI.MachineLearning is subtype LearningModelEvaluationResult is Windows.AI.MachineLearning.ILearningModelEvaluationResult; subtype LearningModelSession is Windows.AI.MachineLearning.ILearningModelSession; - function CreateFromModelOnDeviceWithSessionOptions + function CreateFromModel ( model : Windows.AI.MachineLearning.ILearningModel - ; deviceToRunOn : Windows.AI.MachineLearning.ILearningModelDevice - ; learningModelSessionOptions : Windows.AI.MachineLearning.ILearningModelSessionOptions ) return Windows.AI.MachineLearning.ILearningModelSession; - function CreateFromModel + function CreateFromModelOnDevice ( model : Windows.AI.MachineLearning.ILearningModel + ; deviceToRunOn : Windows.AI.MachineLearning.ILearningModelDevice ) return Windows.AI.MachineLearning.ILearningModelSession; - function CreateFromModelOnDevice + function CreateFromModelOnDeviceWithSessionOptions ( model : Windows.AI.MachineLearning.ILearningModel ; deviceToRunOn : Windows.AI.MachineLearning.ILearningModelDevice + ; learningModelSessionOptions : Windows.AI.MachineLearning.ILearningModelSessionOptions ) return Windows.AI.MachineLearning.ILearningModelSession; diff --git a/Bindings/Windows.ApplicationModel.AppService.ads b/Bindings/Windows.ApplicationModel.AppService.ads index 6bb1043..ace16ad 100644 --- a/Bindings/Windows.ApplicationModel.AppService.ads +++ b/Bindings/Windows.ApplicationModel.AppService.ads @@ -63,7 +63,11 @@ package Windows.ApplicationModel.AppService is Unknown, RemoteSystemUnavailable, RemoteSystemNotSupportedByApp, - NotAuthorized + NotAuthorized, + AuthenticationError, + NetworkNotAvailable, + DisabledByPolicy, + WebServiceUnavailable ); for AppServiceConnectionStatus use ( Success => 0, @@ -73,7 +77,11 @@ package Windows.ApplicationModel.AppService is Unknown => 4, RemoteSystemUnavailable => 5, RemoteSystemNotSupportedByApp => 6, - NotAuthorized => 7 + NotAuthorized => 7, + AuthenticationError => 8, + NetworkNotAvailable => 9, + DisabledByPolicy => 10, + WebServiceUnavailable => 11 ); for AppServiceConnectionStatus'Size use 32; @@ -85,7 +93,12 @@ package Windows.ApplicationModel.AppService is ResourceLimitsExceeded, Unknown, RemoteSystemUnavailable, - MessageSizeTooLarge + MessageSizeTooLarge, + AppUnavailable, + AuthenticationError, + NetworkNotAvailable, + DisabledByPolicy, + WebServiceUnavailable ); for AppServiceResponseStatus use ( Success => 0, @@ -93,7 +106,12 @@ package Windows.ApplicationModel.AppService is ResourceLimitsExceeded => 2, Unknown => 3, RemoteSystemUnavailable => 4, - MessageSizeTooLarge => 5 + MessageSizeTooLarge => 5, + AppUnavailable => 6, + AuthenticationError => 7, + NetworkNotAvailable => 8, + DisabledByPolicy => 9, + WebServiceUnavailable => 10 ); for AppServiceResponseStatus'Size use 32; @@ -110,7 +128,11 @@ package Windows.ApplicationModel.AppService is ResourceLimitsExceeded, MessageSizeTooLarge, Failure, - Unknown + Unknown, + AuthenticationError, + NetworkNotAvailable, + DisabledByPolicy, + WebServiceUnavailable ); for StatelessAppServiceResponseStatus use ( Success => 0, @@ -123,7 +145,11 @@ package Windows.ApplicationModel.AppService is ResourceLimitsExceeded => 7, MessageSizeTooLarge => 8, Failure => 9, - Unknown => 10 + Unknown => 10, + AuthenticationError => 11, + NetworkNotAvailable => 12, + DisabledByPolicy => 13, + WebServiceUnavailable => 14 ); for StatelessAppServiceResponseStatus'Size use 32; diff --git a/Bindings/Windows.ApplicationModel.Background.ads b/Bindings/Windows.ApplicationModel.Background.ads index f3ee202..3937a05 100644 --- a/Bindings/Windows.ApplicationModel.Background.ads +++ b/Bindings/Windows.ApplicationModel.Background.ads @@ -417,6 +417,9 @@ package Windows.ApplicationModel.Background is type IBackgroundTaskBuilder4_Interface; type IBackgroundTaskBuilder4 is access all IBackgroundTaskBuilder4_Interface'Class; type IBackgroundTaskBuilder4_Ptr is access all IBackgroundTaskBuilder4; + type IBackgroundTaskBuilder5_Interface; + type IBackgroundTaskBuilder5 is access all IBackgroundTaskBuilder5_Interface'Class; + type IBackgroundTaskBuilder5_Ptr is access all IBackgroundTaskBuilder5; type IBackgroundTaskCompletedEventArgs_Interface; type IBackgroundTaskCompletedEventArgs is access all IBackgroundTaskCompletedEventArgs_Interface'Class; type IBackgroundTaskCompletedEventArgs_Ptr is access all IBackgroundTaskCompletedEventArgs; @@ -465,9 +468,15 @@ package Windows.ApplicationModel.Background is type IBluetoothLEAdvertisementPublisherTrigger_Interface; type IBluetoothLEAdvertisementPublisherTrigger is access all IBluetoothLEAdvertisementPublisherTrigger_Interface'Class; type IBluetoothLEAdvertisementPublisherTrigger_Ptr is access all IBluetoothLEAdvertisementPublisherTrigger; + type IBluetoothLEAdvertisementPublisherTrigger2_Interface; + type IBluetoothLEAdvertisementPublisherTrigger2 is access all IBluetoothLEAdvertisementPublisherTrigger2_Interface'Class; + type IBluetoothLEAdvertisementPublisherTrigger2_Ptr is access all IBluetoothLEAdvertisementPublisherTrigger2; type IBluetoothLEAdvertisementWatcherTrigger_Interface; type IBluetoothLEAdvertisementWatcherTrigger is access all IBluetoothLEAdvertisementWatcherTrigger_Interface'Class; type IBluetoothLEAdvertisementWatcherTrigger_Ptr is access all IBluetoothLEAdvertisementWatcherTrigger; + type IBluetoothLEAdvertisementWatcherTrigger2_Interface; + type IBluetoothLEAdvertisementWatcherTrigger2 is access all IBluetoothLEAdvertisementWatcherTrigger2_Interface'Class; + type IBluetoothLEAdvertisementWatcherTrigger2_Ptr is access all IBluetoothLEAdvertisementWatcherTrigger2; type ICachedFileUpdaterTrigger_Interface; type ICachedFileUpdaterTrigger is access all ICachedFileUpdaterTrigger_Interface'Class; type ICachedFileUpdaterTrigger_Ptr is access all ICachedFileUpdaterTrigger; @@ -1268,6 +1277,19 @@ package Windows.ApplicationModel.Background is ------------------------------------------------------------------------ + IID_IBackgroundTaskBuilder5 : aliased constant Windows.IID := (124847094, 39413, 19188, (188, 173, 71, 49, 208, 51, 13, 67 )); + + type IBackgroundTaskBuilder5_Interface is interface and Windows.IInspectable_Interface; + + function SetTaskEntryPointClsid + ( + This : access IBackgroundTaskBuilder5_Interface + ; TaskEntryPoint : Windows.Guid + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IBackgroundTaskCompletedEventArgs : aliased constant Windows.IID := (1448945103, 61961, 18676, (153, 103, 43, 24, 79, 123, 251, 240 )); type IBackgroundTaskCompletedEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -1630,6 +1652,68 @@ package Windows.ApplicationModel.Background is ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementPublisherTrigger2 : aliased constant Windows.IID := (2854801508, 14580, 22909, (181, 151, 78, 85, 88, 140, 101, 3 )); + + type IBluetoothLEAdvertisementPublisherTrigger2_Interface is interface and Windows.IInspectable_Interface; + + function get_PreferredTransmitPowerLevelInDBm + ( + This : access IBluetoothLEAdvertisementPublisherTrigger2_Interface + ; RetVal : access Windows.Foundation.IReference_Int16 -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function put_PreferredTransmitPowerLevelInDBm + ( + This : access IBluetoothLEAdvertisementPublisherTrigger2_Interface + ; value : Windows.Foundation.IReference_Int16 + ) + return Windows.HRESULT is abstract; + + function get_UseExtendedFormat + ( + This : access IBluetoothLEAdvertisementPublisherTrigger2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_UseExtendedFormat + ( + This : access IBluetoothLEAdvertisementPublisherTrigger2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsAnonymous + ( + This : access IBluetoothLEAdvertisementPublisherTrigger2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_IsAnonymous + ( + This : access IBluetoothLEAdvertisementPublisherTrigger2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IncludeTransmitPowerLevel + ( + This : access IBluetoothLEAdvertisementPublisherTrigger2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_IncludeTransmitPowerLevel + ( + This : access IBluetoothLEAdvertisementPublisherTrigger2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementWatcherTrigger : aliased constant Windows.IID := (447420441, 48353, 18667, (168, 39, 89, 251, 124, 238, 82, 166 )); type IBluetoothLEAdvertisementWatcherTrigger_Interface is interface and Windows.IInspectable_Interface; @@ -1692,6 +1776,26 @@ package Windows.ApplicationModel.Background is ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementWatcherTrigger2 : aliased constant Windows.IID := (968189849, 60217, 23222, (153, 50, 170, 158, 69, 73, 96, 77 )); + + type IBluetoothLEAdvertisementWatcherTrigger2_Interface is interface and Windows.IInspectable_Interface; + + function get_AllowExtendedAdvertisements + ( + This : access IBluetoothLEAdvertisementWatcherTrigger2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_AllowExtendedAdvertisements + ( + This : access IBluetoothLEAdvertisementWatcherTrigger2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ICachedFileUpdaterTrigger : aliased constant Windows.IID := (3793530603, 13042, 19761, (181, 83, 185, 224, 27, 222, 55, 224 )); type ICachedFileUpdaterTrigger_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.ApplicationModel.ConversationalAgent.adb b/Bindings/Windows.ApplicationModel.ConversationalAgent.adb index 52b8494..0d8addf 100644 --- a/Bindings/Windows.ApplicationModel.ConversationalAgent.adb +++ b/Bindings/Windows.ApplicationModel.ConversationalAgent.adb @@ -27,6 +27,7 @@ -- -- -------------------------------------------------------------------------------- with Windows.Media.Audio; +with Windows.Storage.Streams; with Ada.Unchecked_Conversion; -------------------------------------------------------------------------------- package body Windows.ApplicationModel.ConversationalAgent is @@ -48,6 +49,32 @@ package body Windows.ApplicationModel.ConversationalAgent is return Hr; end; + function Invoke + ( + This : access AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus_Interface + ; asyncInfo : Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_DetectionConfigurationTrainingStatus + ; asyncStatus : Windows.Foundation.AsyncStatus + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(asyncInfo, asyncStatus); + return Hr; + end; + + function Invoke + ( + This : access AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration_Interface + ; asyncInfo : Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_IActivationSignalDetectionConfiguration + ; asyncStatus : Windows.Foundation.AsyncStatus + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(asyncInfo, asyncStatus); + return Hr; + end; + function Invoke ( This : access AsyncOperationCompletedHandler_IConversationalAgentSession_Interface @@ -61,6 +88,19 @@ package body Windows.ApplicationModel.ConversationalAgent is return Hr; end; + function Invoke + ( + This : access TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged_Interface + ; sender : Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration + ; args : Windows.ApplicationModel.ConversationalAgent.IDetectionConfigurationAvailabilityChangedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration(sender), Windows.ApplicationModel.ConversationalAgent.IDetectionConfigurationAvailabilityChangedEventArgs(args)); + return Hr; + end; + function Invoke ( This : access TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted_Interface @@ -112,6 +152,23 @@ package body Windows.ApplicationModel.ConversationalAgent is -- Static procedures/functions ------------------------------------------------------------------------ + function get_Default + return Windows.ApplicationModel.ConversationalAgent.IConversationalAgentDetectorManager is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.ApplicationModel.ConversationalAgent.ConversationalAgentDetectorManager"); + m_Factory : IConversationalAgentDetectorManagerStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.ApplicationModel.ConversationalAgent.IConversationalAgentDetectorManager; + begin + Hr := RoGetActivationFactory(m_hString, IID_IConversationalAgentDetectorManagerStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.get_Default(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function GetCurrentSessionAsync return Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_IConversationalAgentSession is Hr : Windows.HRESULT := S_OK; diff --git a/Bindings/Windows.ApplicationModel.ConversationalAgent.ads b/Bindings/Windows.ApplicationModel.ConversationalAgent.ads index 1a1c3ad..21711fc 100644 --- a/Bindings/Windows.ApplicationModel.ConversationalAgent.ads +++ b/Bindings/Windows.ApplicationModel.ConversationalAgent.ads @@ -29,6 +29,7 @@ with Windows.Foundation; with Windows.Foundation.Collections; limited with Windows.Media.Audio; +limited with Windows.Storage.Streams; -------------------------------------------------------------------------------- package Windows.ApplicationModel.ConversationalAgent is @@ -38,6 +39,64 @@ package Windows.ApplicationModel.ConversationalAgent is -- Enums ------------------------------------------------------------------------ + type ActivationSignalDetectionTrainingDataFormat is ( + Voice8kHz8BitMono, + Voice8kHz16BitMono, + Voice16kHz8BitMono, + Voice16kHz16BitMono, + VoiceOEMDefined, + Audio44kHz8BitMono, + Audio44kHz16BitMono, + Audio48kHz8BitMono, + Audio48kHz16BitMono, + AudioOEMDefined, + OtherOEMDefined + ); + for ActivationSignalDetectionTrainingDataFormat use ( + Voice8kHz8BitMono => 0, + Voice8kHz16BitMono => 1, + Voice16kHz8BitMono => 2, + Voice16kHz16BitMono => 3, + VoiceOEMDefined => 4, + Audio44kHz8BitMono => 5, + Audio44kHz16BitMono => 6, + Audio48kHz8BitMono => 7, + Audio48kHz16BitMono => 8, + AudioOEMDefined => 9, + OtherOEMDefined => 10 + ); + for ActivationSignalDetectionTrainingDataFormat'Size use 32; + + type ActivationSignalDetectionTrainingDataFormat_Ptr is access ActivationSignalDetectionTrainingDataFormat; + + type ActivationSignalDetectorKind is ( + AudioPattern, + AudioImpulse, + HardwareEvent + ); + for ActivationSignalDetectorKind use ( + AudioPattern => 0, + AudioImpulse => 1, + HardwareEvent => 2 + ); + for ActivationSignalDetectorKind'Size use 32; + + type ActivationSignalDetectorKind_Ptr is access ActivationSignalDetectorKind; + + type ActivationSignalDetectorPowerState is ( + HighPower, + ConnectedLowPower, + DisconnectedLowPower + ); + for ActivationSignalDetectorPowerState use ( + HighPower => 0, + ConnectedLowPower => 1, + DisconnectedLowPower => 2 + ); + for ActivationSignalDetectorPowerState'Size use 32; + + type ActivationSignalDetectorPowerState_Ptr is access ActivationSignalDetectorPowerState; + type ConversationalAgentSessionUpdateResponse is ( Success, Failed @@ -86,6 +145,44 @@ package Windows.ApplicationModel.ConversationalAgent is type ConversationalAgentSystemStateChangeType_Ptr is access ConversationalAgentSystemStateChangeType; + type DetectionConfigurationAvailabilityChangeKind is ( + SystemResourceAccess, + Permission, + LockScreenPermission + ); + for DetectionConfigurationAvailabilityChangeKind use ( + SystemResourceAccess => 0, + Permission => 1, + LockScreenPermission => 2 + ); + for DetectionConfigurationAvailabilityChangeKind'Size use 32; + + type DetectionConfigurationAvailabilityChangeKind_Ptr is access DetectionConfigurationAvailabilityChangeKind; + + type DetectionConfigurationTrainingStatus is ( + Success, + FormatNotSupported, + VoiceTooQuiet, + VoiceTooLoud, + VoiceTooFast, + VoiceTooSlow, + VoiceQualityProblem, + TrainingSystemInternalError + ); + for DetectionConfigurationTrainingStatus use ( + Success => 0, + FormatNotSupported => 1, + VoiceTooQuiet => 2, + VoiceTooLoud => 3, + VoiceTooFast => 4, + VoiceTooSlow => 5, + VoiceQualityProblem => 6, + TrainingSystemInternalError => 7 + ); + for DetectionConfigurationTrainingStatus'Size use 32; + + type DetectionConfigurationTrainingStatus_Ptr is access DetectionConfigurationTrainingStatus; + ------------------------------------------------------------------------ -- Forward Declaration - Delegates/Events ------------------------------------------------------------------------ @@ -93,9 +190,18 @@ package Windows.ApplicationModel.ConversationalAgent is type AsyncOperationCompletedHandler_ConversationalAgentSessionUpdateResponse_Interface; type AsyncOperationCompletedHandler_ConversationalAgentSessionUpdateResponse is access all AsyncOperationCompletedHandler_ConversationalAgentSessionUpdateResponse_Interface'Class; type AsyncOperationCompletedHandler_ConversationalAgentSessionUpdateResponse_Ptr is access all AsyncOperationCompletedHandler_ConversationalAgentSessionUpdateResponse; + type AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus_Interface; + type AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus is access all AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus_Interface'Class; + type AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus_Ptr is access all AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus; + type AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration_Interface; + type AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration is access all AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration_Interface'Class; + type AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration_Ptr is access all AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration; type AsyncOperationCompletedHandler_IConversationalAgentSession_Interface; type AsyncOperationCompletedHandler_IConversationalAgentSession is access all AsyncOperationCompletedHandler_IConversationalAgentSession_Interface'Class; type AsyncOperationCompletedHandler_IConversationalAgentSession_Ptr is access all AsyncOperationCompletedHandler_IConversationalAgentSession; + type TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged_Interface; + type TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged is access all TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged_Interface'Class; + type TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged_Ptr is access all TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged; type TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted_Interface; type TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted is access all TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted_Interface'Class; type TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted_Ptr is access all TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted; @@ -110,12 +216,30 @@ package Windows.ApplicationModel.ConversationalAgent is -- Forward Declaration - Interfaces ------------------------------------------------------------------------ + type IActivationSignalDetectionConfiguration_Interface; + type IActivationSignalDetectionConfiguration is access all IActivationSignalDetectionConfiguration_Interface'Class; + type IActivationSignalDetectionConfiguration_Ptr is access all IActivationSignalDetectionConfiguration; + type IActivationSignalDetector_Interface; + type IActivationSignalDetector is access all IActivationSignalDetector_Interface'Class; + type IActivationSignalDetector_Ptr is access all IActivationSignalDetector; type IAsyncOperation_ConversationalAgentSessionUpdateResponse_Interface; type IAsyncOperation_ConversationalAgentSessionUpdateResponse is access all IAsyncOperation_ConversationalAgentSessionUpdateResponse_Interface'Class; type IAsyncOperation_ConversationalAgentSessionUpdateResponse_Ptr is access all IAsyncOperation_ConversationalAgentSessionUpdateResponse; + type IAsyncOperation_DetectionConfigurationTrainingStatus_Interface; + type IAsyncOperation_DetectionConfigurationTrainingStatus is access all IAsyncOperation_DetectionConfigurationTrainingStatus_Interface'Class; + type IAsyncOperation_DetectionConfigurationTrainingStatus_Ptr is access all IAsyncOperation_DetectionConfigurationTrainingStatus; + type IAsyncOperation_IActivationSignalDetectionConfiguration_Interface; + type IAsyncOperation_IActivationSignalDetectionConfiguration is access all IAsyncOperation_IActivationSignalDetectionConfiguration_Interface'Class; + type IAsyncOperation_IActivationSignalDetectionConfiguration_Ptr is access all IAsyncOperation_IActivationSignalDetectionConfiguration; type IAsyncOperation_IConversationalAgentSession_Interface; type IAsyncOperation_IConversationalAgentSession is access all IAsyncOperation_IConversationalAgentSession_Interface'Class; type IAsyncOperation_IConversationalAgentSession_Ptr is access all IAsyncOperation_IConversationalAgentSession; + type IConversationalAgentDetectorManager_Interface; + type IConversationalAgentDetectorManager is access all IConversationalAgentDetectorManager_Interface'Class; + type IConversationalAgentDetectorManager_Ptr is access all IConversationalAgentDetectorManager; + type IConversationalAgentDetectorManagerStatics_Interface; + type IConversationalAgentDetectorManagerStatics is access all IConversationalAgentDetectorManagerStatics_Interface'Class; + type IConversationalAgentDetectorManagerStatics_Ptr is access all IConversationalAgentDetectorManagerStatics; type IConversationalAgentSession_Interface; type IConversationalAgentSession is access all IConversationalAgentSession_Interface'Class; type IConversationalAgentSession_Ptr is access all IConversationalAgentSession; @@ -134,6 +258,48 @@ package Windows.ApplicationModel.ConversationalAgent is type IConversationalAgentSystemStateChangedEventArgs_Interface; type IConversationalAgentSystemStateChangedEventArgs is access all IConversationalAgentSystemStateChangedEventArgs_Interface'Class; type IConversationalAgentSystemStateChangedEventArgs_Ptr is access all IConversationalAgentSystemStateChangedEventArgs; + type IDetectionConfigurationAvailabilityChangedEventArgs_Interface; + type IDetectionConfigurationAvailabilityChangedEventArgs is access all IDetectionConfigurationAvailabilityChangedEventArgs_Interface'Class; + type IDetectionConfigurationAvailabilityChangedEventArgs_Ptr is access all IDetectionConfigurationAvailabilityChangedEventArgs; + type IDetectionConfigurationAvailabilityInfo_Interface; + type IDetectionConfigurationAvailabilityInfo is access all IDetectionConfigurationAvailabilityInfo_Interface'Class; + type IDetectionConfigurationAvailabilityInfo_Ptr is access all IDetectionConfigurationAvailabilityInfo; + type IIterable_ActivationSignalDetectionTrainingDataFormat_Interface; + type IIterable_ActivationSignalDetectionTrainingDataFormat is access all IIterable_ActivationSignalDetectionTrainingDataFormat_Interface'Class; + type IIterable_ActivationSignalDetectionTrainingDataFormat_Ptr is access all IIterable_ActivationSignalDetectionTrainingDataFormat; + type IIterable_ActivationSignalDetectorPowerState_Interface; + type IIterable_ActivationSignalDetectorPowerState is access all IIterable_ActivationSignalDetectorPowerState_Interface'Class; + type IIterable_ActivationSignalDetectorPowerState_Ptr is access all IIterable_ActivationSignalDetectorPowerState; + type IIterable_IActivationSignalDetectionConfiguration_Interface; + type IIterable_IActivationSignalDetectionConfiguration is access all IIterable_IActivationSignalDetectionConfiguration_Interface'Class; + type IIterable_IActivationSignalDetectionConfiguration_Ptr is access all IIterable_IActivationSignalDetectionConfiguration; + type IIterable_IActivationSignalDetector_Interface; + type IIterable_IActivationSignalDetector is access all IIterable_IActivationSignalDetector_Interface'Class; + type IIterable_IActivationSignalDetector_Ptr is access all IIterable_IActivationSignalDetector; + type IIterator_ActivationSignalDetectionTrainingDataFormat_Interface; + type IIterator_ActivationSignalDetectionTrainingDataFormat is access all IIterator_ActivationSignalDetectionTrainingDataFormat_Interface'Class; + type IIterator_ActivationSignalDetectionTrainingDataFormat_Ptr is access all IIterator_ActivationSignalDetectionTrainingDataFormat; + type IIterator_ActivationSignalDetectorPowerState_Interface; + type IIterator_ActivationSignalDetectorPowerState is access all IIterator_ActivationSignalDetectorPowerState_Interface'Class; + type IIterator_ActivationSignalDetectorPowerState_Ptr is access all IIterator_ActivationSignalDetectorPowerState; + type IIterator_IActivationSignalDetectionConfiguration_Interface; + type IIterator_IActivationSignalDetectionConfiguration is access all IIterator_IActivationSignalDetectionConfiguration_Interface'Class; + type IIterator_IActivationSignalDetectionConfiguration_Ptr is access all IIterator_IActivationSignalDetectionConfiguration; + type IIterator_IActivationSignalDetector_Interface; + type IIterator_IActivationSignalDetector is access all IIterator_IActivationSignalDetector_Interface'Class; + type IIterator_IActivationSignalDetector_Ptr is access all IIterator_IActivationSignalDetector; + type IVectorView_ActivationSignalDetectionTrainingDataFormat_Interface; + type IVectorView_ActivationSignalDetectionTrainingDataFormat is access all IVectorView_ActivationSignalDetectionTrainingDataFormat_Interface'Class; + type IVectorView_ActivationSignalDetectionTrainingDataFormat_Ptr is access all IVectorView_ActivationSignalDetectionTrainingDataFormat; + type IVectorView_ActivationSignalDetectorPowerState_Interface; + type IVectorView_ActivationSignalDetectorPowerState is access all IVectorView_ActivationSignalDetectorPowerState_Interface'Class; + type IVectorView_ActivationSignalDetectorPowerState_Ptr is access all IVectorView_ActivationSignalDetectorPowerState; + type IVectorView_IActivationSignalDetectionConfiguration_Interface; + type IVectorView_IActivationSignalDetectionConfiguration is access all IVectorView_IActivationSignalDetectionConfiguration_Interface'Class; + type IVectorView_IActivationSignalDetectionConfiguration_Ptr is access all IVectorView_IActivationSignalDetectionConfiguration; + type IVectorView_IActivationSignalDetector_Interface; + type IVectorView_IActivationSignalDetector is access all IVectorView_IActivationSignalDetector_Interface'Class; + type IVectorView_IActivationSignalDetector_Ptr is access all IVectorView_IActivationSignalDetector; ------------------------------------------------------------------------ -- Interfaces @@ -141,445 +307,1256 @@ package Windows.ApplicationModel.ConversationalAgent is ------------------------------------------------------------------------ - IID_IAsyncOperation_ConversationalAgentSessionUpdateResponse : aliased constant Windows.IID := (1267042427, 32880, 24313, (170, 200, 146, 81, 82, 87, 6, 30 )); + IID_IActivationSignalDetectionConfiguration : aliased constant Windows.IID := (1087946262, 21015, 22556, (154, 178, 206, 155, 47, 46, 142, 0 )); - type IAsyncOperation_ConversationalAgentSessionUpdateResponse_Interface is interface and Windows.IInspectable_Interface; + type IActivationSignalDetectionConfiguration_Interface is interface and Windows.IInspectable_Interface; - function put_Completed + function get_SignalId ( - This : access IAsyncOperation_ConversationalAgentSessionUpdateResponse_Interface - ; handler : Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_ConversationalAgentSessionUpdateResponse + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.String ) return Windows.HRESULT is abstract; - function get_Completed + function get_ModelId ( - This : access IAsyncOperation_ConversationalAgentSessionUpdateResponse_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_ConversationalAgentSessionUpdateResponse + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.String ) return Windows.HRESULT is abstract; - function GetResults + function get_DisplayName ( - This : access IAsyncOperation_ConversationalAgentSessionUpdateResponse_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentSessionUpdateResponse + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.String ) return Windows.HRESULT is abstract; - ------------------------------------------------------------------------ - - IID_IAsyncOperation_IConversationalAgentSession : aliased constant Windows.IID := (1367547401, 28561, 22960, (130, 13, 96, 185, 119, 117, 197, 117 )); - - type IAsyncOperation_IConversationalAgentSession_Interface is interface and Windows.IInspectable_Interface; - - function put_Completed + function get_IsActive ( - This : access IAsyncOperation_IConversationalAgentSession_Interface - ; handler : Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_IConversationalAgentSession + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.Boolean ) return Windows.HRESULT is abstract; - function get_Completed + function SetEnabled ( - This : access IAsyncOperation_IConversationalAgentSession_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_IConversationalAgentSession + This : access IActivationSignalDetectionConfiguration_Interface + ; value : Windows.Boolean ) return Windows.HRESULT is abstract; - function GetResults + function SetEnabledAsync ( - This : access IAsyncOperation_IConversationalAgentSession_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSession + This : access IActivationSignalDetectionConfiguration_Interface + ; value : Windows.Boolean + ; RetVal : access Windows.Foundation.IAsyncAction ) return Windows.HRESULT is abstract; - ------------------------------------------------------------------------ - - IID_IConversationalAgentSession : aliased constant Windows.IID := (3668631706, 47034, 22501, (173, 19, 223, 82, 15, 155, 111, 167 )); - - type IConversationalAgentSession_Interface is interface and Windows.IInspectable_Interface; - - function add_SessionInterrupted + function get_AvailabilityInfo ( - This : access IConversationalAgentSession_Interface - ; handler : TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted - ; RetVal : access Windows.Foundation.EventRegistrationToken + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IDetectionConfigurationAvailabilityInfo ) return Windows.HRESULT is abstract; - function remove_SessionInterrupted + function add_AvailabilityChanged ( - This : access IConversationalAgentSession_Interface - ; token : Windows.Foundation.EventRegistrationToken + This : access IActivationSignalDetectionConfiguration_Interface + ; handler : TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged + ; RetVal : access Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; - function add_SignalDetected + function remove_AvailabilityChanged ( - This : access IConversationalAgentSession_Interface - ; handler : TypedEventHandler_IConversationalAgentSession_add_SignalDetected - ; RetVal : access Windows.Foundation.EventRegistrationToken + This : access IActivationSignalDetectionConfiguration_Interface + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; - function remove_SignalDetected + function SetModelData ( - This : access IConversationalAgentSession_Interface - ; token : Windows.Foundation.EventRegistrationToken + This : access IActivationSignalDetectionConfiguration_Interface + ; dataType : Windows.String + ; data : Windows.Storage.Streams.IInputStream ) return Windows.HRESULT is abstract; - function add_SystemStateChanged + function SetModelDataAsync ( - This : access IConversationalAgentSession_Interface - ; handler : TypedEventHandler_IConversationalAgentSession_add_SystemStateChanged - ; RetVal : access Windows.Foundation.EventRegistrationToken + This : access IActivationSignalDetectionConfiguration_Interface + ; dataType : Windows.String + ; data : Windows.Storage.Streams.IInputStream + ; RetVal : access Windows.Foundation.IAsyncAction ) return Windows.HRESULT is abstract; - function remove_SystemStateChanged + function GetModelDataType ( - This : access IConversationalAgentSession_Interface - ; token : Windows.Foundation.EventRegistrationToken + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.String ) return Windows.HRESULT is abstract; - function get_AgentState + function GetModelDataTypeAsync ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentState + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.Foundation.IAsyncOperation_String -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function get_Signal + function GetModelData ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSignal + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.Storage.Streams.IInputStream ) return Windows.HRESULT is abstract; - function get_IsIndicatorLightAvailable + function GetModelDataAsync ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Boolean + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.Storage.Streams.IAsyncOperation_IInputStream -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function get_IsScreenAvailable + function ClearModelData ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Boolean + This : access IActivationSignalDetectionConfiguration_Interface ) return Windows.HRESULT is abstract; - function get_IsUserAuthenticated + function ClearModelDataAsync ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Boolean + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.Foundation.IAsyncAction ) return Windows.HRESULT is abstract; - function get_IsVoiceActivationAvailable + function get_TrainingStepsCompleted ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Boolean + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.UInt32 ) return Windows.HRESULT is abstract; - function get_IsInterruptible + function get_TrainingStepsRemaining ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Boolean + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.UInt32 ) return Windows.HRESULT is abstract; - function get_IsInterrupted + function get_TrainingDataFormat ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Boolean + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectionTrainingDataFormat ) return Windows.HRESULT is abstract; - function RequestInterruptibleAsync + function ApplyTrainingData ( - This : access IConversationalAgentSession_Interface - ; interruptible : Windows.Boolean - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_ConversationalAgentSessionUpdateResponse -- Generic Parameter Type + This : access IActivationSignalDetectionConfiguration_Interface + ; trainingDataFormat : Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectionTrainingDataFormat + ; trainingData : Windows.Storage.Streams.IInputStream + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.DetectionConfigurationTrainingStatus ) return Windows.HRESULT is abstract; - function RequestInterruptible + function ApplyTrainingDataAsync ( - This : access IConversationalAgentSession_Interface - ; interruptible : Windows.Boolean - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentSessionUpdateResponse + This : access IActivationSignalDetectionConfiguration_Interface + ; trainingDataFormat : Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectionTrainingDataFormat + ; trainingData : Windows.Storage.Streams.IInputStream + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_DetectionConfigurationTrainingStatus -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function RequestAgentStateChangeAsync + function ClearTrainingData ( - This : access IConversationalAgentSession_Interface - ; state : Windows.ApplicationModel.ConversationalAgent.ConversationalAgentState - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_ConversationalAgentSessionUpdateResponse -- Generic Parameter Type + This : access IActivationSignalDetectionConfiguration_Interface ) return Windows.HRESULT is abstract; - function RequestAgentStateChange + function ClearTrainingDataAsync ( - This : access IConversationalAgentSession_Interface - ; state : Windows.ApplicationModel.ConversationalAgent.ConversationalAgentState - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentSessionUpdateResponse + This : access IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.Foundation.IAsyncAction ) return Windows.HRESULT is abstract; - function RequestForegroundActivationAsync + ------------------------------------------------------------------------ + + IID_IActivationSignalDetector : aliased constant Windows.IID := (3049206879, 42192, 23339, (142, 101, 179, 197, 94, 231, 86, 255 )); + + type IActivationSignalDetector_Interface is interface and Windows.IInspectable_Interface; + + function get_ProviderId ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_ConversationalAgentSessionUpdateResponse -- Generic Parameter Type + This : access IActivationSignalDetector_Interface + ; RetVal : access Windows.String ) return Windows.HRESULT is abstract; - function RequestForegroundActivation + function get_Kind ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentSessionUpdateResponse + This : access IActivationSignalDetector_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectorKind ) return Windows.HRESULT is abstract; - function GetAudioClientAsync + function get_CanCreateConfigurations ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Foundation.IAsyncOperation_Object -- Generic Parameter Type + This : access IActivationSignalDetector_Interface + ; RetVal : access Windows.Boolean ) return Windows.HRESULT is abstract; - function GetAudioClient + function get_SupportedModelDataTypes ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Object + This : access IActivationSignalDetector_Interface + ; RetVal : access Windows.Foundation.Collections.IVectorView_String -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function CreateAudioDeviceInputNodeAsync + function get_SupportedTrainingDataFormats ( - This : access IConversationalAgentSession_Interface - ; graph : Windows.Media.Audio.IAudioGraph - ; RetVal : access Windows.Media.Audio.IAsyncOperation_IAudioDeviceInputNode -- Generic Parameter Type + This : access IActivationSignalDetector_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IVectorView_ActivationSignalDetectionTrainingDataFormat -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function CreateAudioDeviceInputNode + function get_SupportedPowerStates ( - This : access IConversationalAgentSession_Interface - ; graph : Windows.Media.Audio.IAudioGraph - ; RetVal : access Windows.Media.Audio.IAudioDeviceInputNode + This : access IActivationSignalDetector_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IVectorView_ActivationSignalDetectorPowerState -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function GetAudioCaptureDeviceIdAsync + function GetSupportedModelIdsForSignalId ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Foundation.IAsyncOperation_String -- Generic Parameter Type + This : access IActivationSignalDetector_Interface + ; signalId : Windows.String + ; RetVal : access Windows.Foundation.Collections.IVectorView_String -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function GetAudioCaptureDeviceId + function GetSupportedModelIdsForSignalIdAsync ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.String + This : access IActivationSignalDetector_Interface + ; signalId : Windows.String + ; RetVal : access Windows.Address -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function GetAudioRenderDeviceIdAsync + function CreateConfiguration ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Foundation.IAsyncOperation_String -- Generic Parameter Type + This : access IActivationSignalDetector_Interface + ; signalId : Windows.String + ; modelId : Windows.String + ; displayName : Windows.String ) return Windows.HRESULT is abstract; - function GetAudioRenderDeviceId + function CreateConfigurationAsync ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.String + This : access IActivationSignalDetector_Interface + ; signalId : Windows.String + ; modelId : Windows.String + ; displayName : Windows.String + ; RetVal : access Windows.Foundation.IAsyncAction ) return Windows.HRESULT is abstract; - function GetSignalModelIdAsync + function GetConfigurations ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Foundation.IAsyncOperation_UInt32 -- Generic Parameter Type + This : access IActivationSignalDetector_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IVectorView_IActivationSignalDetectionConfiguration -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function GetSignalModelId + function GetConfigurationsAsync ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.UInt32 + This : access IActivationSignalDetector_Interface + ; RetVal : access Windows.Address -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function SetSignalModelIdAsync + function GetConfiguration ( - This : access IConversationalAgentSession_Interface - ; signalModelId : Windows.UInt32 - ; RetVal : access Windows.Foundation.IAsyncOperation_Boolean -- Generic Parameter Type + This : access IActivationSignalDetector_Interface + ; signalId : Windows.String + ; modelId : Windows.String + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration ) return Windows.HRESULT is abstract; - function SetSignalModelId + function GetConfigurationAsync ( - This : access IConversationalAgentSession_Interface - ; signalModelId : Windows.UInt32 - ; RetVal : access Windows.Boolean + This : access IActivationSignalDetector_Interface + ; signalId : Windows.String + ; modelId : Windows.String + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_IActivationSignalDetectionConfiguration -- Generic Parameter Type ) return Windows.HRESULT is abstract; - function GetSupportedSignalModelIdsAsync + function RemoveConfiguration ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Address -- Generic Parameter Type + This : access IActivationSignalDetector_Interface + ; signalId : Windows.String + ; modelId : Windows.String ) return Windows.HRESULT is abstract; - function GetSupportedSignalModelIds + function RemoveConfigurationAsync ( - This : access IConversationalAgentSession_Interface - ; RetVal : access Windows.Foundation.Collections.IVectorView_UInt32 -- Generic Parameter Type + This : access IActivationSignalDetector_Interface + ; signalId : Windows.String + ; modelId : Windows.String + ; RetVal : access Windows.Foundation.IAsyncAction ) return Windows.HRESULT is abstract; ------------------------------------------------------------------------ - IID_IConversationalAgentSessionInterruptedEventArgs : aliased constant Windows.IID := (2540067103, 63037, 23870, (155, 242, 189, 7, 96, 85, 38, 134 )); - - type IConversationalAgentSessionInterruptedEventArgs_Interface is interface and Windows.IInspectable_Interface; - - ------------------------------------------------------------------------ + IID_IAsyncOperation_ConversationalAgentSessionUpdateResponse : aliased constant Windows.IID := (1267042427, 32880, 24313, (170, 200, 146, 81, 82, 87, 6, 30 )); - IID_IConversationalAgentSessionStatics : aliased constant Windows.IID := (2684687982, 59732, 22382, (190, 4, 17, 184, 237, 16, 243, 123 )); + type IAsyncOperation_ConversationalAgentSessionUpdateResponse_Interface is interface and Windows.IInspectable_Interface; - type IConversationalAgentSessionStatics_Interface is interface and Windows.IInspectable_Interface; + function put_Completed + ( + This : access IAsyncOperation_ConversationalAgentSessionUpdateResponse_Interface + ; handler : Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_ConversationalAgentSessionUpdateResponse + ) + return Windows.HRESULT is abstract; - function GetCurrentSessionAsync + function get_Completed ( - This : access IConversationalAgentSessionStatics_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_IConversationalAgentSession -- Generic Parameter Type + This : access IAsyncOperation_ConversationalAgentSessionUpdateResponse_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_ConversationalAgentSessionUpdateResponse ) return Windows.HRESULT is abstract; - function GetCurrentSessionSync + function GetResults ( - This : access IConversationalAgentSessionStatics_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSession + This : access IAsyncOperation_ConversationalAgentSessionUpdateResponse_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentSessionUpdateResponse ) return Windows.HRESULT is abstract; ------------------------------------------------------------------------ - IID_IConversationalAgentSignal : aliased constant Windows.IID := (552412663, 45344, 20978, (134, 3, 38, 93, 106, 71, 242, 50 )); + IID_IAsyncOperation_DetectionConfigurationTrainingStatus : aliased constant Windows.IID := (1982963719, 37798, 21838, (188, 221, 59, 174, 231, 200, 194, 198 )); - type IConversationalAgentSignal_Interface is interface and Windows.IInspectable_Interface; + type IAsyncOperation_DetectionConfigurationTrainingStatus_Interface is interface and Windows.IInspectable_Interface; - function get_IsSignalVerificationRequired + function put_Completed ( - This : access IConversationalAgentSignal_Interface - ; RetVal : access Windows.Boolean + This : access IAsyncOperation_DetectionConfigurationTrainingStatus_Interface + ; handler : Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus ) return Windows.HRESULT is abstract; - function put_IsSignalVerificationRequired + function get_Completed ( - This : access IConversationalAgentSignal_Interface - ; value : Windows.Boolean + This : access IAsyncOperation_DetectionConfigurationTrainingStatus_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus ) return Windows.HRESULT is abstract; - function get_SignalId + function GetResults ( - This : access IConversationalAgentSignal_Interface - ; RetVal : access Windows.String + This : access IAsyncOperation_DetectionConfigurationTrainingStatus_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.DetectionConfigurationTrainingStatus ) return Windows.HRESULT is abstract; - function put_SignalId - ( - This : access IConversationalAgentSignal_Interface - ; value : Windows.String - ) - return Windows.HRESULT is abstract; + ------------------------------------------------------------------------ - function get_SignalName - ( - This : access IConversationalAgentSignal_Interface - ; RetVal : access Windows.String - ) - return Windows.HRESULT is abstract; + IID_IAsyncOperation_IActivationSignalDetectionConfiguration : aliased constant Windows.IID := (1967934161, 38882, 21571, (133, 88, 93, 157, 83, 5, 208, 27 )); - function put_SignalName + type IAsyncOperation_IActivationSignalDetectionConfiguration_Interface is interface and Windows.IInspectable_Interface; + + function put_Completed ( - This : access IConversationalAgentSignal_Interface - ; value : Windows.String + This : access IAsyncOperation_IActivationSignalDetectionConfiguration_Interface + ; handler : Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration ) return Windows.HRESULT is abstract; - function get_SignalContext + function get_Completed ( - This : access IConversationalAgentSignal_Interface - ; RetVal : access Windows.Object + This : access IAsyncOperation_IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration ) return Windows.HRESULT is abstract; - function put_SignalContext + function GetResults ( - This : access IConversationalAgentSignal_Interface - ; value : Windows.Object + This : access IAsyncOperation_IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration ) return Windows.HRESULT is abstract; - function get_SignalStart + ------------------------------------------------------------------------ + + IID_IAsyncOperation_IConversationalAgentSession : aliased constant Windows.IID := (1367547401, 28561, 22960, (130, 13, 96, 185, 119, 117, 197, 117 )); + + type IAsyncOperation_IConversationalAgentSession_Interface is interface and Windows.IInspectable_Interface; + + function put_Completed + ( + This : access IAsyncOperation_IConversationalAgentSession_Interface + ; handler : Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_IConversationalAgentSession + ) + return Windows.HRESULT is abstract; + + function get_Completed + ( + This : access IAsyncOperation_IConversationalAgentSession_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.AsyncOperationCompletedHandler_IConversationalAgentSession + ) + return Windows.HRESULT is abstract; + + function GetResults + ( + This : access IAsyncOperation_IConversationalAgentSession_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSession + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IConversationalAgentDetectorManager : aliased constant Windows.IID := (3734305712, 22906, 24056, (140, 251, 157, 187, 88, 59, 163, 255 )); + + type IConversationalAgentDetectorManager_Interface is interface and Windows.IInspectable_Interface; + + function GetAllActivationSignalDetectors + ( + This : access IConversationalAgentDetectorManager_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IVectorView_IActivationSignalDetector -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function GetAllActivationSignalDetectorsAsync + ( + This : access IConversationalAgentDetectorManager_Interface + ; RetVal : access Windows.Address -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function GetActivationSignalDetectors + ( + This : access IConversationalAgentDetectorManager_Interface + ; kind : Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectorKind + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IVectorView_IActivationSignalDetector -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function GetActivationSignalDetectorsAsync + ( + This : access IConversationalAgentDetectorManager_Interface + ; kind : Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectorKind + ; RetVal : access Windows.Address -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IConversationalAgentDetectorManagerStatics : aliased constant Windows.IID := (917033603, 64014, 22163, (132, 137, 15, 178, 240, 171, 64, 211 )); + + type IConversationalAgentDetectorManagerStatics_Interface is interface and Windows.IInspectable_Interface; + + function get_Default + ( + This : access IConversationalAgentDetectorManagerStatics_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IConversationalAgentDetectorManager + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IConversationalAgentSession : aliased constant Windows.IID := (3668631706, 47034, 22501, (173, 19, 223, 82, 15, 155, 111, 167 )); + + type IConversationalAgentSession_Interface is interface and Windows.IInspectable_Interface; + + function add_SessionInterrupted + ( + This : access IConversationalAgentSession_Interface + ; handler : TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_SessionInterrupted + ( + This : access IConversationalAgentSession_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_SignalDetected + ( + This : access IConversationalAgentSession_Interface + ; handler : TypedEventHandler_IConversationalAgentSession_add_SignalDetected + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_SignalDetected + ( + This : access IConversationalAgentSession_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_SystemStateChanged + ( + This : access IConversationalAgentSession_Interface + ; handler : TypedEventHandler_IConversationalAgentSession_add_SystemStateChanged + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_SystemStateChanged + ( + This : access IConversationalAgentSession_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function get_AgentState + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentState + ) + return Windows.HRESULT is abstract; + + function get_Signal + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSignal + ) + return Windows.HRESULT is abstract; + + function get_IsIndicatorLightAvailable + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsScreenAvailable + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsUserAuthenticated + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsVoiceActivationAvailable + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsInterruptible + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsInterrupted + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function RequestInterruptibleAsync + ( + This : access IConversationalAgentSession_Interface + ; interruptible : Windows.Boolean + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_ConversationalAgentSessionUpdateResponse -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function RequestInterruptible + ( + This : access IConversationalAgentSession_Interface + ; interruptible : Windows.Boolean + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentSessionUpdateResponse + ) + return Windows.HRESULT is abstract; + + function RequestAgentStateChangeAsync + ( + This : access IConversationalAgentSession_Interface + ; state : Windows.ApplicationModel.ConversationalAgent.ConversationalAgentState + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_ConversationalAgentSessionUpdateResponse -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function RequestAgentStateChange + ( + This : access IConversationalAgentSession_Interface + ; state : Windows.ApplicationModel.ConversationalAgent.ConversationalAgentState + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentSessionUpdateResponse + ) + return Windows.HRESULT is abstract; + + function RequestForegroundActivationAsync + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_ConversationalAgentSessionUpdateResponse -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function RequestForegroundActivation + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentSessionUpdateResponse + ) + return Windows.HRESULT is abstract; + + function GetAudioClientAsync + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Foundation.IAsyncOperation_Object -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function GetAudioClient + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Object + ) + return Windows.HRESULT is abstract; + + function CreateAudioDeviceInputNodeAsync + ( + This : access IConversationalAgentSession_Interface + ; graph : Windows.Media.Audio.IAudioGraph + ; RetVal : access Windows.Media.Audio.IAsyncOperation_IAudioDeviceInputNode -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function CreateAudioDeviceInputNode + ( + This : access IConversationalAgentSession_Interface + ; graph : Windows.Media.Audio.IAudioGraph + ; RetVal : access Windows.Media.Audio.IAudioDeviceInputNode + ) + return Windows.HRESULT is abstract; + + function GetAudioCaptureDeviceIdAsync + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Foundation.IAsyncOperation_String -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function GetAudioCaptureDeviceId + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function GetAudioRenderDeviceIdAsync + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Foundation.IAsyncOperation_String -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function GetAudioRenderDeviceId + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function GetSignalModelIdAsync + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Foundation.IAsyncOperation_UInt32 -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function GetSignalModelId + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function SetSignalModelIdAsync + ( + This : access IConversationalAgentSession_Interface + ; signalModelId : Windows.UInt32 + ; RetVal : access Windows.Foundation.IAsyncOperation_Boolean -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function SetSignalModelId + ( + This : access IConversationalAgentSession_Interface + ; signalModelId : Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetSupportedSignalModelIdsAsync + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Address -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function GetSupportedSignalModelIds + ( + This : access IConversationalAgentSession_Interface + ; RetVal : access Windows.Foundation.Collections.IVectorView_UInt32 -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IConversationalAgentSessionInterruptedEventArgs : aliased constant Windows.IID := (2540067103, 63037, 23870, (155, 242, 189, 7, 96, 85, 38, 134 )); + + type IConversationalAgentSessionInterruptedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + ------------------------------------------------------------------------ + + IID_IConversationalAgentSessionStatics : aliased constant Windows.IID := (2684687982, 59732, 22382, (190, 4, 17, 184, 237, 16, 243, 123 )); + + type IConversationalAgentSessionStatics_Interface is interface and Windows.IInspectable_Interface; + + function GetCurrentSessionAsync + ( + This : access IConversationalAgentSessionStatics_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_IConversationalAgentSession -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function GetCurrentSessionSync + ( + This : access IConversationalAgentSessionStatics_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSession + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IConversationalAgentSignal : aliased constant Windows.IID := (552412663, 45344, 20978, (134, 3, 38, 93, 106, 71, 242, 50 )); + + type IConversationalAgentSignal_Interface is interface and Windows.IInspectable_Interface; + + function get_IsSignalVerificationRequired + ( + This : access IConversationalAgentSignal_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_IsSignalVerificationRequired + ( + This : access IConversationalAgentSignal_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_SignalId + ( + This : access IConversationalAgentSignal_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function put_SignalId + ( + This : access IConversationalAgentSignal_Interface + ; value : Windows.String + ) + return Windows.HRESULT is abstract; + + function get_SignalName + ( + This : access IConversationalAgentSignal_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function put_SignalName + ( + This : access IConversationalAgentSignal_Interface + ; value : Windows.String + ) + return Windows.HRESULT is abstract; + + function get_SignalContext + ( + This : access IConversationalAgentSignal_Interface + ; RetVal : access Windows.Object + ) + return Windows.HRESULT is abstract; + + function put_SignalContext + ( + This : access IConversationalAgentSignal_Interface + ; value : Windows.Object + ) + return Windows.HRESULT is abstract; + + function get_SignalStart + ( + This : access IConversationalAgentSignal_Interface + ; RetVal : access Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + function put_SignalStart + ( + This : access IConversationalAgentSignal_Interface + ; value : Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + function get_SignalEnd + ( + This : access IConversationalAgentSignal_Interface + ; RetVal : access Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + function put_SignalEnd + ( + This : access IConversationalAgentSignal_Interface + ; value : Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IConversationalAgentSignalDetectedEventArgs : aliased constant Windows.IID := (1297607567, 63626, 22939, (145, 211, 214, 4, 135, 103, 8, 188 )); + + type IConversationalAgentSignalDetectedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + ------------------------------------------------------------------------ + + IID_IConversationalAgentSystemStateChangedEventArgs : aliased constant Windows.IID := (472673854, 10117, 22951, (142, 113, 56, 173, 238, 247, 153, 40 )); + + type IConversationalAgentSystemStateChangedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + function get_SystemStateChangeType + ( + This : access IConversationalAgentSystemStateChangedEventArgs_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentSystemStateChangeType + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IDetectionConfigurationAvailabilityChangedEventArgs : aliased constant Windows.IID := (1361693179, 19432, 24340, (175, 43, 136, 214, 43, 27, 68, 98 )); + + type IDetectionConfigurationAvailabilityChangedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + function get_Kind + ( + This : access IDetectionConfigurationAvailabilityChangedEventArgs_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.DetectionConfigurationAvailabilityChangeKind + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IDetectionConfigurationAvailabilityInfo : aliased constant Windows.IID := (3048210096, 16624, 21400, (184, 56, 145, 151, 156, 44, 98, 8 )); + + type IDetectionConfigurationAvailabilityInfo_Interface is interface and Windows.IInspectable_Interface; + + function get_IsEnabled ( - This : access IConversationalAgentSignal_Interface - ; RetVal : access Windows.Foundation.TimeSpan + This : access IDetectionConfigurationAvailabilityInfo_Interface + ; RetVal : access Windows.Boolean ) return Windows.HRESULT is abstract; - function put_SignalStart + function get_HasSystemResourceAccess ( - This : access IConversationalAgentSignal_Interface - ; value : Windows.Foundation.TimeSpan + This : access IDetectionConfigurationAvailabilityInfo_Interface + ; RetVal : access Windows.Boolean ) return Windows.HRESULT is abstract; - function get_SignalEnd + function get_HasPermission ( - This : access IConversationalAgentSignal_Interface - ; RetVal : access Windows.Foundation.TimeSpan + This : access IDetectionConfigurationAvailabilityInfo_Interface + ; RetVal : access Windows.Boolean ) return Windows.HRESULT is abstract; - function put_SignalEnd + function get_HasLockScreenPermission ( - This : access IConversationalAgentSignal_Interface - ; value : Windows.Foundation.TimeSpan + This : access IDetectionConfigurationAvailabilityInfo_Interface + ; RetVal : access Windows.Boolean ) return Windows.HRESULT is abstract; ------------------------------------------------------------------------ - IID_IConversationalAgentSignalDetectedEventArgs : aliased constant Windows.IID := (1297607567, 63626, 22939, (145, 211, 214, 4, 135, 103, 8, 188 )); + IID_IIterable_ActivationSignalDetectionTrainingDataFormat : aliased constant Windows.IID := (2293661228, 60479, 21004, (174, 101, 191, 230, 50, 114, 250, 221 )); - type IConversationalAgentSignalDetectedEventArgs_Interface is interface and Windows.IInspectable_Interface; + type IIterable_ActivationSignalDetectionTrainingDataFormat_Interface is interface and Windows.IInspectable_Interface; + + function First + ( + This : access IIterable_ActivationSignalDetectionTrainingDataFormat_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IIterator_ActivationSignalDetectionTrainingDataFormat + ) + return Windows.HRESULT is abstract; ------------------------------------------------------------------------ - IID_IConversationalAgentSystemStateChangedEventArgs : aliased constant Windows.IID := (472673854, 10117, 22951, (142, 113, 56, 173, 238, 247, 153, 40 )); + IID_IIterable_ActivationSignalDetectorPowerState : aliased constant Windows.IID := (3062238536, 52933, 23040, (134, 83, 76, 146, 74, 153, 21, 117 )); - type IConversationalAgentSystemStateChangedEventArgs_Interface is interface and Windows.IInspectable_Interface; + type IIterable_ActivationSignalDetectorPowerState_Interface is interface and Windows.IInspectable_Interface; - function get_SystemStateChangeType + function First ( - This : access IConversationalAgentSystemStateChangedEventArgs_Interface - ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ConversationalAgentSystemStateChangeType + This : access IIterable_ActivationSignalDetectorPowerState_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IIterator_ActivationSignalDetectorPowerState + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IIterable_IActivationSignalDetectionConfiguration : aliased constant Windows.IID := (3406015628, 14984, 23605, (152, 114, 0, 164, 102, 228, 154, 18 )); + + type IIterable_IActivationSignalDetectionConfiguration_Interface is interface and Windows.IInspectable_Interface; + + function First + ( + This : access IIterable_IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IIterator_IActivationSignalDetectionConfiguration + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IIterable_IActivationSignalDetector : aliased constant Windows.IID := (3791080079, 14571, 22718, (183, 112, 120, 175, 90, 74, 107, 46 )); + + type IIterable_IActivationSignalDetector_Interface is interface and Windows.IInspectable_Interface; + + function First + ( + This : access IIterable_IActivationSignalDetector_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IIterator_IActivationSignalDetector + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IIterator_ActivationSignalDetectionTrainingDataFormat : aliased constant Windows.IID := (527364757, 19761, 22644, (162, 45, 41, 135, 94, 232, 22, 92 )); + + type IIterator_ActivationSignalDetectionTrainingDataFormat_Interface is interface and Windows.IInspectable_Interface; + + function get_Current + ( + This : access IIterator_ActivationSignalDetectionTrainingDataFormat_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectionTrainingDataFormat + ) + return Windows.HRESULT is abstract; + + function get_HasCurrent + ( + This : access IIterator_ActivationSignalDetectionTrainingDataFormat_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function MoveNext + ( + This : access IIterator_ActivationSignalDetectionTrainingDataFormat_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IIterator_ActivationSignalDetectionTrainingDataFormat_Interface + ; items : Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectionTrainingDataFormat_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IIterator_ActivationSignalDetectorPowerState : aliased constant Windows.IID := (4124748956, 37583, 22853, (156, 91, 28, 11, 142, 172, 129, 67 )); + + type IIterator_ActivationSignalDetectorPowerState_Interface is interface and Windows.IInspectable_Interface; + + function get_Current + ( + This : access IIterator_ActivationSignalDetectorPowerState_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectorPowerState + ) + return Windows.HRESULT is abstract; + + function get_HasCurrent + ( + This : access IIterator_ActivationSignalDetectorPowerState_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function MoveNext + ( + This : access IIterator_ActivationSignalDetectorPowerState_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IIterator_ActivationSignalDetectorPowerState_Interface + ; items : Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectorPowerState_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IIterator_IActivationSignalDetectionConfiguration : aliased constant Windows.IID := (602233433, 55221, 23119, (165, 29, 69, 209, 86, 119, 110, 63 )); + + type IIterator_IActivationSignalDetectionConfiguration_Interface is interface and Windows.IInspectable_Interface; + + function get_Current + ( + This : access IIterator_IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration + ) + return Windows.HRESULT is abstract; + + function get_HasCurrent + ( + This : access IIterator_IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function MoveNext + ( + This : access IIterator_IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IIterator_IActivationSignalDetectionConfiguration_Interface + ; items : Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IIterator_IActivationSignalDetector : aliased constant Windows.IID := (3155963420, 48579, 20664, (150, 171, 46, 18, 83, 31, 107, 192 )); + + type IIterator_IActivationSignalDetector_Interface is interface and Windows.IInspectable_Interface; + + function get_Current + ( + This : access IIterator_IActivationSignalDetector_Interface + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetector + ) + return Windows.HRESULT is abstract; + + function get_HasCurrent + ( + This : access IIterator_IActivationSignalDetector_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function MoveNext + ( + This : access IIterator_IActivationSignalDetector_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IIterator_IActivationSignalDetector_Interface + ; items : Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetector_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IVectorView_ActivationSignalDetectionTrainingDataFormat : aliased constant Windows.IID := (1737591238, 29636, 21141, (139, 4, 108, 224, 92, 171, 77, 23 )); + + type IVectorView_ActivationSignalDetectionTrainingDataFormat_Interface is interface and Windows.IInspectable_Interface; + + function GetAt + ( + This : access IVectorView_ActivationSignalDetectionTrainingDataFormat_Interface + ; index : Windows.UInt32 + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectionTrainingDataFormat + ) + return Windows.HRESULT is abstract; + + function get_Size + ( + This : access IVectorView_ActivationSignalDetectionTrainingDataFormat_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function IndexOf + ( + This : access IVectorView_ActivationSignalDetectionTrainingDataFormat_Interface + ; value : Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectionTrainingDataFormat + ; index : access Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IVectorView_ActivationSignalDetectionTrainingDataFormat_Interface + ; startIndex : Windows.UInt32 + ; items : Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectionTrainingDataFormat_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IVectorView_ActivationSignalDetectorPowerState : aliased constant Windows.IID := (3271818623, 53363, 21699, (132, 17, 193, 24, 34, 99, 35, 172 )); + + type IVectorView_ActivationSignalDetectorPowerState_Interface is interface and Windows.IInspectable_Interface; + + function GetAt + ( + This : access IVectorView_ActivationSignalDetectorPowerState_Interface + ; index : Windows.UInt32 + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectorPowerState + ) + return Windows.HRESULT is abstract; + + function get_Size + ( + This : access IVectorView_ActivationSignalDetectorPowerState_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function IndexOf + ( + This : access IVectorView_ActivationSignalDetectorPowerState_Interface + ; value : Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectorPowerState + ; index : access Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IVectorView_ActivationSignalDetectorPowerState_Interface + ; startIndex : Windows.UInt32 + ; items : Windows.ApplicationModel.ConversationalAgent.ActivationSignalDetectorPowerState_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IVectorView_IActivationSignalDetectionConfiguration : aliased constant Windows.IID := (622166078, 19845, 24055, (168, 138, 136, 56, 135, 48, 214, 89 )); + + type IVectorView_IActivationSignalDetectionConfiguration_Interface is interface and Windows.IInspectable_Interface; + + function GetAt + ( + This : access IVectorView_IActivationSignalDetectionConfiguration_Interface + ; index : Windows.UInt32 + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration + ) + return Windows.HRESULT is abstract; + + function get_Size + ( + This : access IVectorView_IActivationSignalDetectionConfiguration_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function IndexOf + ( + This : access IVectorView_IActivationSignalDetectionConfiguration_Interface + ; value : Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration + ; index : access Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IVectorView_IActivationSignalDetectionConfiguration_Interface + ; startIndex : Windows.UInt32 + ; items : Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IVectorView_IActivationSignalDetector : aliased constant Windows.IID := (1850820184, 55869, 20993, (158, 178, 178, 239, 28, 141, 209, 186 )); + + type IVectorView_IActivationSignalDetector_Interface is interface and Windows.IInspectable_Interface; + + function GetAt + ( + This : access IVectorView_IActivationSignalDetector_Interface + ; index : Windows.UInt32 + ; RetVal : access Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetector + ) + return Windows.HRESULT is abstract; + + function get_Size + ( + This : access IVectorView_IActivationSignalDetector_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function IndexOf + ( + This : access IVectorView_IActivationSignalDetector_Interface + ; value : Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetector + ; index : access Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IVectorView_IActivationSignalDetector_Interface + ; startIndex : Windows.UInt32 + ; items : Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetector_Ptr + ; RetVal : access Windows.UInt32 ) return Windows.HRESULT is abstract; @@ -602,6 +1579,32 @@ package Windows.ApplicationModel.ConversationalAgent is ------------------------------------------------------------------------ + IID_AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus : aliased constant Windows.IID := (1813191559, 2431, 22885, (132, 213, 150, 76, 82, 177, 120, 126 )); + + type AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus_Interface(Callback : access procedure (asyncInfo : Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_DetectionConfigurationTrainingStatus ; asyncStatus : Windows.Foundation.AsyncStatus)) is new Windows.IMulticastDelegate_Interface(IID_AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus'access) with null record; + function Invoke + ( + This : access AsyncOperationCompletedHandler_DetectionConfigurationTrainingStatus_Interface + ; asyncInfo : Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_DetectionConfigurationTrainingStatus + ; asyncStatus : Windows.Foundation.AsyncStatus + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration : aliased constant Windows.IID := (4072888290, 45896, 21585, (130, 163, 240, 0, 72, 195, 162, 23 )); + + type AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration_Interface(Callback : access procedure (asyncInfo : Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_IActivationSignalDetectionConfiguration ; asyncStatus : Windows.Foundation.AsyncStatus)) is new Windows.IMulticastDelegate_Interface(IID_AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration'access) with null record; + function Invoke + ( + This : access AsyncOperationCompletedHandler_IActivationSignalDetectionConfiguration_Interface + ; asyncInfo : Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_IActivationSignalDetectionConfiguration + ; asyncStatus : Windows.Foundation.AsyncStatus + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + IID_AsyncOperationCompletedHandler_IConversationalAgentSession : aliased constant Windows.IID := (125474465, 31026, 23987, (165, 3, 52, 163, 5, 113, 243, 242 )); type AsyncOperationCompletedHandler_IConversationalAgentSession_Interface(Callback : access procedure (asyncInfo : Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_IConversationalAgentSession ; asyncStatus : Windows.Foundation.AsyncStatus)) is new Windows.IMulticastDelegate_Interface(IID_AsyncOperationCompletedHandler_IConversationalAgentSession'access) with null record; @@ -615,6 +1618,19 @@ package Windows.ApplicationModel.ConversationalAgent is ------------------------------------------------------------------------ + IID_TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged : aliased constant Windows.IID := (1225869034, 11206, 24323, (163, 23, 9, 122, 174, 5, 81, 152 )); + + type TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged_Interface(Callback : access procedure (sender : Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration ; args : Windows.ApplicationModel.ConversationalAgent.IDetectionConfigurationAvailabilityChangedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IActivationSignalDetectionConfiguration_add_AvailabilityChanged_Interface + ; sender : Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration + ; args : Windows.ApplicationModel.ConversationalAgent.IDetectionConfigurationAvailabilityChangedEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + IID_TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted : aliased constant Windows.IID := (3787494386, 49908, 22726, (159, 209, 59, 235, 19, 177, 142, 200 )); type TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted_Interface(Callback : access procedure (sender : Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSession ; args : Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSessionInterruptedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IConversationalAgentSession_add_SessionInterrupted'access) with null record; @@ -656,16 +1672,24 @@ package Windows.ApplicationModel.ConversationalAgent is -- Classes ------------------------------------------------------------------------ + subtype ActivationSignalDetectionConfiguration is Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetectionConfiguration; + subtype ActivationSignalDetector is Windows.ApplicationModel.ConversationalAgent.IActivationSignalDetector; + subtype ConversationalAgentDetectorManager is Windows.ApplicationModel.ConversationalAgent.IConversationalAgentDetectorManager; subtype ConversationalAgentSession is Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSession; subtype ConversationalAgentSessionInterruptedEventArgs is Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSessionInterruptedEventArgs; subtype ConversationalAgentSignal is Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSignal; subtype ConversationalAgentSignalDetectedEventArgs is Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSignalDetectedEventArgs; subtype ConversationalAgentSystemStateChangedEventArgs is Windows.ApplicationModel.ConversationalAgent.IConversationalAgentSystemStateChangedEventArgs; + subtype DetectionConfigurationAvailabilityChangedEventArgs is Windows.ApplicationModel.ConversationalAgent.IDetectionConfigurationAvailabilityChangedEventArgs; + subtype DetectionConfigurationAvailabilityInfo is Windows.ApplicationModel.ConversationalAgent.IDetectionConfigurationAvailabilityInfo; ------------------------------------------------------------------------ -- Static Procedures/functions ------------------------------------------------------------------------ + function get_Default + return Windows.ApplicationModel.ConversationalAgent.IConversationalAgentDetectorManager; + function GetCurrentSessionAsync return Windows.ApplicationModel.ConversationalAgent.IAsyncOperation_IConversationalAgentSession; diff --git a/Bindings/Windows.ApplicationModel.Core.ads b/Bindings/Windows.ApplicationModel.Core.ads index b1cb5e3..bfafc65 100644 --- a/Bindings/Windows.ApplicationModel.Core.ads +++ b/Bindings/Windows.ApplicationModel.Core.ads @@ -149,9 +149,15 @@ package Windows.ApplicationModel.Core is type IHostedViewClosingEventArgs_Interface; type IHostedViewClosingEventArgs is access all IHostedViewClosingEventArgs_Interface'Class; type IHostedViewClosingEventArgs_Ptr is access all IHostedViewClosingEventArgs; + type IIterable_IAppListEntry_Interface; + type IIterable_IAppListEntry is access all IIterable_IAppListEntry_Interface'Class; + type IIterable_IAppListEntry_Ptr is access all IIterable_IAppListEntry; type IIterable_ICoreApplicationView_Interface; type IIterable_ICoreApplicationView is access all IIterable_ICoreApplicationView_Interface'Class; type IIterable_ICoreApplicationView_Ptr is access all IIterable_ICoreApplicationView; + type IIterator_IAppListEntry_Interface; + type IIterator_IAppListEntry is access all IIterator_IAppListEntry_Interface'Class; + type IIterator_IAppListEntry_Ptr is access all IIterator_IAppListEntry; type IIterator_ICoreApplicationView_Interface; type IIterator_ICoreApplicationView is access all IIterator_ICoreApplicationView_Interface'Class; type IIterator_ICoreApplicationView_Ptr is access all IIterator_ICoreApplicationView; @@ -161,6 +167,9 @@ package Windows.ApplicationModel.Core is type IUnhandledErrorDetectedEventArgs_Interface; type IUnhandledErrorDetectedEventArgs is access all IUnhandledErrorDetectedEventArgs_Interface'Class; type IUnhandledErrorDetectedEventArgs_Ptr is access all IUnhandledErrorDetectedEventArgs; + type IVectorView_IAppListEntry_Interface; + type IVectorView_IAppListEntry is access all IVectorView_IAppListEntry_Interface'Class; + type IVectorView_IAppListEntry_Ptr is access all IVectorView_IAppListEntry; type IVectorView_ICoreApplicationView_Interface; type IVectorView_ICoreApplicationView is access all IVectorView_ICoreApplicationView_Interface'Class; type IVectorView_ICoreApplicationView_Ptr is access all IVectorView_ICoreApplicationView; @@ -778,6 +787,19 @@ package Windows.ApplicationModel.Core is ------------------------------------------------------------------------ + IID_IIterable_IAppListEntry : aliased constant Windows.IID := (2264192239, 55549, 24501, (128, 124, 114, 218, 143, 201, 229, 68 )); + + type IIterable_IAppListEntry_Interface is interface and Windows.IInspectable_Interface; + + function First + ( + This : access IIterable_IAppListEntry_Interface + ; RetVal : access Windows.ApplicationModel.Core.IIterator_IAppListEntry + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IIterable_ICoreApplicationView : aliased constant Windows.IID := (851186385, 9811, 23105, (165, 94, 136, 161, 42, 242, 2, 106 )); type IIterable_ICoreApplicationView_Interface is interface and Windows.IInspectable_Interface; @@ -791,6 +813,41 @@ package Windows.ApplicationModel.Core is ------------------------------------------------------------------------ + IID_IIterator_IAppListEntry : aliased constant Windows.IID := (3107856424, 20668, 22942, (179, 217, 66, 123, 97, 210, 108, 1 )); + + type IIterator_IAppListEntry_Interface is interface and Windows.IInspectable_Interface; + + function get_Current + ( + This : access IIterator_IAppListEntry_Interface + ; RetVal : access Windows.ApplicationModel.Core.IAppListEntry + ) + return Windows.HRESULT is abstract; + + function get_HasCurrent + ( + This : access IIterator_IAppListEntry_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function MoveNext + ( + This : access IIterator_IAppListEntry_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IIterator_IAppListEntry_Interface + ; items : Windows.ApplicationModel.Core.IAppListEntry_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IIterator_ICoreApplicationView : aliased constant Windows.IID := (1331652932, 9803, 22632, (128, 158, 199, 172, 26, 197, 237, 173 )); type IIterator_ICoreApplicationView_Interface is interface and Windows.IInspectable_Interface; @@ -858,6 +915,45 @@ package Windows.ApplicationModel.Core is ------------------------------------------------------------------------ + IID_IVectorView_IAppListEntry : aliased constant Windows.IID := (2450295698, 54767, 22681, (135, 118, 42, 217, 122, 202, 110, 29 )); + + type IVectorView_IAppListEntry_Interface is interface and Windows.IInspectable_Interface; + + function GetAt + ( + This : access IVectorView_IAppListEntry_Interface + ; index : Windows.UInt32 + ; RetVal : access Windows.ApplicationModel.Core.IAppListEntry + ) + return Windows.HRESULT is abstract; + + function get_Size + ( + This : access IVectorView_IAppListEntry_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function IndexOf + ( + This : access IVectorView_IAppListEntry_Interface + ; value : Windows.ApplicationModel.Core.IAppListEntry + ; index : access Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IVectorView_IAppListEntry_Interface + ; startIndex : Windows.UInt32 + ; items : Windows.ApplicationModel.Core.IAppListEntry_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IVectorView_ICoreApplicationView : aliased constant Windows.IID := (3734902468, 7036, 20774, (177, 216, 124, 208, 79, 19, 189, 8 )); type IVectorView_ICoreApplicationView_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.ApplicationModel.DataTransfer.adb b/Bindings/Windows.ApplicationModel.DataTransfer.adb index ff69e90..be660d8 100644 --- a/Bindings/Windows.ApplicationModel.DataTransfer.adb +++ b/Bindings/Windows.ApplicationModel.DataTransfer.adb @@ -153,6 +153,19 @@ package body Windows.ApplicationModel.DataTransfer is return Hr; end; + function Invoke + ( + This : access TypedEventHandler_IDataPackage4_add_ShareCanceled_Interface + ; sender : Windows.ApplicationModel.DataTransfer.IDataPackage + ; args : Windows.Object + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.ApplicationModel.DataTransfer.IDataPackage(sender), args); + return Hr; + end; + function Invoke ( This : access TypedEventHandler_IDataTransferManager_add_DataRequested_Interface diff --git a/Bindings/Windows.ApplicationModel.DataTransfer.ads b/Bindings/Windows.ApplicationModel.DataTransfer.ads index 52bc395..0679808 100644 --- a/Bindings/Windows.ApplicationModel.DataTransfer.ads +++ b/Bindings/Windows.ApplicationModel.DataTransfer.ads @@ -130,6 +130,9 @@ package Windows.ApplicationModel.DataTransfer is type TypedEventHandler_IDataPackage3_add_ShareCompleted_Interface; type TypedEventHandler_IDataPackage3_add_ShareCompleted is access all TypedEventHandler_IDataPackage3_add_ShareCompleted_Interface'Class; type TypedEventHandler_IDataPackage3_add_ShareCompleted_Ptr is access all TypedEventHandler_IDataPackage3_add_ShareCompleted; + type TypedEventHandler_IDataPackage4_add_ShareCanceled_Interface; + type TypedEventHandler_IDataPackage4_add_ShareCanceled is access all TypedEventHandler_IDataPackage4_add_ShareCanceled_Interface'Class; + type TypedEventHandler_IDataPackage4_add_ShareCanceled_Ptr is access all TypedEventHandler_IDataPackage4_add_ShareCanceled; type TypedEventHandler_IDataTransferManager_add_DataRequested_Interface; type TypedEventHandler_IDataTransferManager_add_DataRequested is access all TypedEventHandler_IDataTransferManager_add_DataRequested_Interface'Class; type TypedEventHandler_IDataTransferManager_add_DataRequested_Ptr is access all TypedEventHandler_IDataTransferManager_add_DataRequested; @@ -180,6 +183,9 @@ package Windows.ApplicationModel.DataTransfer is type IDataPackage3_Interface; type IDataPackage3 is access all IDataPackage3_Interface'Class; type IDataPackage3_Ptr is access all IDataPackage3; + type IDataPackage4_Interface; + type IDataPackage4 is access all IDataPackage4_Interface'Class; + type IDataPackage4_Ptr is access all IDataPackage4; type IDataPackagePropertySet_Interface; type IDataPackagePropertySet is access all IDataPackagePropertySet_Interface'Class; type IDataPackagePropertySet_Ptr is access all IDataPackagePropertySet; @@ -707,7 +713,7 @@ package Windows.ApplicationModel.DataTransfer is function remove_OperationCompleted ( This : access IDataPackage_Interface - ; eventCookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; @@ -722,7 +728,7 @@ package Windows.ApplicationModel.DataTransfer is function remove_Destroyed ( This : access IDataPackage_Interface - ; eventCookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; @@ -842,6 +848,27 @@ package Windows.ApplicationModel.DataTransfer is ------------------------------------------------------------------------ + IID_IDataPackage4 : aliased constant Windows.IID := (329404104, 37762, 21359, (133, 42, 48, 69, 225, 178, 154, 59 )); + + type IDataPackage4_Interface is interface and Windows.IInspectable_Interface; + + function add_ShareCanceled + ( + This : access IDataPackage4_Interface + ; handler : TypedEventHandler_IDataPackage4_add_ShareCanceled + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_ShareCanceled + ( + This : access IDataPackage4_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IDataPackagePropertySet : aliased constant Windows.IID := (3441202155, 19532, 17466, (168, 211, 245, 194, 65, 233, 22, 137 )); type IDataPackagePropertySet_Interface is interface and Windows.IInspectable_Interface; @@ -2396,6 +2423,19 @@ package Windows.ApplicationModel.DataTransfer is ------------------------------------------------------------------------ + IID_TypedEventHandler_IDataPackage4_add_ShareCanceled : aliased constant Windows.IID := (3243684035, 7356, 23716, (144, 28, 98, 197, 168, 202, 92, 181 )); + + type TypedEventHandler_IDataPackage4_add_ShareCanceled_Interface(Callback : access procedure (sender : Windows.ApplicationModel.DataTransfer.IDataPackage ; args : Windows.Object)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IDataPackage4_add_ShareCanceled'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IDataPackage4_add_ShareCanceled_Interface + ; sender : Windows.ApplicationModel.DataTransfer.IDataPackage + ; args : Windows.Object + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + IID_TypedEventHandler_IDataTransferManager_add_DataRequested : aliased constant Windows.IID := (3966737608, 18128, 24078, (180, 210, 125, 119, 115, 174, 55, 160 )); type TypedEventHandler_IDataTransferManager_add_DataRequested_Interface(Callback : access procedure (sender : Windows.ApplicationModel.DataTransfer.IDataTransferManager ; args : Windows.ApplicationModel.DataTransfer.IDataRequestedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IDataTransferManager_add_DataRequested'access) with null record; diff --git a/Bindings/Windows.ApplicationModel.Payments.ads b/Bindings/Windows.ApplicationModel.Payments.ads index bbf39b2..e23f336 100644 --- a/Bindings/Windows.ApplicationModel.Payments.ads +++ b/Bindings/Windows.ApplicationModel.Payments.ads @@ -1989,37 +1989,37 @@ package Windows.ApplicationModel.Payments is function Create return Windows.ApplicationModel.Payments.IPaymentOptions; subtype PaymentRequest is Windows.ApplicationModel.Payments.IPaymentRequest; - function Create + function CreateWithMerchantInfoOptionsAndId ( details : Windows.ApplicationModel.Payments.IPaymentDetails ; methodData : Windows.ApplicationModel.Payments.IIterable_IPaymentMethodData + ; merchantInfo : Windows.ApplicationModel.Payments.IPaymentMerchantInfo + ; options : Windows.ApplicationModel.Payments.IPaymentOptions + ; id : Windows.String ) return Windows.ApplicationModel.Payments.IPaymentRequest; - function CreateWithMerchantInfo + function Create ( details : Windows.ApplicationModel.Payments.IPaymentDetails ; methodData : Windows.ApplicationModel.Payments.IIterable_IPaymentMethodData - ; merchantInfo : Windows.ApplicationModel.Payments.IPaymentMerchantInfo ) return Windows.ApplicationModel.Payments.IPaymentRequest; - function CreateWithMerchantInfoAndOptions + function CreateWithMerchantInfo ( details : Windows.ApplicationModel.Payments.IPaymentDetails ; methodData : Windows.ApplicationModel.Payments.IIterable_IPaymentMethodData ; merchantInfo : Windows.ApplicationModel.Payments.IPaymentMerchantInfo - ; options : Windows.ApplicationModel.Payments.IPaymentOptions ) return Windows.ApplicationModel.Payments.IPaymentRequest; - function CreateWithMerchantInfoOptionsAndId + function CreateWithMerchantInfoAndOptions ( details : Windows.ApplicationModel.Payments.IPaymentDetails ; methodData : Windows.ApplicationModel.Payments.IIterable_IPaymentMethodData ; merchantInfo : Windows.ApplicationModel.Payments.IPaymentMerchantInfo ; options : Windows.ApplicationModel.Payments.IPaymentOptions - ; id : Windows.String ) return Windows.ApplicationModel.Payments.IPaymentRequest; diff --git a/Bindings/Windows.ApplicationModel.Resources.Management.ads b/Bindings/Windows.ApplicationModel.Resources.Management.ads index fae3958..9dde52e 100644 --- a/Bindings/Windows.ApplicationModel.Resources.Management.ads +++ b/Bindings/Windows.ApplicationModel.Resources.Management.ads @@ -306,16 +306,16 @@ package Windows.ApplicationModel.Resources.Management is subtype IndexedResourceCandidate is Windows.ApplicationModel.Resources.Management.IIndexedResourceCandidate; subtype IndexedResourceQualifier is Windows.ApplicationModel.Resources.Management.IIndexedResourceQualifier; subtype ResourceIndexer is Windows.ApplicationModel.Resources.Management.IResourceIndexer; - function CreateResourceIndexerWithExtension + function CreateResourceIndexer ( projectRoot : Windows.Foundation.IUriRuntimeClass - ; extensionDllPath : Windows.Foundation.IUriRuntimeClass ) return Windows.ApplicationModel.Resources.Management.IResourceIndexer; - function CreateResourceIndexer + function CreateResourceIndexerWithExtension ( projectRoot : Windows.Foundation.IUriRuntimeClass + ; extensionDllPath : Windows.Foundation.IUriRuntimeClass ) return Windows.ApplicationModel.Resources.Management.IResourceIndexer; diff --git a/Bindings/Windows.ApplicationModel.adb b/Bindings/Windows.ApplicationModel.adb index 1b720cc..61c9562 100644 --- a/Bindings/Windows.ApplicationModel.adb +++ b/Bindings/Windows.ApplicationModel.adb @@ -259,6 +259,64 @@ package body Windows.ApplicationModel is -- Static procedures/functions ------------------------------------------------------------------------ + function get_Current + return Windows.ApplicationModel.IAppInfo is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.ApplicationModel.AppInfo"); + m_Factory : IAppInfoStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.ApplicationModel.IAppInfo; + begin + Hr := RoGetActivationFactory(m_hString, IID_IAppInfoStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.get_Current(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function GetFromAppUserModelId + ( + appUserModelId : Windows.String + ) + return Windows.ApplicationModel.IAppInfo is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.ApplicationModel.AppInfo"); + m_Factory : IAppInfoStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.ApplicationModel.IAppInfo; + begin + Hr := RoGetActivationFactory(m_hString, IID_IAppInfoStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.GetFromAppUserModelId(appUserModelId, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function GetFromAppUserModelIdForUser + ( + user : Windows.System.IUser + ; appUserModelId : Windows.String + ) + return Windows.ApplicationModel.IAppInfo is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.ApplicationModel.AppInfo"); + m_Factory : IAppInfoStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.ApplicationModel.IAppInfo; + begin + Hr := RoGetActivationFactory(m_hString, IID_IAppInfoStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.GetFromAppUserModelIdForUser(user, appUserModelId, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function FindOrRegisterInstanceForKey ( key : Windows.String diff --git a/Bindings/Windows.ApplicationModel.ads b/Bindings/Windows.ApplicationModel.ads index 5c85a4f..ed7a049 100644 --- a/Bindings/Windows.ApplicationModel.ads +++ b/Bindings/Windows.ApplicationModel.ads @@ -237,6 +237,12 @@ package Windows.ApplicationModel is type IAppInfo_Interface; type IAppInfo is access all IAppInfo_Interface'Class; type IAppInfo_Ptr is access all IAppInfo; + type IAppInfo2_Interface; + type IAppInfo2 is access all IAppInfo2_Interface'Class; + type IAppInfo2_Ptr is access all IAppInfo2; + type IAppInfoStatics_Interface; + type IAppInfoStatics is access all IAppInfoStatics_Interface'Class; + type IAppInfoStatics_Ptr is access all IAppInfoStatics; type IAppInstallerInfo_Interface; type IAppInstallerInfo is access all IAppInstallerInfo_Interface'Class; type IAppInstallerInfo_Ptr is access all IAppInstallerInfo; @@ -324,6 +330,9 @@ package Windows.ApplicationModel is type IPackage7_Interface; type IPackage7 is access all IPackage7_Interface'Class; type IPackage7_Ptr is access all IPackage7; + type IPackage8_Interface; + type IPackage8 is access all IPackage8_Interface'Class; + type IPackage8_Ptr is access all IPackage8; type IPackageCatalog_Interface; type IPackageCatalog is access all IPackageCatalog_Interface'Class; type IPackageCatalog_Ptr is access all IPackageCatalog; @@ -492,6 +501,49 @@ package Windows.ApplicationModel is ------------------------------------------------------------------------ + IID_IAppInfo2 : aliased constant Windows.IID := (3192594266, 8344, 17179, (189, 37, 179, 8, 120, 116, 141, 71 )); + + type IAppInfo2_Interface is interface and Windows.IInspectable_Interface; + + function get_Package + ( + This : access IAppInfo2_Interface + ; RetVal : access Windows.ApplicationModel.IPackage + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IAppInfoStatics : aliased constant Windows.IID := (3474946090, 58507, 20236, (155, 11, 121, 195, 248, 149, 125, 215 )); + + type IAppInfoStatics_Interface is interface and Windows.IInspectable_Interface; + + function get_Current + ( + This : access IAppInfoStatics_Interface + ; RetVal : access Windows.ApplicationModel.IAppInfo + ) + return Windows.HRESULT is abstract; + + function GetFromAppUserModelId + ( + This : access IAppInfoStatics_Interface + ; appUserModelId : Windows.String + ; RetVal : access Windows.ApplicationModel.IAppInfo + ) + return Windows.HRESULT is abstract; + + function GetFromAppUserModelIdForUser + ( + This : access IAppInfoStatics_Interface + ; user : Windows.System.IUser + ; appUserModelId : Windows.String + ; RetVal : access Windows.ApplicationModel.IAppInfo + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IAppInstallerInfo : aliased constant Windows.IID := (699083456, 54518, 17059, (173, 205, 214, 88, 60, 101, 149, 8 )); type IAppInstallerInfo_Interface is interface and Windows.IInspectable_Interface; @@ -1231,6 +1283,97 @@ package Windows.ApplicationModel is ------------------------------------------------------------------------ + IID_IPackage8 : aliased constant Windows.IID := (743985019, 52778, 19430, (160, 147, 119, 207, 187, 42, 126, 161 )); + + type IPackage8_Interface is interface and Windows.IInspectable_Interface; + + function get_EffectiveExternalLocation + ( + This : access IPackage8_Interface + ; RetVal : access Windows.Storage.IStorageFolder + ) + return Windows.HRESULT is abstract; + + function get_MachineExternalLocation + ( + This : access IPackage8_Interface + ; RetVal : access Windows.Storage.IStorageFolder + ) + return Windows.HRESULT is abstract; + + function get_UserExternalLocation + ( + This : access IPackage8_Interface + ; RetVal : access Windows.Storage.IStorageFolder + ) + return Windows.HRESULT is abstract; + + function get_InstalledPath + ( + This : access IPackage8_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function get_MutablePath + ( + This : access IPackage8_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function get_EffectivePath + ( + This : access IPackage8_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function get_EffectiveExternalPath + ( + This : access IPackage8_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function get_MachineExternalPath + ( + This : access IPackage8_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function get_UserExternalPath + ( + This : access IPackage8_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function GetLogoAsRandomAccessStreamReference + ( + This : access IPackage8_Interface + ; size : Windows.Foundation.Size + ; RetVal : access Windows.Storage.Streams.IRandomAccessStreamReference + ) + return Windows.HRESULT is abstract; + + function GetAppListEntries + ( + This : access IPackage8_Interface + ; RetVal : access Windows.ApplicationModel.Core.IVectorView_IAppListEntry -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_IsStub + ( + This : access IPackage8_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IPackageCatalog : aliased constant Windows.IID := (587872081, 40419, 17477, (190, 116, 145, 251, 50, 90, 190, 254 )); type IPackageCatalog_Interface is interface and Windows.IInspectable_Interface; @@ -2630,6 +2773,22 @@ package Windows.ApplicationModel is -- Static Procedures/functions ------------------------------------------------------------------------ + function get_Current + return Windows.ApplicationModel.IAppInfo; + + function GetFromAppUserModelId + ( + appUserModelId : Windows.String + ) + return Windows.ApplicationModel.IAppInfo; + + function GetFromAppUserModelIdForUser + ( + user : Windows.System.IUser + ; appUserModelId : Windows.String + ) + return Windows.ApplicationModel.IAppInfo; + function FindOrRegisterInstanceForKey ( key : Windows.String diff --git a/Bindings/Windows.Devices.Bluetooth.Advertisement.ads b/Bindings/Windows.Devices.Bluetooth.Advertisement.ads index 30079e7..64e2cc2 100644 --- a/Bindings/Windows.Devices.Bluetooth.Advertisement.ads +++ b/Bindings/Windows.Devices.Bluetooth.Advertisement.ads @@ -84,14 +84,16 @@ package Windows.Devices.Bluetooth.Advertisement is ConnectableDirected, ScannableUndirected, NonConnectableUndirected, - ScanResponse + ScanResponse, + Extended ); for BluetoothLEAdvertisementType use ( ConnectableUndirected => 0, ConnectableDirected => 1, ScannableUndirected => 2, NonConnectableUndirected => 3, - ScanResponse => 4 + ScanResponse => 4, + Extended => 5 ); for BluetoothLEAdvertisementType'Size use 32; @@ -117,11 +119,13 @@ package Windows.Devices.Bluetooth.Advertisement is type BluetoothLEScanningMode is ( Passive, - Active + Active, + None ); for BluetoothLEScanningMode use ( Passive => 0, - Active => 1 + Active => 1, + None => 2 ); for BluetoothLEScanningMode'Size use 32; @@ -169,18 +173,30 @@ package Windows.Devices.Bluetooth.Advertisement is type IBluetoothLEAdvertisementPublisher_Interface; type IBluetoothLEAdvertisementPublisher is access all IBluetoothLEAdvertisementPublisher_Interface'Class; type IBluetoothLEAdvertisementPublisher_Ptr is access all IBluetoothLEAdvertisementPublisher; + type IBluetoothLEAdvertisementPublisher2_Interface; + type IBluetoothLEAdvertisementPublisher2 is access all IBluetoothLEAdvertisementPublisher2_Interface'Class; + type IBluetoothLEAdvertisementPublisher2_Ptr is access all IBluetoothLEAdvertisementPublisher2; type IBluetoothLEAdvertisementPublisherFactory_Interface; type IBluetoothLEAdvertisementPublisherFactory is access all IBluetoothLEAdvertisementPublisherFactory_Interface'Class; type IBluetoothLEAdvertisementPublisherFactory_Ptr is access all IBluetoothLEAdvertisementPublisherFactory; type IBluetoothLEAdvertisementPublisherStatusChangedEventArgs_Interface; type IBluetoothLEAdvertisementPublisherStatusChangedEventArgs is access all IBluetoothLEAdvertisementPublisherStatusChangedEventArgs_Interface'Class; type IBluetoothLEAdvertisementPublisherStatusChangedEventArgs_Ptr is access all IBluetoothLEAdvertisementPublisherStatusChangedEventArgs; + type IBluetoothLEAdvertisementPublisherStatusChangedEventArgs2_Interface; + type IBluetoothLEAdvertisementPublisherStatusChangedEventArgs2 is access all IBluetoothLEAdvertisementPublisherStatusChangedEventArgs2_Interface'Class; + type IBluetoothLEAdvertisementPublisherStatusChangedEventArgs2_Ptr is access all IBluetoothLEAdvertisementPublisherStatusChangedEventArgs2; type IBluetoothLEAdvertisementReceivedEventArgs_Interface; type IBluetoothLEAdvertisementReceivedEventArgs is access all IBluetoothLEAdvertisementReceivedEventArgs_Interface'Class; type IBluetoothLEAdvertisementReceivedEventArgs_Ptr is access all IBluetoothLEAdvertisementReceivedEventArgs; + type IBluetoothLEAdvertisementReceivedEventArgs2_Interface; + type IBluetoothLEAdvertisementReceivedEventArgs2 is access all IBluetoothLEAdvertisementReceivedEventArgs2_Interface'Class; + type IBluetoothLEAdvertisementReceivedEventArgs2_Ptr is access all IBluetoothLEAdvertisementReceivedEventArgs2; type IBluetoothLEAdvertisementWatcher_Interface; type IBluetoothLEAdvertisementWatcher is access all IBluetoothLEAdvertisementWatcher_Interface'Class; type IBluetoothLEAdvertisementWatcher_Ptr is access all IBluetoothLEAdvertisementWatcher; + type IBluetoothLEAdvertisementWatcher2_Interface; + type IBluetoothLEAdvertisementWatcher2 is access all IBluetoothLEAdvertisementWatcher2_Interface'Class; + type IBluetoothLEAdvertisementWatcher2_Ptr is access all IBluetoothLEAdvertisementWatcher2; type IBluetoothLEAdvertisementWatcherFactory_Interface; type IBluetoothLEAdvertisementWatcherFactory is access all IBluetoothLEAdvertisementWatcherFactory_Interface'Class; type IBluetoothLEAdvertisementWatcherFactory_Ptr is access all IBluetoothLEAdvertisementWatcherFactory; @@ -666,6 +682,68 @@ package Windows.Devices.Bluetooth.Advertisement is ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementPublisher2 : aliased constant Windows.IID := (4225455198, 22257, 20751, (164, 52, 33, 127, 189, 158, 123, 210 )); + + type IBluetoothLEAdvertisementPublisher2_Interface is interface and Windows.IInspectable_Interface; + + function get_PreferredTransmitPowerLevelInDBm + ( + This : access IBluetoothLEAdvertisementPublisher2_Interface + ; RetVal : access Windows.Foundation.IReference_Int16 -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function put_PreferredTransmitPowerLevelInDBm + ( + This : access IBluetoothLEAdvertisementPublisher2_Interface + ; value : Windows.Foundation.IReference_Int16 + ) + return Windows.HRESULT is abstract; + + function get_UseExtendedAdvertisement + ( + This : access IBluetoothLEAdvertisementPublisher2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_UseExtendedAdvertisement + ( + This : access IBluetoothLEAdvertisementPublisher2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsAnonymous + ( + This : access IBluetoothLEAdvertisementPublisher2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_IsAnonymous + ( + This : access IBluetoothLEAdvertisementPublisher2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IncludeTransmitPowerLevel + ( + This : access IBluetoothLEAdvertisementPublisher2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_IncludeTransmitPowerLevel + ( + This : access IBluetoothLEAdvertisementPublisher2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementPublisherFactory : aliased constant Windows.IID := (1549731422, 47203, 18817, (161, 175, 28, 84, 77, 139, 12, 13 )); type IBluetoothLEAdvertisementPublisherFactory_Interface is interface and Windows.IInspectable_Interface; @@ -700,6 +778,19 @@ package Windows.Devices.Bluetooth.Advertisement is ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementPublisherStatusChangedEventArgs2 : aliased constant Windows.IID := (2405595406, 56456, 23691, (179, 78, 16, 179, 33, 133, 15, 136 )); + + type IBluetoothLEAdvertisementPublisherStatusChangedEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_SelectedTransmitPowerLevelInDBm + ( + This : access IBluetoothLEAdvertisementPublisherStatusChangedEventArgs2_Interface + ; RetVal : access Windows.Foundation.IReference_Int16 -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementReceivedEventArgs : aliased constant Windows.IID := (664305119, 58774, 16830, (141, 67, 158, 103, 49, 212, 169, 19 )); type IBluetoothLEAdvertisementReceivedEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -741,6 +832,61 @@ package Windows.Devices.Bluetooth.Advertisement is ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementReceivedEventArgs2 : aliased constant Windows.IID := (316262523, 921, 24334, (163, 72, 83, 176, 43, 107, 22, 46 )); + + type IBluetoothLEAdvertisementReceivedEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_BluetoothAddressType + ( + This : access IBluetoothLEAdvertisementReceivedEventArgs2_Interface + ; RetVal : access Windows.Devices.Bluetooth.BluetoothAddressType + ) + return Windows.HRESULT is abstract; + + function get_TransmitPowerLevelInDBm + ( + This : access IBluetoothLEAdvertisementReceivedEventArgs2_Interface + ; RetVal : access Windows.Foundation.IReference_Int16 -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_IsAnonymous + ( + This : access IBluetoothLEAdvertisementReceivedEventArgs2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsConnectable + ( + This : access IBluetoothLEAdvertisementReceivedEventArgs2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsScannable + ( + This : access IBluetoothLEAdvertisementReceivedEventArgs2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsDirected + ( + This : access IBluetoothLEAdvertisementReceivedEventArgs2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_IsScanResponse + ( + This : access IBluetoothLEAdvertisementReceivedEventArgs2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementWatcher : aliased constant Windows.IID := (2796303215, 62419, 17047, (141, 108, 200, 30, 166, 98, 63, 64 )); type IBluetoothLEAdvertisementWatcher_Interface is interface and Windows.IInspectable_Interface; @@ -866,6 +1012,26 @@ package Windows.Devices.Bluetooth.Advertisement is ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementWatcher2 : aliased constant Windows.IID := (29304508, 45412, 22533, (144, 163, 232, 167, 153, 127, 242, 37 )); + + type IBluetoothLEAdvertisementWatcher2_Interface is interface and Windows.IInspectable_Interface; + + function get_AllowExtendedAdvertisements + ( + This : access IBluetoothLEAdvertisementWatcher2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_AllowExtendedAdvertisements + ( + This : access IBluetoothLEAdvertisementWatcher2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementWatcherFactory : aliased constant Windows.IID := (2595171670, 14764, 17726, (179, 42, 133, 198, 87, 224, 23, 241 )); type IBluetoothLEAdvertisementWatcherFactory_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.Devices.Bluetooth.Background.ads b/Bindings/Windows.Devices.Bluetooth.Background.ads index 8ce45d1..9b79b92 100644 --- a/Bindings/Windows.Devices.Bluetooth.Background.ads +++ b/Bindings/Windows.Devices.Bluetooth.Background.ads @@ -29,6 +29,7 @@ limited with Windows.Devices.Bluetooth.Advertisement; limited with Windows.Devices.Bluetooth.GenericAttributeProfile; limited with Windows.Devices.Bluetooth.Rfcomm; +with Windows.Foundation; with Windows.Foundation.Collections; limited with Windows.Networking.Sockets; limited with Windows.Storage.Streams; @@ -62,6 +63,9 @@ package Windows.Devices.Bluetooth.Background is type IBluetoothLEAdvertisementPublisherTriggerDetails_Interface; type IBluetoothLEAdvertisementPublisherTriggerDetails is access all IBluetoothLEAdvertisementPublisherTriggerDetails_Interface'Class; type IBluetoothLEAdvertisementPublisherTriggerDetails_Ptr is access all IBluetoothLEAdvertisementPublisherTriggerDetails; + type IBluetoothLEAdvertisementPublisherTriggerDetails2_Interface; + type IBluetoothLEAdvertisementPublisherTriggerDetails2 is access all IBluetoothLEAdvertisementPublisherTriggerDetails2_Interface'Class; + type IBluetoothLEAdvertisementPublisherTriggerDetails2_Ptr is access all IBluetoothLEAdvertisementPublisherTriggerDetails2; type IBluetoothLEAdvertisementWatcherTriggerDetails_Interface; type IBluetoothLEAdvertisementWatcherTriggerDetails is access all IBluetoothLEAdvertisementWatcherTriggerDetails_Interface'Class; type IBluetoothLEAdvertisementWatcherTriggerDetails_Ptr is access all IBluetoothLEAdvertisementWatcherTriggerDetails; @@ -116,6 +120,19 @@ package Windows.Devices.Bluetooth.Background is ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementPublisherTriggerDetails2 : aliased constant Windows.IID := (3567505445, 50689, 17110, (152, 41, 76, 203, 63, 92, 215, 127 )); + + type IBluetoothLEAdvertisementPublisherTriggerDetails2_Interface is interface and Windows.IInspectable_Interface; + + function get_SelectedTransmitPowerLevelInDBm + ( + This : access IBluetoothLEAdvertisementPublisherTriggerDetails2_Interface + ; RetVal : access Windows.Foundation.IReference_Int16 -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IBluetoothLEAdvertisementWatcherTriggerDetails : aliased constant Windows.IID := (2816170711, 8791, 20073, (151, 132, 254, 230, 69, 193, 220, 224 )); type IBluetoothLEAdvertisementWatcherTriggerDetails_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.Devices.Bluetooth.ads b/Bindings/Windows.Devices.Bluetooth.ads index 3d9d815..e2c6be7 100644 --- a/Bindings/Windows.Devices.Bluetooth.ads +++ b/Bindings/Windows.Devices.Bluetooth.ads @@ -222,6 +222,9 @@ package Windows.Devices.Bluetooth is type IBluetoothAdapter2_Interface; type IBluetoothAdapter2 is access all IBluetoothAdapter2_Interface'Class; type IBluetoothAdapter2_Ptr is access all IBluetoothAdapter2; + type IBluetoothAdapter3_Interface; + type IBluetoothAdapter3 is access all IBluetoothAdapter3_Interface'Class; + type IBluetoothAdapter3_Ptr is access all IBluetoothAdapter3; type IBluetoothAdapterStatics_Interface; type IBluetoothAdapterStatics is access all IBluetoothAdapterStatics_Interface'Class; type IBluetoothAdapterStatics_Ptr is access all IBluetoothAdapterStatics; @@ -467,6 +470,26 @@ package Windows.Devices.Bluetooth is ------------------------------------------------------------------------ + IID_IBluetoothAdapter3 : aliased constant Windows.IID := (2407933152, 52137, 21009, (159, 137, 58, 172, 98, 180, 198, 184 )); + + type IBluetoothAdapter3_Interface is interface and Windows.IInspectable_Interface; + + function get_IsExtendedAdvertisingSupported + ( + This : access IBluetoothAdapter3_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_MaxAdvertisementDataLength + ( + This : access IBluetoothAdapter3_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IBluetoothAdapterStatics : aliased constant Windows.IID := (2332228458, 44108, 18241, (134, 97, 142, 171, 125, 23, 234, 159 )); type IBluetoothAdapterStatics_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.Devices.Display.ads b/Bindings/Windows.Devices.Display.ads index 9a094c0..e48da2d 100644 --- a/Bindings/Windows.Devices.Display.ads +++ b/Bindings/Windows.Devices.Display.ads @@ -121,6 +121,9 @@ package Windows.Devices.Display is type IDisplayMonitor_Interface; type IDisplayMonitor is access all IDisplayMonitor_Interface'Class; type IDisplayMonitor_Ptr is access all IDisplayMonitor; + type IDisplayMonitor2_Interface; + type IDisplayMonitor2 is access all IDisplayMonitor2_Interface'Class; + type IDisplayMonitor2_Ptr is access all IDisplayMonitor2; type IDisplayMonitorStatics_Interface; type IDisplayMonitorStatics is access all IDisplayMonitorStatics_Interface'Class; type IDisplayMonitorStatics_Ptr is access all IDisplayMonitorStatics; @@ -305,6 +308,19 @@ package Windows.Devices.Display is ------------------------------------------------------------------------ + IID_IDisplayMonitor2 : aliased constant Windows.IID := (36706534, 52003, 22576, (150, 223, 167, 191, 110, 96, 37, 119 )); + + type IDisplayMonitor2_Interface is interface and Windows.IInspectable_Interface; + + function get_IsDolbyVisionSupportedInHdrMode + ( + This : access IDisplayMonitor2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IDisplayMonitorStatics : aliased constant Windows.IID := (1856924047, 41512, 19461, (130, 29, 182, 149, 214, 103, 222, 142 )); type IDisplayMonitorStatics_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.Devices.Input.adb b/Bindings/Windows.Devices.Input.adb index 2362e61..93b02fd 100644 --- a/Bindings/Windows.Devices.Input.adb +++ b/Bindings/Windows.Devices.Input.adb @@ -47,6 +47,97 @@ package body Windows.Devices.Input is return Hr; end; + function Invoke + ( + This : access TypedEventHandler_IPenButtonListener_add_IsSupportedChanged_Interface + ; sender : Windows.Devices.Input.IPenButtonListener + ; args : Windows.Object + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.Devices.Input.IPenButtonListener(sender), args); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_IPenButtonListener_add_TailButtonClicked_Interface + ; sender : Windows.Devices.Input.IPenButtonListener + ; args : Windows.Devices.Input.IPenTailButtonClickedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.Devices.Input.IPenButtonListener(sender), Windows.Devices.Input.IPenTailButtonClickedEventArgs(args)); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked_Interface + ; sender : Windows.Devices.Input.IPenButtonListener + ; args : Windows.Devices.Input.IPenTailButtonDoubleClickedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.Devices.Input.IPenButtonListener(sender), Windows.Devices.Input.IPenTailButtonDoubleClickedEventArgs(args)); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed_Interface + ; sender : Windows.Devices.Input.IPenButtonListener + ; args : Windows.Devices.Input.IPenTailButtonLongPressedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.Devices.Input.IPenButtonListener(sender), Windows.Devices.Input.IPenTailButtonLongPressedEventArgs(args)); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_IPenDockListener_add_Docked_Interface + ; sender : Windows.Devices.Input.IPenDockListener + ; args : Windows.Devices.Input.IPenDockedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.Devices.Input.IPenDockListener(sender), Windows.Devices.Input.IPenDockedEventArgs(args)); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_IPenDockListener_add_IsSupportedChanged_Interface + ; sender : Windows.Devices.Input.IPenDockListener + ; args : Windows.Object + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.Devices.Input.IPenDockListener(sender), args); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_IPenDockListener_add_Undocked_Interface + ; sender : Windows.Devices.Input.IPenDockListener + ; args : Windows.Devices.Input.IPenUndockedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.Devices.Input.IPenDockListener(sender), Windows.Devices.Input.IPenUndockedEventArgs(args)); + return Hr; + end; + ------------------------------------------------------------------------ -- Create functions (for activatable classes) ------------------------------------------------------------------------ @@ -127,6 +218,23 @@ package body Windows.Devices.Input is return RetVal; end; + function GetDefault + return Windows.Devices.Input.IPenButtonListener is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Devices.Input.PenButtonListener"); + m_Factory : IPenButtonListenerStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Devices.Input.IPenButtonListener; + begin + Hr := RoGetActivationFactory(m_hString, IID_IPenButtonListenerStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.GetDefault(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function GetFromPointerId ( pointerId : Windows.UInt32 @@ -147,6 +255,23 @@ package body Windows.Devices.Input is return RetVal; end; + function GetDefault + return Windows.Devices.Input.IPenDockListener is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Devices.Input.PenDockListener"); + m_Factory : IPenDockListenerStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Devices.Input.IPenDockListener; + begin + Hr := RoGetActivationFactory(m_hString, IID_IPenDockListenerStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.GetDefault(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function GetPointerDevice ( pointerId : Windows.UInt32 diff --git a/Bindings/Windows.Devices.Input.ads b/Bindings/Windows.Devices.Input.ads index 86e0469..c05e3fe 100644 --- a/Bindings/Windows.Devices.Input.ads +++ b/Bindings/Windows.Devices.Input.ads @@ -84,6 +84,27 @@ package Windows.Devices.Input is type TypedEventHandler_IMouseDevice_add_MouseMoved_Interface; type TypedEventHandler_IMouseDevice_add_MouseMoved is access all TypedEventHandler_IMouseDevice_add_MouseMoved_Interface'Class; type TypedEventHandler_IMouseDevice_add_MouseMoved_Ptr is access all TypedEventHandler_IMouseDevice_add_MouseMoved; + type TypedEventHandler_IPenButtonListener_add_IsSupportedChanged_Interface; + type TypedEventHandler_IPenButtonListener_add_IsSupportedChanged is access all TypedEventHandler_IPenButtonListener_add_IsSupportedChanged_Interface'Class; + type TypedEventHandler_IPenButtonListener_add_IsSupportedChanged_Ptr is access all TypedEventHandler_IPenButtonListener_add_IsSupportedChanged; + type TypedEventHandler_IPenButtonListener_add_TailButtonClicked_Interface; + type TypedEventHandler_IPenButtonListener_add_TailButtonClicked is access all TypedEventHandler_IPenButtonListener_add_TailButtonClicked_Interface'Class; + type TypedEventHandler_IPenButtonListener_add_TailButtonClicked_Ptr is access all TypedEventHandler_IPenButtonListener_add_TailButtonClicked; + type TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked_Interface; + type TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked is access all TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked_Interface'Class; + type TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked_Ptr is access all TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked; + type TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed_Interface; + type TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed is access all TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed_Interface'Class; + type TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed_Ptr is access all TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed; + type TypedEventHandler_IPenDockListener_add_Docked_Interface; + type TypedEventHandler_IPenDockListener_add_Docked is access all TypedEventHandler_IPenDockListener_add_Docked_Interface'Class; + type TypedEventHandler_IPenDockListener_add_Docked_Ptr is access all TypedEventHandler_IPenDockListener_add_Docked; + type TypedEventHandler_IPenDockListener_add_IsSupportedChanged_Interface; + type TypedEventHandler_IPenDockListener_add_IsSupportedChanged is access all TypedEventHandler_IPenDockListener_add_IsSupportedChanged_Interface'Class; + type TypedEventHandler_IPenDockListener_add_IsSupportedChanged_Ptr is access all TypedEventHandler_IPenDockListener_add_IsSupportedChanged; + type TypedEventHandler_IPenDockListener_add_Undocked_Interface; + type TypedEventHandler_IPenDockListener_add_Undocked is access all TypedEventHandler_IPenDockListener_add_Undocked_Interface'Class; + type TypedEventHandler_IPenDockListener_add_Undocked_Ptr is access all TypedEventHandler_IPenDockListener_add_Undocked; ------------------------------------------------------------------------ -- Forward Declaration - Interfaces @@ -116,12 +137,39 @@ package Windows.Devices.Input is type IMouseEventArgs_Interface; type IMouseEventArgs is access all IMouseEventArgs_Interface'Class; type IMouseEventArgs_Ptr is access all IMouseEventArgs; + type IPenButtonListener_Interface; + type IPenButtonListener is access all IPenButtonListener_Interface'Class; + type IPenButtonListener_Ptr is access all IPenButtonListener; + type IPenButtonListenerStatics_Interface; + type IPenButtonListenerStatics is access all IPenButtonListenerStatics_Interface'Class; + type IPenButtonListenerStatics_Ptr is access all IPenButtonListenerStatics; type IPenDevice_Interface; type IPenDevice is access all IPenDevice_Interface'Class; type IPenDevice_Ptr is access all IPenDevice; type IPenDeviceStatics_Interface; type IPenDeviceStatics is access all IPenDeviceStatics_Interface'Class; type IPenDeviceStatics_Ptr is access all IPenDeviceStatics; + type IPenDockedEventArgs_Interface; + type IPenDockedEventArgs is access all IPenDockedEventArgs_Interface'Class; + type IPenDockedEventArgs_Ptr is access all IPenDockedEventArgs; + type IPenDockListener_Interface; + type IPenDockListener is access all IPenDockListener_Interface'Class; + type IPenDockListener_Ptr is access all IPenDockListener; + type IPenDockListenerStatics_Interface; + type IPenDockListenerStatics is access all IPenDockListenerStatics_Interface'Class; + type IPenDockListenerStatics_Ptr is access all IPenDockListenerStatics; + type IPenTailButtonClickedEventArgs_Interface; + type IPenTailButtonClickedEventArgs is access all IPenTailButtonClickedEventArgs_Interface'Class; + type IPenTailButtonClickedEventArgs_Ptr is access all IPenTailButtonClickedEventArgs; + type IPenTailButtonDoubleClickedEventArgs_Interface; + type IPenTailButtonDoubleClickedEventArgs is access all IPenTailButtonDoubleClickedEventArgs_Interface'Class; + type IPenTailButtonDoubleClickedEventArgs_Ptr is access all IPenTailButtonDoubleClickedEventArgs; + type IPenTailButtonLongPressedEventArgs_Interface; + type IPenTailButtonLongPressedEventArgs is access all IPenTailButtonLongPressedEventArgs_Interface'Class; + type IPenTailButtonLongPressedEventArgs_Ptr is access all IPenTailButtonLongPressedEventArgs; + type IPenUndockedEventArgs_Interface; + type IPenUndockedEventArgs is access all IPenUndockedEventArgs_Interface'Class; + type IPenUndockedEventArgs_Ptr is access all IPenUndockedEventArgs; type IPointerDevice_Interface; type IPointerDevice is access all IPointerDevice_Interface'Class; type IPointerDevice_Ptr is access all IPointerDevice; @@ -344,6 +392,92 @@ package Windows.Devices.Input is ------------------------------------------------------------------------ + IID_IPenButtonListener : aliased constant Windows.IID := (2185610102, 7907, 21495, (177, 247, 131, 52, 161, 111, 40, 21 )); + + type IPenButtonListener_Interface is interface and Windows.IInspectable_Interface; + + function IsSupported + ( + This : access IPenButtonListener_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function add_IsSupportedChanged + ( + This : access IPenButtonListener_Interface + ; handler : TypedEventHandler_IPenButtonListener_add_IsSupportedChanged + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_IsSupportedChanged + ( + This : access IPenButtonListener_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_TailButtonClicked + ( + This : access IPenButtonListener_Interface + ; handler : TypedEventHandler_IPenButtonListener_add_TailButtonClicked + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_TailButtonClicked + ( + This : access IPenButtonListener_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_TailButtonDoubleClicked + ( + This : access IPenButtonListener_Interface + ; handler : TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_TailButtonDoubleClicked + ( + This : access IPenButtonListener_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_TailButtonLongPressed + ( + This : access IPenButtonListener_Interface + ; handler : TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_TailButtonLongPressed + ( + This : access IPenButtonListener_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IPenButtonListenerStatics : aliased constant Windows.IID := (430482820, 34351, 24425, (191, 234, 5, 246, 88, 79, 19, 63 )); + + type IPenButtonListenerStatics_Interface is interface and Windows.IInspectable_Interface; + + function GetDefault + ( + This : access IPenButtonListenerStatics_Interface + ; RetVal : access Windows.Devices.Input.IPenButtonListener + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IPenDevice : aliased constant Windows.IID := (830828218, 42808, 23180, (184, 246, 249, 126, 246, 141, 24, 239 )); type IPenDevice_Interface is interface and Windows.IInspectable_Interface; @@ -371,6 +505,107 @@ package Windows.Devices.Input is ------------------------------------------------------------------------ + IID_IPenDockedEventArgs : aliased constant Windows.IID := (4248991686, 51811, 23886, (158, 211, 162, 138, 84, 82, 28, 140 )); + + type IPenDockedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + ------------------------------------------------------------------------ + + IID_IPenDockListener : aliased constant Windows.IID := (1973374352, 7616, 21963, (173, 24, 185, 16, 20, 86, 245, 146 )); + + type IPenDockListener_Interface is interface and Windows.IInspectable_Interface; + + function IsSupported + ( + This : access IPenDockListener_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function add_IsSupportedChanged + ( + This : access IPenDockListener_Interface + ; handler : TypedEventHandler_IPenDockListener_add_IsSupportedChanged + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_IsSupportedChanged + ( + This : access IPenDockListener_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_Docked + ( + This : access IPenDockListener_Interface + ; handler : TypedEventHandler_IPenDockListener_add_Docked + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_Docked + ( + This : access IPenDockListener_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_Undocked + ( + This : access IPenDockListener_Interface + ; handler : TypedEventHandler_IPenDockListener_add_Undocked + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_Undocked + ( + This : access IPenDockListener_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IPenDockListenerStatics : aliased constant Windows.IID := (3401014938, 22, 23666, (150, 158, 169, 126, 17, 153, 42, 147 )); + + type IPenDockListenerStatics_Interface is interface and Windows.IInspectable_Interface; + + function GetDefault + ( + This : access IPenDockListenerStatics_Interface + ; RetVal : access Windows.Devices.Input.IPenDockListener + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IPenTailButtonClickedEventArgs : aliased constant Windows.IID := (1563408310, 27347, 23870, (171, 41, 5, 234, 36, 16, 227, 144 )); + + type IPenTailButtonClickedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + ------------------------------------------------------------------------ + + IID_IPenTailButtonDoubleClickedEventArgs : aliased constant Windows.IID := (2221089186, 24970, 21624, (176, 76, 179, 88, 35, 29, 164, 167 )); + + type IPenTailButtonDoubleClickedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + ------------------------------------------------------------------------ + + IID_IPenTailButtonLongPressedEventArgs : aliased constant Windows.IID := (4085014638, 50698, 24386, (184, 24, 165, 49, 18, 64, 108, 19 )); + + type IPenTailButtonLongPressedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + ------------------------------------------------------------------------ + + IID_IPenUndockedEventArgs : aliased constant Windows.IID := (3436220752, 9755, 23014, (165, 212, 193, 150, 76, 208, 63, 235 )); + + type IPenUndockedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + ------------------------------------------------------------------------ + IID_IPointerDevice : aliased constant Windows.IID := (2479471356, 60363, 18046, (130, 198, 39, 111, 234, 227, 107, 90 )); type IPointerDevice_Interface is interface and Windows.IInspectable_Interface; @@ -566,6 +801,97 @@ package Windows.Devices.Input is ) return Windows.HRESULT; + ------------------------------------------------------------------------ + + IID_TypedEventHandler_IPenButtonListener_add_IsSupportedChanged : aliased constant Windows.IID := (168748525, 1051, 21865, (180, 164, 161, 229, 143, 19, 67, 162 )); + + type TypedEventHandler_IPenButtonListener_add_IsSupportedChanged_Interface(Callback : access procedure (sender : Windows.Devices.Input.IPenButtonListener ; args : Windows.Object)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IPenButtonListener_add_IsSupportedChanged'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IPenButtonListener_add_IsSupportedChanged_Interface + ; sender : Windows.Devices.Input.IPenButtonListener + ; args : Windows.Object + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_IPenButtonListener_add_TailButtonClicked : aliased constant Windows.IID := (786067721, 61897, 24358, (160, 84, 61, 37, 6, 44, 192, 222 )); + + type TypedEventHandler_IPenButtonListener_add_TailButtonClicked_Interface(Callback : access procedure (sender : Windows.Devices.Input.IPenButtonListener ; args : Windows.Devices.Input.IPenTailButtonClickedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IPenButtonListener_add_TailButtonClicked'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IPenButtonListener_add_TailButtonClicked_Interface + ; sender : Windows.Devices.Input.IPenButtonListener + ; args : Windows.Devices.Input.IPenTailButtonClickedEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked : aliased constant Windows.IID := (3873803668, 28539, 22847, (129, 240, 3, 49, 80, 180, 67, 44 )); + + type TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked_Interface(Callback : access procedure (sender : Windows.Devices.Input.IPenButtonListener ; args : Windows.Devices.Input.IPenTailButtonDoubleClickedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IPenButtonListener_add_TailButtonDoubleClicked_Interface + ; sender : Windows.Devices.Input.IPenButtonListener + ; args : Windows.Devices.Input.IPenTailButtonDoubleClickedEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed : aliased constant Windows.IID := (3396184863, 8406, 21168, (148, 206, 109, 204, 117, 161, 169, 132 )); + + type TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed_Interface(Callback : access procedure (sender : Windows.Devices.Input.IPenButtonListener ; args : Windows.Devices.Input.IPenTailButtonLongPressedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IPenButtonListener_add_TailButtonLongPressed_Interface + ; sender : Windows.Devices.Input.IPenButtonListener + ; args : Windows.Devices.Input.IPenTailButtonLongPressedEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_IPenDockListener_add_Docked : aliased constant Windows.IID := (427321964, 36387, 24039, (167, 115, 231, 17, 165, 160, 104, 197 )); + + type TypedEventHandler_IPenDockListener_add_Docked_Interface(Callback : access procedure (sender : Windows.Devices.Input.IPenDockListener ; args : Windows.Devices.Input.IPenDockedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IPenDockListener_add_Docked'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IPenDockListener_add_Docked_Interface + ; sender : Windows.Devices.Input.IPenDockListener + ; args : Windows.Devices.Input.IPenDockedEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_IPenDockListener_add_IsSupportedChanged : aliased constant Windows.IID := (2095769647, 18842, 23345, (161, 216, 59, 17, 197, 60, 120, 113 )); + + type TypedEventHandler_IPenDockListener_add_IsSupportedChanged_Interface(Callback : access procedure (sender : Windows.Devices.Input.IPenDockListener ; args : Windows.Object)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IPenDockListener_add_IsSupportedChanged'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IPenDockListener_add_IsSupportedChanged_Interface + ; sender : Windows.Devices.Input.IPenDockListener + ; args : Windows.Object + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_IPenDockListener_add_Undocked : aliased constant Windows.IID := (1373349128, 12692, 23697, (162, 231, 249, 70, 55, 231, 90, 19 )); + + type TypedEventHandler_IPenDockListener_add_Undocked_Interface(Callback : access procedure (sender : Windows.Devices.Input.IPenDockListener ; args : Windows.Devices.Input.IPenUndockedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IPenDockListener_add_Undocked'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IPenDockListener_add_Undocked_Interface + ; sender : Windows.Devices.Input.IPenDockListener + ; args : Windows.Devices.Input.IPenUndockedEventArgs + ) + return Windows.HRESULT; + ------------------------------------------------------------------------ -- Classes ------------------------------------------------------------------------ @@ -578,7 +904,14 @@ package Windows.Devices.Input is subtype MouseDevice is Windows.Devices.Input.IMouseDevice; subtype MouseEventArgs is Windows.Devices.Input.IMouseEventArgs; + subtype PenButtonListener is Windows.Devices.Input.IPenButtonListener; subtype PenDevice is Windows.Devices.Input.IPenDevice; + subtype PenDockedEventArgs is Windows.Devices.Input.IPenDockedEventArgs; + subtype PenDockListener is Windows.Devices.Input.IPenDockListener; + subtype PenTailButtonClickedEventArgs is Windows.Devices.Input.IPenTailButtonClickedEventArgs; + subtype PenTailButtonDoubleClickedEventArgs is Windows.Devices.Input.IPenTailButtonDoubleClickedEventArgs; + subtype PenTailButtonLongPressedEventArgs is Windows.Devices.Input.IPenTailButtonLongPressedEventArgs; + subtype PenUndockedEventArgs is Windows.Devices.Input.IPenUndockedEventArgs; subtype PointerDevice is Windows.Devices.Input.IPointerDevice; subtype TouchCapabilities is Windows.Devices.Input.ITouchCapabilities; function Create return Windows.Devices.Input.ITouchCapabilities; @@ -591,12 +924,18 @@ package Windows.Devices.Input is function GetForCurrentView return Windows.Devices.Input.IMouseDevice; + function GetDefault + return Windows.Devices.Input.IPenButtonListener; + function GetFromPointerId ( pointerId : Windows.UInt32 ) return Windows.Devices.Input.IPenDevice; + function GetDefault + return Windows.Devices.Input.IPenDockListener; + function GetPointerDevice ( pointerId : Windows.UInt32 diff --git a/Bindings/Windows.Devices.Sensors.ads b/Bindings/Windows.Devices.Sensors.ads index 110ed89..c1834e3 100644 --- a/Bindings/Windows.Devices.Sensors.ads +++ b/Bindings/Windows.Devices.Sensors.ads @@ -306,6 +306,12 @@ package Windows.Devices.Sensors is type IAccelerometer4_Interface; type IAccelerometer4 is access all IAccelerometer4_Interface'Class; type IAccelerometer4_Ptr is access all IAccelerometer4; + type IAccelerometer5_Interface; + type IAccelerometer5 is access all IAccelerometer5_Interface'Class; + type IAccelerometer5_Ptr is access all IAccelerometer5; + type IAccelerometerDataThreshold_Interface; + type IAccelerometerDataThreshold is access all IAccelerometerDataThreshold_Interface'Class; + type IAccelerometerDataThreshold_Ptr is access all IAccelerometerDataThreshold; type IAccelerometerDeviceId_Interface; type IAccelerometerDeviceId is access all IAccelerometerDeviceId_Interface'Class; type IAccelerometerDeviceId_Ptr is access all IAccelerometerDeviceId; @@ -414,6 +420,12 @@ package Windows.Devices.Sensors is type IBarometer2_Interface; type IBarometer2 is access all IBarometer2_Interface'Class; type IBarometer2_Ptr is access all IBarometer2; + type IBarometer3_Interface; + type IBarometer3 is access all IBarometer3_Interface'Class; + type IBarometer3_Ptr is access all IBarometer3; + type IBarometerDataThreshold_Interface; + type IBarometerDataThreshold is access all IBarometerDataThreshold_Interface'Class; + type IBarometerDataThreshold_Ptr is access all IBarometerDataThreshold; type IBarometerReading_Interface; type IBarometerReading is access all IBarometerReading_Interface'Class; type IBarometerReading_Ptr is access all IBarometerReading; @@ -438,6 +450,12 @@ package Windows.Devices.Sensors is type ICompass3_Interface; type ICompass3 is access all ICompass3_Interface'Class; type ICompass3_Ptr is access all ICompass3; + type ICompass4_Interface; + type ICompass4 is access all ICompass4_Interface'Class; + type ICompass4_Ptr is access all ICompass4; + type ICompassDataThreshold_Interface; + type ICompassDataThreshold is access all ICompassDataThreshold_Interface'Class; + type ICompassDataThreshold_Ptr is access all ICompassDataThreshold; type ICompassDeviceId_Interface; type ICompassDeviceId is access all ICompassDeviceId_Interface'Class; type ICompassDeviceId_Ptr is access all ICompassDeviceId; @@ -468,6 +486,12 @@ package Windows.Devices.Sensors is type IGyrometer3_Interface; type IGyrometer3 is access all IGyrometer3_Interface'Class; type IGyrometer3_Ptr is access all IGyrometer3; + type IGyrometer4_Interface; + type IGyrometer4 is access all IGyrometer4_Interface'Class; + type IGyrometer4_Ptr is access all IGyrometer4; + type IGyrometerDataThreshold_Interface; + type IGyrometerDataThreshold is access all IGyrometerDataThreshold_Interface'Class; + type IGyrometerDataThreshold_Ptr is access all IGyrometerDataThreshold; type IGyrometerDeviceId_Interface; type IGyrometerDeviceId is access all IGyrometerDeviceId_Interface'Class; type IGyrometerDeviceId_Ptr is access all IGyrometerDeviceId; @@ -507,6 +531,12 @@ package Windows.Devices.Sensors is type IInclinometer3_Interface; type IInclinometer3 is access all IInclinometer3_Interface'Class; type IInclinometer3_Ptr is access all IInclinometer3; + type IInclinometer4_Interface; + type IInclinometer4 is access all IInclinometer4_Interface'Class; + type IInclinometer4_Ptr is access all IInclinometer4; + type IInclinometerDataThreshold_Interface; + type IInclinometerDataThreshold is access all IInclinometerDataThreshold_Interface'Class; + type IInclinometerDataThreshold_Ptr is access all IInclinometerDataThreshold; type IInclinometerDeviceId_Interface; type IInclinometerDeviceId is access all IInclinometerDeviceId_Interface'Class; type IInclinometerDeviceId_Ptr is access all IInclinometerDeviceId; @@ -564,6 +594,12 @@ package Windows.Devices.Sensors is type ILightSensor2_Interface; type ILightSensor2 is access all ILightSensor2_Interface'Class; type ILightSensor2_Ptr is access all ILightSensor2; + type ILightSensor3_Interface; + type ILightSensor3 is access all ILightSensor3_Interface'Class; + type ILightSensor3_Ptr is access all ILightSensor3; + type ILightSensorDataThreshold_Interface; + type ILightSensorDataThreshold is access all ILightSensorDataThreshold_Interface'Class; + type ILightSensorDataThreshold_Ptr is access all ILightSensorDataThreshold; type ILightSensorDeviceId_Interface; type ILightSensorDeviceId is access all ILightSensorDeviceId_Interface'Class; type ILightSensorDeviceId_Ptr is access all ILightSensorDeviceId; @@ -591,6 +627,12 @@ package Windows.Devices.Sensors is type IMagnetometer3_Interface; type IMagnetometer3 is access all IMagnetometer3_Interface'Class; type IMagnetometer3_Ptr is access all IMagnetometer3; + type IMagnetometer4_Interface; + type IMagnetometer4 is access all IMagnetometer4_Interface'Class; + type IMagnetometer4_Ptr is access all IMagnetometer4; + type IMagnetometerDataThreshold_Interface; + type IMagnetometerDataThreshold is access all IMagnetometerDataThreshold_Interface'Class; + type IMagnetometerDataThreshold_Ptr is access all IMagnetometerDataThreshold; type IMagnetometerDeviceId_Interface; type IMagnetometerDeviceId is access all IMagnetometerDeviceId_Interface'Class; type IMagnetometerDeviceId_Ptr is access all IMagnetometerDeviceId; @@ -860,6 +902,67 @@ package Windows.Devices.Sensors is ------------------------------------------------------------------------ + IID_IAccelerometer5 : aliased constant Windows.IID := (2122215457, 57076, 21414, (175, 67, 128, 111, 213, 56, 237, 246 )); + + type IAccelerometer5_Interface is interface and Windows.IInspectable_Interface; + + function get_ReportThreshold + ( + This : access IAccelerometer5_Interface + ; RetVal : access Windows.Devices.Sensors.IAccelerometerDataThreshold + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IAccelerometerDataThreshold : aliased constant Windows.IID := (4180417384, 25376, 21879, (135, 158, 153, 66, 98, 28, 61, 217 )); + + type IAccelerometerDataThreshold_Interface is interface and Windows.IInspectable_Interface; + + function get_XAxisInGForce + ( + This : access IAccelerometerDataThreshold_Interface + ; RetVal : access Windows.Double + ) + return Windows.HRESULT is abstract; + + function put_XAxisInGForce + ( + This : access IAccelerometerDataThreshold_Interface + ; value : Windows.Double + ) + return Windows.HRESULT is abstract; + + function get_YAxisInGForce + ( + This : access IAccelerometerDataThreshold_Interface + ; RetVal : access Windows.Double + ) + return Windows.HRESULT is abstract; + + function put_YAxisInGForce + ( + This : access IAccelerometerDataThreshold_Interface + ; value : Windows.Double + ) + return Windows.HRESULT is abstract; + + function get_ZAxisInGForce + ( + This : access IAccelerometerDataThreshold_Interface + ; RetVal : access Windows.Double + ) + return Windows.HRESULT is abstract; + + function put_ZAxisInGForce + ( + This : access IAccelerometerDataThreshold_Interface + ; value : Windows.Double + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IAccelerometerDeviceId : aliased constant Windows.IID := (2125227177, 38869, 17517, (171, 90, 145, 125, 249, 185, 106, 44 )); type IAccelerometerDeviceId_Interface is interface and Windows.IInspectable_Interface; @@ -1786,6 +1889,39 @@ package Windows.Devices.Sensors is ------------------------------------------------------------------------ + IID_IBarometer3 : aliased constant Windows.IID := (238416106, 693, 23044, (176, 61, 130, 32, 132, 134, 58, 84 )); + + type IBarometer3_Interface is interface and Windows.IInspectable_Interface; + + function get_ReportThreshold + ( + This : access IBarometer3_Interface + ; RetVal : access Windows.Devices.Sensors.IBarometerDataThreshold + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IBarometerDataThreshold : aliased constant Windows.IID := (124491052, 52066, 23184, (160, 209, 248, 94, 74, 147, 99, 148 )); + + type IBarometerDataThreshold_Interface is interface and Windows.IInspectable_Interface; + + function get_Hectopascals + ( + This : access IBarometerDataThreshold_Interface + ; RetVal : access Windows.Double + ) + return Windows.HRESULT is abstract; + + function put_Hectopascals + ( + This : access IBarometerDataThreshold_Interface + ; value : Windows.Double + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IBarometerReading : aliased constant Windows.IID := (4122596070, 7670, 18970, (167, 173, 50, 29, 79, 93, 178, 71 )); type IBarometerReading_Interface is interface and Windows.IInspectable_Interface; @@ -1969,6 +2105,39 @@ package Windows.Devices.Sensors is ------------------------------------------------------------------------ + IID_ICompass4 : aliased constant Windows.IID := (689864465, 60466, 24012, (191, 203, 11, 179, 158, 186, 87, 116 )); + + type ICompass4_Interface is interface and Windows.IInspectable_Interface; + + function get_ReportThreshold + ( + This : access ICompass4_Interface + ; RetVal : access Windows.Devices.Sensors.ICompassDataThreshold + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_ICompassDataThreshold : aliased constant Windows.IID := (3512423091, 54173, 24264, (178, 228, 241, 147, 230, 171, 52, 237 )); + + type ICompassDataThreshold_Interface is interface and Windows.IInspectable_Interface; + + function get_Degrees + ( + This : access ICompassDataThreshold_Interface + ; RetVal : access Windows.Double + ) + return Windows.HRESULT is abstract; + + function put_Degrees + ( + This : access ICompassDataThreshold_Interface + ; value : Windows.Double + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ICompassDeviceId : aliased constant Windows.IID := (3514944041, 45189, 19229, (135, 10, 79, 245, 123, 167, 79, 212 )); type ICompassDeviceId_Interface is interface and Windows.IInspectable_Interface; @@ -2185,6 +2354,67 @@ package Windows.Devices.Sensors is ------------------------------------------------------------------------ + IID_IGyrometer4 : aliased constant Windows.IID := (103327244, 19531, 20630, (148, 230, 195, 86, 223, 104, 190, 247 )); + + type IGyrometer4_Interface is interface and Windows.IInspectable_Interface; + + function get_ReportThreshold + ( + This : access IGyrometer4_Interface + ; RetVal : access Windows.Devices.Sensors.IGyrometerDataThreshold + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IGyrometerDataThreshold : aliased constant Windows.IID := (2252911390, 28242, 21081, (187, 173, 36, 42, 105, 220, 56, 200 )); + + type IGyrometerDataThreshold_Interface is interface and Windows.IInspectable_Interface; + + function get_XAxisInDegreesPerSecond + ( + This : access IGyrometerDataThreshold_Interface + ; RetVal : access Windows.Double + ) + return Windows.HRESULT is abstract; + + function put_XAxisInDegreesPerSecond + ( + This : access IGyrometerDataThreshold_Interface + ; value : Windows.Double + ) + return Windows.HRESULT is abstract; + + function get_YAxisInDegreesPerSecond + ( + This : access IGyrometerDataThreshold_Interface + ; RetVal : access Windows.Double + ) + return Windows.HRESULT is abstract; + + function put_YAxisInDegreesPerSecond + ( + This : access IGyrometerDataThreshold_Interface + ; value : Windows.Double + ) + return Windows.HRESULT is abstract; + + function get_ZAxisInDegreesPerSecond + ( + This : access IGyrometerDataThreshold_Interface + ; RetVal : access Windows.Double + ) + return Windows.HRESULT is abstract; + + function put_ZAxisInDegreesPerSecond + ( + This : access IGyrometerDataThreshold_Interface + ; value : Windows.Double + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IGyrometerDeviceId : aliased constant Windows.IID := (518383992, 35234, 17013, (158, 149, 113, 38, 244, 112, 135, 96 )); type IGyrometerDeviceId_Interface is interface and Windows.IInspectable_Interface; @@ -2535,6 +2765,67 @@ package Windows.Devices.Sensors is ------------------------------------------------------------------------ + IID_IInclinometer4 : aliased constant Windows.IID := (1132799512, 36810, 21646, (187, 245, 92, 80, 65, 43, 106, 164 )); + + type IInclinometer4_Interface is interface and Windows.IInspectable_Interface; + + function get_ReportThreshold + ( + This : access IInclinometer4_Interface + ; RetVal : access Windows.Devices.Sensors.IInclinometerDataThreshold + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IInclinometerDataThreshold : aliased constant Windows.IID := (4161423235, 31742, 21598, (187, 96, 160, 235, 196, 123, 210, 251 )); + + type IInclinometerDataThreshold_Interface is interface and Windows.IInspectable_Interface; + + function get_PitchInDegrees + ( + This : access IInclinometerDataThreshold_Interface + ; RetVal : access Windows.Single + ) + return Windows.HRESULT is abstract; + + function put_PitchInDegrees + ( + This : access IInclinometerDataThreshold_Interface + ; value : Windows.Single + ) + return Windows.HRESULT is abstract; + + function get_RollInDegrees + ( + This : access IInclinometerDataThreshold_Interface + ; RetVal : access Windows.Single + ) + return Windows.HRESULT is abstract; + + function put_RollInDegrees + ( + This : access IInclinometerDataThreshold_Interface + ; value : Windows.Single + ) + return Windows.HRESULT is abstract; + + function get_YawInDegrees + ( + This : access IInclinometerDataThreshold_Interface + ; RetVal : access Windows.Single + ) + return Windows.HRESULT is abstract; + + function put_YawInDegrees + ( + This : access IInclinometerDataThreshold_Interface + ; value : Windows.Single + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IInclinometerDeviceId : aliased constant Windows.IID := (32053634, 16895, 17414, (174, 131, 98, 33, 15, 241, 111, 227 )); type IInclinometerDeviceId_Interface is interface and Windows.IInspectable_Interface; @@ -2958,6 +3249,53 @@ package Windows.Devices.Sensors is ------------------------------------------------------------------------ + IID_ILightSensor3 : aliased constant Windows.IID := (1215746303, 40780, 24434, (173, 189, 163, 71, 27, 6, 60, 0 )); + + type ILightSensor3_Interface is interface and Windows.IInspectable_Interface; + + function get_ReportThreshold + ( + This : access ILightSensor3_Interface + ; RetVal : access Windows.Devices.Sensors.ILightSensorDataThreshold + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_ILightSensorDataThreshold : aliased constant Windows.IID := (2975903697, 34703, 21650, (159, 44, 51, 220, 58, 229, 132, 163 )); + + type ILightSensorDataThreshold_Interface is interface and Windows.IInspectable_Interface; + + function get_LuxPercentage + ( + This : access ILightSensorDataThreshold_Interface + ; RetVal : access Windows.Single + ) + return Windows.HRESULT is abstract; + + function put_LuxPercentage + ( + This : access ILightSensorDataThreshold_Interface + ; value : Windows.Single + ) + return Windows.HRESULT is abstract; + + function get_AbsoluteLux + ( + This : access ILightSensorDataThreshold_Interface + ; RetVal : access Windows.Single + ) + return Windows.HRESULT is abstract; + + function put_AbsoluteLux + ( + This : access ILightSensorDataThreshold_Interface + ; value : Windows.Single + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ILightSensorDeviceId : aliased constant Windows.IID := (2146322936, 2811, 20305, (135, 240, 108, 38, 55, 92, 233, 79 )); type ILightSensorDeviceId_Interface is interface and Windows.IInspectable_Interface; @@ -3154,6 +3492,67 @@ package Windows.Devices.Sensors is ------------------------------------------------------------------------ + IID_IMagnetometer4 : aliased constant Windows.IID := (3752950017, 15887, 20623, (178, 75, 242, 187, 117, 1, 95, 64 )); + + type IMagnetometer4_Interface is interface and Windows.IInspectable_Interface; + + function get_ReportThreshold + ( + This : access IMagnetometer4_Interface + ; RetVal : access Windows.Devices.Sensors.IMagnetometerDataThreshold + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IMagnetometerDataThreshold : aliased constant Windows.IID := (3514288897, 36963, 24485, (181, 150, 180, 69, 233, 220, 52, 1 )); + + type IMagnetometerDataThreshold_Interface is interface and Windows.IInspectable_Interface; + + function get_XAxisMicroteslas + ( + This : access IMagnetometerDataThreshold_Interface + ; RetVal : access Windows.Single + ) + return Windows.HRESULT is abstract; + + function put_XAxisMicroteslas + ( + This : access IMagnetometerDataThreshold_Interface + ; value : Windows.Single + ) + return Windows.HRESULT is abstract; + + function get_YAxisMicroteslas + ( + This : access IMagnetometerDataThreshold_Interface + ; RetVal : access Windows.Single + ) + return Windows.HRESULT is abstract; + + function put_YAxisMicroteslas + ( + This : access IMagnetometerDataThreshold_Interface + ; value : Windows.Single + ) + return Windows.HRESULT is abstract; + + function get_ZAxisMicroteslas + ( + This : access IMagnetometerDataThreshold_Interface + ; RetVal : access Windows.Single + ) + return Windows.HRESULT is abstract; + + function put_ZAxisMicroteslas + ( + This : access IMagnetometerDataThreshold_Interface + ; value : Windows.Single + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IMagnetometerDeviceId : aliased constant Windows.IID := (1488230594, 32331, 16460, (159, 197, 93, 232, 180, 14, 186, 227 )); type IMagnetometerDeviceId_Interface is interface and Windows.IInspectable_Interface; @@ -4758,6 +5157,7 @@ package Windows.Devices.Sensors is ------------------------------------------------------------------------ subtype Accelerometer is Windows.Devices.Sensors.IAccelerometer; + subtype AccelerometerDataThreshold is Windows.Devices.Sensors.IAccelerometerDataThreshold; subtype AccelerometerReading is Windows.Devices.Sensors.IAccelerometerReading; subtype AccelerometerReadingChangedEventArgs is Windows.Devices.Sensors.IAccelerometerReadingChangedEventArgs; subtype AccelerometerShakenEventArgs is Windows.Devices.Sensors.IAccelerometerShakenEventArgs; @@ -4770,24 +5170,30 @@ package Windows.Devices.Sensors is subtype AltimeterReading is Windows.Devices.Sensors.IAltimeterReading; subtype AltimeterReadingChangedEventArgs is Windows.Devices.Sensors.IAltimeterReadingChangedEventArgs; subtype Barometer is Windows.Devices.Sensors.IBarometer; + subtype BarometerDataThreshold is Windows.Devices.Sensors.IBarometerDataThreshold; subtype BarometerReading is Windows.Devices.Sensors.IBarometerReading; subtype BarometerReadingChangedEventArgs is Windows.Devices.Sensors.IBarometerReadingChangedEventArgs; subtype Compass is Windows.Devices.Sensors.ICompass; + subtype CompassDataThreshold is Windows.Devices.Sensors.ICompassDataThreshold; subtype CompassReading is Windows.Devices.Sensors.ICompassReading; subtype CompassReadingChangedEventArgs is Windows.Devices.Sensors.ICompassReadingChangedEventArgs; subtype Gyrometer is Windows.Devices.Sensors.IGyrometer; + subtype GyrometerDataThreshold is Windows.Devices.Sensors.IGyrometerDataThreshold; subtype GyrometerReading is Windows.Devices.Sensors.IGyrometerReading; subtype GyrometerReadingChangedEventArgs is Windows.Devices.Sensors.IGyrometerReadingChangedEventArgs; subtype HingeAngleReading is Windows.Devices.Sensors.IHingeAngleReading; subtype HingeAngleSensor is Windows.Devices.Sensors.IHingeAngleSensor; subtype HingeAngleSensorReadingChangedEventArgs is Windows.Devices.Sensors.IHingeAngleSensorReadingChangedEventArgs; subtype Inclinometer is Windows.Devices.Sensors.IInclinometer; + subtype InclinometerDataThreshold is Windows.Devices.Sensors.IInclinometerDataThreshold; subtype InclinometerReading is Windows.Devices.Sensors.IInclinometerReading; subtype InclinometerReadingChangedEventArgs is Windows.Devices.Sensors.IInclinometerReadingChangedEventArgs; subtype LightSensor is Windows.Devices.Sensors.ILightSensor; + subtype LightSensorDataThreshold is Windows.Devices.Sensors.ILightSensorDataThreshold; subtype LightSensorReading is Windows.Devices.Sensors.ILightSensorReading; subtype LightSensorReadingChangedEventArgs is Windows.Devices.Sensors.ILightSensorReadingChangedEventArgs; subtype Magnetometer is Windows.Devices.Sensors.IMagnetometer; + subtype MagnetometerDataThreshold is Windows.Devices.Sensors.IMagnetometerDataThreshold; subtype MagnetometerReading is Windows.Devices.Sensors.IMagnetometerReading; subtype MagnetometerReadingChangedEventArgs is Windows.Devices.Sensors.IMagnetometerReadingChangedEventArgs; subtype OrientationSensor is Windows.Devices.Sensors.IOrientationSensor; diff --git a/Bindings/Windows.Foundation.ads b/Bindings/Windows.Foundation.ads index ea3fff7..95f1e75 100644 --- a/Bindings/Windows.Foundation.ads +++ b/Bindings/Windows.Foundation.ads @@ -1163,7 +1163,7 @@ package Windows.Foundation is ------------------------------------------------------------------------ - IID_IIterable_IUriRuntimeClass : aliased constant Windows.IID := (2966829944, 30893, 24113, (182, 216, 227, 42, 14, 22, 196, 71 )); + IID_IIterable_IUriRuntimeClass : aliased constant Windows.IID := (0, 0, 0, (0, 0, 0, 0, 0, 0, 0, 0 )); type IIterable_IUriRuntimeClass_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.Globalization.adb b/Bindings/Windows.Globalization.adb index e8850d4..46d9f5f 100644 --- a/Bindings/Windows.Globalization.adb +++ b/Bindings/Windows.Globalization.adb @@ -3453,6 +3453,26 @@ package body Windows.Globalization is return RetVal; end; + function GetMuiCompatibleLanguageListFromLanguageTags + ( + languageTags : Windows.Foundation.Collections.IIterable_String + ) + return Windows.Foundation.Collections.IVector_String is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Globalization.Language"); + m_Factory : ILanguageStatics3 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Foundation.Collections.IVector_String; + begin + Hr := RoGetActivationFactory(m_hString, IID_ILanguageStatics3'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.GetMuiCompatibleLanguageListFromLanguageTags(languageTags, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function get_Arab return Windows.String is Hr : Windows.HRESULT := S_OK; diff --git a/Bindings/Windows.Globalization.ads b/Bindings/Windows.Globalization.ads index 8bc299c..6c8a9c8 100644 --- a/Bindings/Windows.Globalization.ads +++ b/Bindings/Windows.Globalization.ads @@ -164,6 +164,9 @@ package Windows.Globalization is type ILanguage2_Interface; type ILanguage2 is access all ILanguage2_Interface'Class; type ILanguage2_Ptr is access all ILanguage2; + type ILanguage3_Interface; + type ILanguage3 is access all ILanguage3_Interface'Class; + type ILanguage3_Ptr is access all ILanguage3; type ILanguageExtensionSubtags_Interface; type ILanguageExtensionSubtags is access all ILanguageExtensionSubtags_Interface'Class; type ILanguageExtensionSubtags_Ptr is access all ILanguageExtensionSubtags; @@ -176,6 +179,9 @@ package Windows.Globalization is type ILanguageStatics2_Interface; type ILanguageStatics2 is access all ILanguageStatics2_Interface'Class; type ILanguageStatics2_Ptr is access all ILanguageStatics2; + type ILanguageStatics3_Interface; + type ILanguageStatics3 is access all ILanguageStatics3_Interface'Class; + type ILanguageStatics3_Ptr is access all ILanguageStatics3; type INumeralSystemIdentifiersStatics_Interface; type INumeralSystemIdentifiersStatics is access all INumeralSystemIdentifiersStatics_Interface'Class; type INumeralSystemIdentifiersStatics_Ptr is access all INumeralSystemIdentifiersStatics; @@ -2598,6 +2604,19 @@ package Windows.Globalization is ------------------------------------------------------------------------ + IID_ILanguage3 : aliased constant Windows.IID := (3333373200, 25626, 23460, (187, 67, 94, 18, 174, 215, 89, 84 )); + + type ILanguage3_Interface is interface and Windows.IInspectable_Interface; + + function get_AbbreviatedName + ( + This : access ILanguage3_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ILanguageExtensionSubtags : aliased constant Windows.IID := (2105388869, 13965, 17252, (133, 43, 222, 201, 39, 3, 123, 133 )); type ILanguageExtensionSubtags_Interface is interface and Windows.IInspectable_Interface; @@ -2661,6 +2680,20 @@ package Windows.Globalization is ------------------------------------------------------------------------ + IID_ILanguageStatics3 : aliased constant Windows.IID := (3512650586, 29150, 22354, (149, 66, 250, 197, 180, 242, 114, 97 )); + + type ILanguageStatics3_Interface is interface and Windows.IInspectable_Interface; + + function GetMuiCompatibleLanguageListFromLanguageTags + ( + This : access ILanguageStatics3_Interface + ; languageTags : Windows.Foundation.Collections.IIterable_String + ; RetVal : access Windows.Foundation.Collections.IVector_String -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_INumeralSystemIdentifiersStatics : aliased constant Windows.IID := (2781242051, 26825, 19773, (183, 101, 151, 32, 41, 226, 29, 236 )); type INumeralSystemIdentifiersStatics_Interface is interface and Windows.IInspectable_Interface; @@ -3127,26 +3160,26 @@ package Windows.Globalization is subtype Calendar is Windows.Globalization.ICalendar; function Create return Windows.Globalization.ICalendar; - function CreateCalendarWithTimeZone + function CreateCalendarDefaultCalendarAndClock ( languages : Windows.Foundation.Collections.IIterable_String - ; calendar : Windows.String - ; clock : Windows.String - ; timeZoneId : Windows.String ) return Windows.Globalization.ICalendar; - function CreateCalendarDefaultCalendarAndClock + function CreateCalendar ( languages : Windows.Foundation.Collections.IIterable_String + ; calendar : Windows.String + ; clock : Windows.String ) return Windows.Globalization.ICalendar; - function CreateCalendar + function CreateCalendarWithTimeZone ( languages : Windows.Foundation.Collections.IIterable_String ; calendar : Windows.String ; clock : Windows.String + ; timeZoneId : Windows.String ) return Windows.Globalization.ICalendar; @@ -3772,6 +3805,12 @@ package Windows.Globalization is ) return Windows.Boolean; + function GetMuiCompatibleLanguageListFromLanguageTags + ( + languageTags : Windows.Foundation.Collections.IIterable_String + ) + return Windows.Foundation.Collections.IVector_String; + function get_Arab return Windows.String; diff --git a/Bindings/Windows.Graphics.Capture.ads b/Bindings/Windows.Graphics.Capture.ads index f652439..5b0040e 100644 --- a/Bindings/Windows.Graphics.Capture.ads +++ b/Bindings/Windows.Graphics.Capture.ads @@ -81,6 +81,9 @@ package Windows.Graphics.Capture is type IGraphicsCaptureSession_Interface; type IGraphicsCaptureSession is access all IGraphicsCaptureSession_Interface'Class; type IGraphicsCaptureSession_Ptr is access all IGraphicsCaptureSession; + type IGraphicsCaptureSession2_Interface; + type IGraphicsCaptureSession2 is access all IGraphicsCaptureSession2_Interface'Class; + type IGraphicsCaptureSession2_Ptr is access all IGraphicsCaptureSession2; type IGraphicsCaptureSessionStatics_Interface; type IGraphicsCaptureSessionStatics is access all IGraphicsCaptureSessionStatics_Interface'Class; type IGraphicsCaptureSessionStatics_Ptr is access all IGraphicsCaptureSessionStatics; @@ -306,6 +309,26 @@ package Windows.Graphics.Capture is ------------------------------------------------------------------------ + IID_IGraphicsCaptureSession2 : aliased constant Windows.IID := (741977664, 32046, 20548, (128, 78, 139, 103, 153, 212, 207, 158 )); + + type IGraphicsCaptureSession2_Interface is interface and Windows.IInspectable_Interface; + + function get_IsCursorCaptureEnabled + ( + This : access IGraphicsCaptureSession2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_IsCursorCaptureEnabled + ( + This : access IGraphicsCaptureSession2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IGraphicsCaptureSessionStatics : aliased constant Windows.IID := (572826944, 22900, 18858, (178, 50, 8, 130, 83, 111, 76, 181 )); type IGraphicsCaptureSessionStatics_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.Graphics.DirectX.ads b/Bindings/Windows.Graphics.DirectX.ads index 913f872..cc81c7d 100644 --- a/Bindings/Windows.Graphics.DirectX.ads +++ b/Bindings/Windows.Graphics.DirectX.ads @@ -227,7 +227,9 @@ package Windows.Graphics.DirectX is B4G4R4A4UIntNormalized, P208, V208, - V408 + V408, + SamplerFeedbackMinMipOpaque, + SamplerFeedbackMipRegionUsedOpaque ); for DirectXPixelFormat use ( Unknown => 0, @@ -348,7 +350,9 @@ package Windows.Graphics.DirectX is B4G4R4A4UIntNormalized => 115, P208 => 130, V208 => 131, - V408 => 132 + V408 => 132, + SamplerFeedbackMinMipOpaque => 189, + SamplerFeedbackMipRegionUsedOpaque => 190 ); for DirectXPixelFormat'Size use 32; diff --git a/Bindings/Windows.Graphics.Holographic.ads b/Bindings/Windows.Graphics.Holographic.ads index 60960e0..4e2ee33 100644 --- a/Bindings/Windows.Graphics.Holographic.ads +++ b/Bindings/Windows.Graphics.Holographic.ads @@ -119,6 +119,13 @@ package Windows.Graphics.Holographic is type HolographicAdapterId_Ptr is access HolographicAdapterId; + type HolographicFrameId is record + Value : Windows.UInt64; + end record; + pragma Convention (C_Pass_By_Copy , HolographicFrameId); + + type HolographicFrameId_Ptr is access HolographicFrameId; + type HolographicStereoTransform is record Left : Windows.Foundation.Numerics.Matrix4x4; Right : Windows.Foundation.Numerics.Matrix4x4; @@ -199,6 +206,9 @@ package Windows.Graphics.Holographic is type IHolographicFrame2_Interface; type IHolographicFrame2 is access all IHolographicFrame2_Interface'Class; type IHolographicFrame2_Ptr is access all IHolographicFrame2; + type IHolographicFrame3_Interface; + type IHolographicFrame3 is access all IHolographicFrame3_Interface'Class; + type IHolographicFrame3_Ptr is access all IHolographicFrame3; type IHolographicFramePrediction_Interface; type IHolographicFramePrediction is access all IHolographicFramePrediction_Interface'Class; type IHolographicFramePrediction_Ptr is access all IHolographicFramePrediction; @@ -208,6 +218,15 @@ package Windows.Graphics.Holographic is type IHolographicFramePresentationReport_Interface; type IHolographicFramePresentationReport is access all IHolographicFramePresentationReport_Interface'Class; type IHolographicFramePresentationReport_Ptr is access all IHolographicFramePresentationReport; + type IHolographicFrameRenderingReport_Interface; + type IHolographicFrameRenderingReport is access all IHolographicFrameRenderingReport_Interface'Class; + type IHolographicFrameRenderingReport_Ptr is access all IHolographicFrameRenderingReport; + type IHolographicFrameScanoutMonitor_Interface; + type IHolographicFrameScanoutMonitor is access all IHolographicFrameScanoutMonitor_Interface'Class; + type IHolographicFrameScanoutMonitor_Ptr is access all IHolographicFrameScanoutMonitor; + type IHolographicFrameScanoutReport_Interface; + type IHolographicFrameScanoutReport is access all IHolographicFrameScanoutReport_Interface'Class; + type IHolographicFrameScanoutReport_Ptr is access all IHolographicFrameScanoutReport; type IHolographicQuadLayer_Interface; type IHolographicQuadLayer is access all IHolographicQuadLayer_Interface'Class; type IHolographicQuadLayer_Ptr is access all IHolographicQuadLayer; @@ -226,6 +245,9 @@ package Windows.Graphics.Holographic is type IHolographicSpace2_Interface; type IHolographicSpace2 is access all IHolographicSpace2_Interface'Class; type IHolographicSpace2_Ptr is access all IHolographicSpace2; + type IHolographicSpace3_Interface; + type IHolographicSpace3 is access all IHolographicSpace3_Interface'Class; + type IHolographicSpace3_Ptr is access all IHolographicSpace3; type IHolographicSpaceCameraAddedEventArgs_Interface; type IHolographicSpaceCameraAddedEventArgs is access all IHolographicSpaceCameraAddedEventArgs_Interface'Class; type IHolographicSpaceCameraAddedEventArgs_Ptr is access all IHolographicSpaceCameraAddedEventArgs; @@ -253,6 +275,9 @@ package Windows.Graphics.Holographic is type IIterable_IHolographicFramePresentationReport_Interface; type IIterable_IHolographicFramePresentationReport is access all IIterable_IHolographicFramePresentationReport_Interface'Class; type IIterable_IHolographicFramePresentationReport_Ptr is access all IIterable_IHolographicFramePresentationReport; + type IIterable_IHolographicFrameScanoutReport_Interface; + type IIterable_IHolographicFrameScanoutReport is access all IIterable_IHolographicFrameScanoutReport_Interface'Class; + type IIterable_IHolographicFrameScanoutReport_Ptr is access all IIterable_IHolographicFrameScanoutReport; type IIterable_IHolographicQuadLayer_Interface; type IIterable_IHolographicQuadLayer is access all IIterable_IHolographicQuadLayer_Interface'Class; type IIterable_IHolographicQuadLayer_Ptr is access all IIterable_IHolographicQuadLayer; @@ -265,12 +290,18 @@ package Windows.Graphics.Holographic is type IIterator_IHolographicFramePresentationReport_Interface; type IIterator_IHolographicFramePresentationReport is access all IIterator_IHolographicFramePresentationReport_Interface'Class; type IIterator_IHolographicFramePresentationReport_Ptr is access all IIterator_IHolographicFramePresentationReport; + type IIterator_IHolographicFrameScanoutReport_Interface; + type IIterator_IHolographicFrameScanoutReport is access all IIterator_IHolographicFrameScanoutReport_Interface'Class; + type IIterator_IHolographicFrameScanoutReport_Ptr is access all IIterator_IHolographicFrameScanoutReport; type IIterator_IHolographicQuadLayer_Interface; type IIterator_IHolographicQuadLayer is access all IIterator_IHolographicQuadLayer_Interface'Class; type IIterator_IHolographicQuadLayer_Ptr is access all IIterator_IHolographicQuadLayer; type IReference_HolographicStereoTransform_Interface; type IReference_HolographicStereoTransform is access all IReference_HolographicStereoTransform_Interface'Class; type IReference_HolographicStereoTransform_Ptr is access all IReference_HolographicStereoTransform; + type IVector_IHolographicFrameScanoutReport_Interface; + type IVector_IHolographicFrameScanoutReport is access all IVector_IHolographicFrameScanoutReport_Interface'Class; + type IVector_IHolographicFrameScanoutReport_Ptr is access all IVector_IHolographicFrameScanoutReport; type IVector_IHolographicQuadLayer_Interface; type IVector_IHolographicQuadLayer is access all IVector_IHolographicQuadLayer_Interface'Class; type IVector_IHolographicQuadLayer_Ptr is access all IVector_IHolographicQuadLayer; @@ -283,6 +314,9 @@ package Windows.Graphics.Holographic is type IVectorView_IHolographicFramePresentationReport_Interface; type IVectorView_IHolographicFramePresentationReport is access all IVectorView_IHolographicFramePresentationReport_Interface'Class; type IVectorView_IHolographicFramePresentationReport_Ptr is access all IVectorView_IHolographicFramePresentationReport; + type IVectorView_IHolographicFrameScanoutReport_Interface; + type IVectorView_IHolographicFrameScanoutReport is access all IVectorView_IHolographicFrameScanoutReport_Interface'Class; + type IVectorView_IHolographicFrameScanoutReport_Ptr is access all IVectorView_IHolographicFrameScanoutReport; type IVectorView_IHolographicQuadLayer_Interface; type IVectorView_IHolographicQuadLayer is access all IVectorView_IHolographicQuadLayer_Interface'Class; type IVectorView_IHolographicQuadLayer_Ptr is access all IVectorView_IHolographicQuadLayer; @@ -841,6 +875,19 @@ package Windows.Graphics.Holographic is ------------------------------------------------------------------------ + IID_IHolographicFrame3 : aliased constant Windows.IID := (3857278153, 35367, 21971, (159, 152, 148, 83, 13, 54, 144, 82 )); + + type IHolographicFrame3_Interface is interface and Windows.IInspectable_Interface; + + function get_Id + ( + This : access IHolographicFrame3_Interface + ; RetVal : access Windows.Graphics.Holographic.HolographicFrameId + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IHolographicFramePrediction : aliased constant Windows.IID := (1376734689, 23562, 20089, (168, 30, 106, 190, 2, 187, 39, 57 )); type IHolographicFramePrediction_Interface is interface and Windows.IInspectable_Interface; @@ -915,6 +962,101 @@ package Windows.Graphics.Holographic is ------------------------------------------------------------------------ + IID_IHolographicFrameRenderingReport : aliased constant Windows.IID := (99823076, 58244, 20915, (185, 52, 240, 211, 160, 247, 134, 6 )); + + type IHolographicFrameRenderingReport_Interface is interface and Windows.IInspectable_Interface; + + function get_FrameId + ( + This : access IHolographicFrameRenderingReport_Interface + ; RetVal : access Windows.Graphics.Holographic.HolographicFrameId + ) + return Windows.HRESULT is abstract; + + function get_MissedLatchCount + ( + This : access IHolographicFrameRenderingReport_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function get_SystemRelativeFrameReadyTime + ( + This : access IHolographicFrameRenderingReport_Interface + ; RetVal : access Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + function get_SystemRelativeActualGpuFinishTime + ( + This : access IHolographicFrameRenderingReport_Interface + ; RetVal : access Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + function get_SystemRelativeTargetLatchTime + ( + This : access IHolographicFrameRenderingReport_Interface + ; RetVal : access Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IHolographicFrameScanoutMonitor : aliased constant Windows.IID := (2122575785, 33852, 21505, (128, 149, 155, 193, 184, 176, 134, 56 )); + + type IHolographicFrameScanoutMonitor_Interface is interface and Windows.IInspectable_Interface; + + function ReadReports + ( + This : access IHolographicFrameScanoutMonitor_Interface + ; RetVal : access Windows.Graphics.Holographic.IVector_IHolographicFrameScanoutReport -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IHolographicFrameScanoutReport : aliased constant Windows.IID := (247195142, 928, 23712, (180, 110, 187, 160, 104, 215, 35, 63 )); + + type IHolographicFrameScanoutReport_Interface is interface and Windows.IInspectable_Interface; + + function get_RenderingReport + ( + This : access IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.Graphics.Holographic.IHolographicFrameRenderingReport + ) + return Windows.HRESULT is abstract; + + function get_MissedScanoutCount + ( + This : access IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function get_SystemRelativeLatchTime + ( + This : access IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + function get_SystemRelativeScanoutStartTime + ( + This : access IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + function get_SystemRelativePhotonTime + ( + This : access IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IHolographicQuadLayer : aliased constant Windows.IID := (2419351753, 51673, 23900, (65, 172, 162, 213, 171, 15, 211, 49 )); type IHolographicQuadLayer_Interface is interface and Windows.IInspectable_Interface; @@ -1135,6 +1277,20 @@ package Windows.Graphics.Holographic is ------------------------------------------------------------------------ + IID_IHolographicSpace3 : aliased constant Windows.IID := (3742839761, 61988, 22654, (141, 113, 30, 143, 200, 240, 123, 31 )); + + type IHolographicSpace3_Interface is interface and Windows.IInspectable_Interface; + + function CreateFrameScanoutMonitor + ( + This : access IHolographicSpace3_Interface + ; maxQueuedReports : Windows.UInt32 + ; RetVal : access Windows.Graphics.Holographic.IHolographicFrameScanoutMonitor + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IHolographicSpaceCameraAddedEventArgs : aliased constant Windows.IID := (1492245045, 48051, 15503, (153, 61, 108, 128, 231, 254, 185, 159 )); type IHolographicSpaceCameraAddedEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -1360,6 +1516,19 @@ package Windows.Graphics.Holographic is ------------------------------------------------------------------------ + IID_IIterable_IHolographicFrameScanoutReport : aliased constant Windows.IID := (3484019220, 18435, 20481, (158, 218, 203, 79, 252, 210, 112, 233 )); + + type IIterable_IHolographicFrameScanoutReport_Interface is interface and Windows.IInspectable_Interface; + + function First + ( + This : access IIterable_IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.Graphics.Holographic.IIterator_IHolographicFrameScanoutReport + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IIterable_IHolographicQuadLayer : aliased constant Windows.IID := (2222212705, 38110, 22630, (161, 93, 158, 251, 25, 169, 154, 84 )); type IIterable_IHolographicQuadLayer_Interface is interface and Windows.IInspectable_Interface; @@ -1478,6 +1647,41 @@ package Windows.Graphics.Holographic is ------------------------------------------------------------------------ + IID_IIterator_IHolographicFrameScanoutReport : aliased constant Windows.IID := (1786635641, 1499, 22774, (163, 113, 151, 253, 25, 146, 33, 48 )); + + type IIterator_IHolographicFrameScanoutReport_Interface is interface and Windows.IInspectable_Interface; + + function get_Current + ( + This : access IIterator_IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.Graphics.Holographic.IHolographicFrameScanoutReport + ) + return Windows.HRESULT is abstract; + + function get_HasCurrent + ( + This : access IIterator_IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function MoveNext + ( + This : access IIterator_IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IIterator_IHolographicFrameScanoutReport_Interface + ; items : Windows.Graphics.Holographic.IHolographicFrameScanoutReport_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IIterator_IHolographicQuadLayer : aliased constant Windows.IID := (2239123824, 18779, 21532, (174, 240, 116, 146, 133, 109, 227, 223 )); type IIterator_IHolographicQuadLayer_Interface is interface and Windows.IInspectable_Interface; @@ -1526,6 +1730,101 @@ package Windows.Graphics.Holographic is ------------------------------------------------------------------------ + IID_IVector_IHolographicFrameScanoutReport : aliased constant Windows.IID := (2819104299, 17421, 21500, (163, 16, 207, 138, 7, 234, 9, 53 )); + + type IVector_IHolographicFrameScanoutReport_Interface is interface and Windows.IInspectable_Interface; + + function GetAt + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ; index : Windows.UInt32 + ; RetVal : access Windows.Graphics.Holographic.IHolographicFrameScanoutReport + ) + return Windows.HRESULT is abstract; + + function get_Size + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function GetView + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.Graphics.Holographic.IVectorView_IHolographicFrameScanoutReport + ) + return Windows.HRESULT is abstract; + + function IndexOf + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ; value : Windows.Graphics.Holographic.IHolographicFrameScanoutReport + ; index : access Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function SetAt + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ; index : Windows.UInt32 + ; value : Windows.Graphics.Holographic.IHolographicFrameScanoutReport + ) + return Windows.HRESULT is abstract; + + function InsertAt + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ; index : Windows.UInt32 + ; value : Windows.Graphics.Holographic.IHolographicFrameScanoutReport + ) + return Windows.HRESULT is abstract; + + function RemoveAt + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ; index : Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function Append + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ; value : Windows.Graphics.Holographic.IHolographicFrameScanoutReport + ) + return Windows.HRESULT is abstract; + + function RemoveAtEnd + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ) + return Windows.HRESULT is abstract; + + function Clear + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ; startIndex : Windows.UInt32 + ; items : Windows.Graphics.Holographic.IHolographicFrameScanoutReport_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function ReplaceAll + ( + This : access IVector_IHolographicFrameScanoutReport_Interface + ; items : Windows.Graphics.Holographic.IHolographicFrameScanoutReport_Ptr + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IVector_IHolographicQuadLayer : aliased constant Windows.IID := (3659849676, 19540, 20883, (146, 29, 198, 133, 181, 125, 229, 89 )); type IVector_IHolographicQuadLayer_Interface is interface and Windows.IInspectable_Interface; @@ -1738,6 +2037,45 @@ package Windows.Graphics.Holographic is ------------------------------------------------------------------------ + IID_IVectorView_IHolographicFrameScanoutReport : aliased constant Windows.IID := (2703749361, 64339, 20706, (138, 152, 14, 202, 234, 98, 227, 43 )); + + type IVectorView_IHolographicFrameScanoutReport_Interface is interface and Windows.IInspectable_Interface; + + function GetAt + ( + This : access IVectorView_IHolographicFrameScanoutReport_Interface + ; index : Windows.UInt32 + ; RetVal : access Windows.Graphics.Holographic.IHolographicFrameScanoutReport + ) + return Windows.HRESULT is abstract; + + function get_Size + ( + This : access IVectorView_IHolographicFrameScanoutReport_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function IndexOf + ( + This : access IVectorView_IHolographicFrameScanoutReport_Interface + ; value : Windows.Graphics.Holographic.IHolographicFrameScanoutReport + ; index : access Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IVectorView_IHolographicFrameScanoutReport_Interface + ; startIndex : Windows.UInt32 + ; items : Windows.Graphics.Holographic.IHolographicFrameScanoutReport_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IVectorView_IHolographicQuadLayer : aliased constant Windows.IID := (525462751, 53037, 23422, (170, 233, 214, 98, 138, 81, 141, 190 )); type IVectorView_IHolographicQuadLayer_Interface is interface and Windows.IInspectable_Interface; @@ -1831,6 +2169,9 @@ package Windows.Graphics.Holographic is subtype HolographicFramePrediction is Windows.Graphics.Holographic.IHolographicFramePrediction; subtype HolographicFramePresentationMonitor is Windows.Graphics.Holographic.IHolographicFramePresentationMonitor; subtype HolographicFramePresentationReport is Windows.Graphics.Holographic.IHolographicFramePresentationReport; + subtype HolographicFrameRenderingReport is Windows.Graphics.Holographic.IHolographicFrameRenderingReport; + subtype HolographicFrameScanoutMonitor is Windows.Graphics.Holographic.IHolographicFrameScanoutMonitor; + subtype HolographicFrameScanoutReport is Windows.Graphics.Holographic.IHolographicFrameScanoutReport; subtype HolographicQuadLayer is Windows.Graphics.Holographic.IHolographicQuadLayer; function Create ( diff --git a/Bindings/Windows.Management.Deployment.adb b/Bindings/Windows.Management.Deployment.adb index b512222..7efeea3 100644 --- a/Bindings/Windows.Management.Deployment.adb +++ b/Bindings/Windows.Management.Deployment.adb @@ -52,6 +52,23 @@ package body Windows.Management.Deployment is -- Create functions (for activatable classes) ------------------------------------------------------------------------ + function Create return Windows.Management.Deployment.IAddPackageOptions is + Hr : Windows.HResult := S_OK; + m_hString : Windows.String := To_String("Windows.Management.Deployment.AddPackageOptions"); + Instance : aliased IInspectable := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased IUnknown := null; + function Convert is new Ada.Unchecked_Conversion(IUnknown , Windows.Management.Deployment.IAddPackageOptions) with inline; + begin + Hr := RoActivateInstance(m_hString, Instance'Address); + if Hr = 0 then + Hr := Instance.QueryInterface(Windows.Management.Deployment.IID_IAddPackageOptions'Access, RetVal'access); + RefCount := Instance.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return Convert(RetVal); + end; + function Create return Windows.Management.Deployment.IPackageManager is Hr : Windows.HResult := S_OK; m_hString : Windows.String := To_String("Windows.Management.Deployment.PackageManager"); @@ -69,6 +86,40 @@ package body Windows.Management.Deployment is return Convert(RetVal); end; + function Create return Windows.Management.Deployment.IRegisterPackageOptions is + Hr : Windows.HResult := S_OK; + m_hString : Windows.String := To_String("Windows.Management.Deployment.RegisterPackageOptions"); + Instance : aliased IInspectable := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased IUnknown := null; + function Convert is new Ada.Unchecked_Conversion(IUnknown , Windows.Management.Deployment.IRegisterPackageOptions) with inline; + begin + Hr := RoActivateInstance(m_hString, Instance'Address); + if Hr = 0 then + Hr := Instance.QueryInterface(Windows.Management.Deployment.IID_IRegisterPackageOptions'Access, RetVal'access); + RefCount := Instance.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return Convert(RetVal); + end; + + function Create return Windows.Management.Deployment.IStagePackageOptions is + Hr : Windows.HResult := S_OK; + m_hString : Windows.String := To_String("Windows.Management.Deployment.StagePackageOptions"); + Instance : aliased IInspectable := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased IUnknown := null; + function Convert is new Ada.Unchecked_Conversion(IUnknown , Windows.Management.Deployment.IStagePackageOptions) with inline; + begin + Hr := RoActivateInstance(m_hString, Instance'Address); + if Hr = 0 then + Hr := Instance.QueryInterface(Windows.Management.Deployment.IID_IStagePackageOptions'Access, RetVal'access); + RefCount := Instance.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return Convert(RetVal); + end; + ------------------------------------------------------------------------ -- Override Implementations ------------------------------------------------------------------------ diff --git a/Bindings/Windows.Management.Deployment.ads b/Bindings/Windows.Management.Deployment.ads index 9535358..713d5d2 100644 --- a/Bindings/Windows.Management.Deployment.ads +++ b/Bindings/Windows.Management.Deployment.ads @@ -65,7 +65,8 @@ package Windows.Management.Deployment is ForceTargetApplicationShutdown, RequiredContentGroupOnly, ForceUpdateFromAnyVersion, - RetainFilesOnFailure + RetainFilesOnFailure, + StageInPlace ); for DeploymentOptions use ( None => 0, @@ -75,7 +76,8 @@ package Windows.Management.Deployment is ForceTargetApplicationShutdown => 64, RequiredContentGroupOnly => 256, ForceUpdateFromAnyVersion => 262144, - RetainFilesOnFailure => 2097152 + RetainFilesOnFailure => 2097152, + StageInPlace => 4194304 ); for DeploymentOptions'Size use 32; @@ -143,6 +145,18 @@ package Windows.Management.Deployment is type PackageStatus_Ptr is access PackageStatus; + type PackageStubPreference is ( + Full, + Stub + ); + for PackageStubPreference use ( + Full => 0, + Stub => 1 + ); + for PackageStubPreference'Size use 32; + + type PackageStubPreference_Ptr is access PackageStubPreference; + type PackageTypes is ( None, Main, @@ -150,7 +164,8 @@ package Windows.Management.Deployment is Resource, Bundle, Xap, - Optional + Optional, + All_x ); for PackageTypes use ( None => 0, @@ -159,7 +174,8 @@ package Windows.Management.Deployment is Resource => 4, Bundle => 8, Xap => 16, - Optional => 32 + Optional => 32, + All_x => 4294967295 ); for PackageTypes'Size use 32; @@ -167,11 +183,13 @@ package Windows.Management.Deployment is type RemovalOptions is ( None, + PreserveRoamableApplicationData, PreserveApplicationData, RemoveForAllUsers ); for RemovalOptions use ( None => 0, + PreserveRoamableApplicationData => 128, PreserveApplicationData => 4096, RemoveForAllUsers => 524288 ); @@ -179,6 +197,22 @@ package Windows.Management.Deployment is type RemovalOptions_Ptr is access RemovalOptions; + type StubPackageOption is ( + Default, + InstallFull, + InstallStub, + UsePreference + ); + for StubPackageOption use ( + Default => 0, + InstallFull => 1, + InstallStub => 2, + UsePreference => 3 + ); + for StubPackageOption'Size use 32; + + type StubPackageOption_Ptr is access StubPackageOption; + ------------------------------------------------------------------------ -- Record types ------------------------------------------------------------------------ @@ -203,6 +237,9 @@ package Windows.Management.Deployment is -- Forward Declaration - Interfaces ------------------------------------------------------------------------ + type IAddPackageOptions_Interface; + type IAddPackageOptions is access all IAddPackageOptions_Interface'Class; + type IAddPackageOptions_Ptr is access all IAddPackageOptions; type IAsyncOperation_IPackageVolume_Interface; type IAsyncOperation_IPackageVolume is access all IAsyncOperation_IPackageVolume_Interface'Class; type IAsyncOperation_IPackageVolume_Ptr is access all IAsyncOperation_IPackageVolume; @@ -248,6 +285,9 @@ package Windows.Management.Deployment is type IPackageManager8_Interface; type IPackageManager8 is access all IPackageManager8_Interface'Class; type IPackageManager8_Ptr is access all IPackageManager8; + type IPackageManager9_Interface; + type IPackageManager9 is access all IPackageManager9_Interface'Class; + type IPackageManager9_Ptr is access all IPackageManager9; type IPackageManagerDebugSettings_Interface; type IPackageManagerDebugSettings is access all IPackageManagerDebugSettings_Interface'Class; type IPackageManagerDebugSettings_Ptr is access all IPackageManagerDebugSettings; @@ -260,6 +300,12 @@ package Windows.Management.Deployment is type IPackageVolume2_Interface; type IPackageVolume2 is access all IPackageVolume2_Interface'Class; type IPackageVolume2_Ptr is access all IPackageVolume2; + type IRegisterPackageOptions_Interface; + type IRegisterPackageOptions is access all IRegisterPackageOptions_Interface'Class; + type IRegisterPackageOptions_Ptr is access all IRegisterPackageOptions; + type IStagePackageOptions_Interface; + type IStagePackageOptions is access all IStagePackageOptions_Interface'Class; + type IStagePackageOptions_Ptr is access all IStagePackageOptions; ------------------------------------------------------------------------ -- Interfaces @@ -267,6 +313,222 @@ package Windows.Management.Deployment is ------------------------------------------------------------------------ + IID_IAddPackageOptions : aliased constant Windows.IID := (97443864, 63119, 16939, (149, 164, 102, 103, 158, 199, 127, 192 )); + + type IAddPackageOptions_Interface is interface and Windows.IInspectable_Interface; + + function get_DependencyPackageUris + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Foundation.IVector_IUriRuntimeClass -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_TargetVolume + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Management.Deployment.IPackageVolume + ) + return Windows.HRESULT is abstract; + + function put_TargetVolume + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Management.Deployment.IPackageVolume + ) + return Windows.HRESULT is abstract; + + function get_OptionalPackageFamilyNames + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Foundation.Collections.IVector_String -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_OptionalPackageUris + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Foundation.IVector_IUriRuntimeClass -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_RelatedPackageUris + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Foundation.IVector_IUriRuntimeClass -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_ExternalLocationUri + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Foundation.IUriRuntimeClass + ) + return Windows.HRESULT is abstract; + + function put_ExternalLocationUri + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Foundation.IUriRuntimeClass + ) + return Windows.HRESULT is abstract; + + function get_StubPackageOption + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Management.Deployment.StubPackageOption + ) + return Windows.HRESULT is abstract; + + function put_StubPackageOption + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Management.Deployment.StubPackageOption + ) + return Windows.HRESULT is abstract; + + function get_DeveloperMode + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_DeveloperMode + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_ForceAppShutdown + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_ForceAppShutdown + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_ForceTargetAppShutdown + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_ForceTargetAppShutdown + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_ForceUpdateFromAnyVersion + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_ForceUpdateFromAnyVersion + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_InstallAllResources + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_InstallAllResources + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_RequiredContentGroupOnly + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_RequiredContentGroupOnly + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_RetainFilesOnFailure + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_RetainFilesOnFailure + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_StageInPlace + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_StageInPlace + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_AllowUnsigned + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_AllowUnsigned + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_DeferRegistrationWhenPackagesAreInUse + ( + This : access IAddPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_DeferRegistrationWhenPackagesAreInUse + ( + This : access IAddPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IAsyncOperation_IPackageVolume : aliased constant Windows.IID := (51768758, 56408, 20940, (165, 25, 68, 144, 26, 210, 207, 21 )); type IAsyncOperation_IPackageVolume_Interface is interface and Windows.IInspectable_Interface; @@ -984,6 +1246,71 @@ package Windows.Management.Deployment is ------------------------------------------------------------------------ + IID_IPackageManager9 : aliased constant Windows.IID := (447189045, 52337, 19246, (128, 166, 199, 4, 29, 133, 121, 167 )); + + type IPackageManager9_Interface is interface and Windows.IInspectable_Interface; + + function FindProvisionedPackages + ( + This : access IPackageManager9_Interface + ; RetVal : access Windows.ApplicationModel.IVector_IPackage -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function AddPackageByUriAsync + ( + This : access IPackageManager9_Interface + ; packageUri : Windows.Foundation.IUriRuntimeClass + ; options : Windows.Management.Deployment.IAddPackageOptions + ; RetVal : access Windows.Address -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function StagePackageByUriAsync + ( + This : access IPackageManager9_Interface + ; packageUri : Windows.Foundation.IUriRuntimeClass + ; options : Windows.Management.Deployment.IStagePackageOptions + ; RetVal : access Windows.Address -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function RegisterPackageByUriAsync + ( + This : access IPackageManager9_Interface + ; manifestUri : Windows.Foundation.IUriRuntimeClass + ; options : Windows.Management.Deployment.IRegisterPackageOptions + ; RetVal : access Windows.Address -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function RegisterPackagesByFullNameAsync + ( + This : access IPackageManager9_Interface + ; packageFullNames : Windows.Foundation.Collections.IIterable_String + ; options : Windows.Management.Deployment.IRegisterPackageOptions + ; RetVal : access Windows.Address -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function SetPackageStubPreference + ( + This : access IPackageManager9_Interface + ; packageFamilyName : Windows.String + ; useStub : Windows.Management.Deployment.PackageStubPreference + ) + return Windows.HRESULT is abstract; + + function GetPackageStubPreference + ( + This : access IPackageManager9_Interface + ; packageFamilyName : Windows.String + ; RetVal : access Windows.Management.Deployment.PackageStubPreference + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IPackageManagerDebugSettings : aliased constant Windows.IID := (442570371, 43400, 20431, (143, 15, 206, 23, 88, 152, 232, 235 )); type IPackageManagerDebugSettings_Interface is interface and Windows.IInspectable_Interface; @@ -1229,6 +1556,326 @@ package Windows.Management.Deployment is ) return Windows.HRESULT is abstract; + ------------------------------------------------------------------------ + + IID_IRegisterPackageOptions : aliased constant Windows.IID := (1735463591, 20692, 18796, (132, 21, 6, 2, 180, 198, 211, 191 )); + + type IRegisterPackageOptions_Interface is interface and Windows.IInspectable_Interface; + + function get_DependencyPackageUris + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Foundation.IVector_IUriRuntimeClass -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_AppDataVolume + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Management.Deployment.IPackageVolume + ) + return Windows.HRESULT is abstract; + + function put_AppDataVolume + ( + This : access IRegisterPackageOptions_Interface + ; value : Windows.Management.Deployment.IPackageVolume + ) + return Windows.HRESULT is abstract; + + function get_OptionalPackageFamilyNames + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Foundation.Collections.IVector_String -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_ExternalLocationUri + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Foundation.IUriRuntimeClass + ) + return Windows.HRESULT is abstract; + + function put_ExternalLocationUri + ( + This : access IRegisterPackageOptions_Interface + ; value : Windows.Foundation.IUriRuntimeClass + ) + return Windows.HRESULT is abstract; + + function get_DeveloperMode + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_DeveloperMode + ( + This : access IRegisterPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_ForceAppShutdown + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_ForceAppShutdown + ( + This : access IRegisterPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_ForceTargetAppShutdown + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_ForceTargetAppShutdown + ( + This : access IRegisterPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_ForceUpdateFromAnyVersion + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_ForceUpdateFromAnyVersion + ( + This : access IRegisterPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_InstallAllResources + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_InstallAllResources + ( + This : access IRegisterPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_StageInPlace + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_StageInPlace + ( + This : access IRegisterPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_AllowUnsigned + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_AllowUnsigned + ( + This : access IRegisterPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_DeferRegistrationWhenPackagesAreInUse + ( + This : access IRegisterPackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_DeferRegistrationWhenPackagesAreInUse + ( + This : access IRegisterPackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IStagePackageOptions : aliased constant Windows.IID := (185666716, 47453, 19542, (189, 54, 109, 101, 104, 0, 208, 107 )); + + type IStagePackageOptions_Interface is interface and Windows.IInspectable_Interface; + + function get_DependencyPackageUris + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Foundation.IVector_IUriRuntimeClass -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_TargetVolume + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Management.Deployment.IPackageVolume + ) + return Windows.HRESULT is abstract; + + function put_TargetVolume + ( + This : access IStagePackageOptions_Interface + ; value : Windows.Management.Deployment.IPackageVolume + ) + return Windows.HRESULT is abstract; + + function get_OptionalPackageFamilyNames + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Foundation.Collections.IVector_String -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_OptionalPackageUris + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Foundation.IVector_IUriRuntimeClass -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_RelatedPackageUris + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Foundation.IVector_IUriRuntimeClass -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_ExternalLocationUri + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Foundation.IUriRuntimeClass + ) + return Windows.HRESULT is abstract; + + function put_ExternalLocationUri + ( + This : access IStagePackageOptions_Interface + ; value : Windows.Foundation.IUriRuntimeClass + ) + return Windows.HRESULT is abstract; + + function get_StubPackageOption + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Management.Deployment.StubPackageOption + ) + return Windows.HRESULT is abstract; + + function put_StubPackageOption + ( + This : access IStagePackageOptions_Interface + ; value : Windows.Management.Deployment.StubPackageOption + ) + return Windows.HRESULT is abstract; + + function get_DeveloperMode + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_DeveloperMode + ( + This : access IStagePackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_ForceUpdateFromAnyVersion + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_ForceUpdateFromAnyVersion + ( + This : access IStagePackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_InstallAllResources + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_InstallAllResources + ( + This : access IStagePackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_RequiredContentGroupOnly + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_RequiredContentGroupOnly + ( + This : access IStagePackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_StageInPlace + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_StageInPlace + ( + This : access IStagePackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_AllowUnsigned + ( + This : access IStagePackageOptions_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_AllowUnsigned + ( + This : access IStagePackageOptions_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + ------------------------------------------------------------------------ -- Delegates/Events ------------------------------------------------------------------------ @@ -1250,6 +1897,9 @@ package Windows.Management.Deployment is -- Classes ------------------------------------------------------------------------ + subtype AddPackageOptions is Windows.Management.Deployment.IAddPackageOptions; + function Create return Windows.Management.Deployment.IAddPackageOptions; + subtype DeploymentResult is Windows.Management.Deployment.IDeploymentResult; subtype PackageManager is Windows.Management.Deployment.IPackageManager; function Create return Windows.Management.Deployment.IPackageManager; @@ -1257,6 +1907,12 @@ package Windows.Management.Deployment is subtype PackageManagerDebugSettings is Windows.Management.Deployment.IPackageManagerDebugSettings; subtype PackageUserInformation is Windows.Management.Deployment.IPackageUserInformation; subtype PackageVolume is Windows.Management.Deployment.IPackageVolume; + subtype RegisterPackageOptions is Windows.Management.Deployment.IRegisterPackageOptions; + function Create return Windows.Management.Deployment.IRegisterPackageOptions; + + subtype StagePackageOptions is Windows.Management.Deployment.IStagePackageOptions; + function Create return Windows.Management.Deployment.IStagePackageOptions; + ------------------------------------------------------------------------ -- Static Procedures/functions diff --git a/Bindings/Windows.Media.Audio.adb b/Bindings/Windows.Media.Audio.adb index 278874f..fce4ed2 100644 --- a/Bindings/Windows.Media.Audio.adb +++ b/Bindings/Windows.Media.Audio.adb @@ -57,6 +57,19 @@ package body Windows.Media.Audio is return Hr; end; + function Invoke + ( + This : access AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult_Interface + ; asyncInfo : Windows.Media.Audio.IAsyncOperation_IAudioPlaybackConnectionOpenResult + ; asyncStatus : Windows.Foundation.AsyncStatus + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(asyncInfo, asyncStatus); + return Hr; + end; + function Invoke ( This : access AsyncOperationCompletedHandler_ICreateAudioDeviceInputNodeResult_Interface @@ -226,6 +239,19 @@ package body Windows.Media.Audio is return Hr; end; + function Invoke + ( + This : access TypedEventHandler_IAudioPlaybackConnection_add_StateChanged_Interface + ; sender : Windows.Media.Audio.IAudioPlaybackConnection + ; args : Windows.Object + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.Media.Audio.IAudioPlaybackConnection(sender), args); + return Hr; + end; + function Invoke ( This : access TypedEventHandler_IAudioStateMonitor_add_SoundLevelChanged_Interface @@ -536,6 +562,43 @@ package body Windows.Media.Audio is return RetVal; end; + function GetDeviceSelector + return Windows.String is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Media.Audio.AudioPlaybackConnection"); + m_Factory : IAudioPlaybackConnectionStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.String; + begin + Hr := RoGetActivationFactory(m_hString, IID_IAudioPlaybackConnectionStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.GetDeviceSelector(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function TryCreateFromId + ( + id : Windows.String + ) + return Windows.Media.Audio.IAudioPlaybackConnection is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Media.Audio.AudioPlaybackConnection"); + m_Factory : IAudioPlaybackConnectionStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Media.Audio.IAudioPlaybackConnection; + begin + Hr := RoGetActivationFactory(m_hString, IID_IAudioPlaybackConnectionStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.TryCreateFromId(id, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function CreateForCaptureMonitoring return Windows.Media.Audio.IAudioStateMonitor is Hr : Windows.HRESULT := S_OK; diff --git a/Bindings/Windows.Media.Audio.ads b/Bindings/Windows.Media.Audio.ads index 1d8f23b..69a69df 100644 --- a/Bindings/Windows.Media.Audio.ads +++ b/Bindings/Windows.Media.Audio.ads @@ -151,6 +151,34 @@ package Windows.Media.Audio is type AudioNodeEmitterShapeKind_Ptr is access AudioNodeEmitterShapeKind; + type AudioPlaybackConnectionOpenResultStatus is ( + Success, + RequestTimedOut, + DeniedBySystem, + UnknownFailure + ); + for AudioPlaybackConnectionOpenResultStatus use ( + Success => 0, + RequestTimedOut => 1, + DeniedBySystem => 2, + UnknownFailure => 3 + ); + for AudioPlaybackConnectionOpenResultStatus'Size use 32; + + type AudioPlaybackConnectionOpenResultStatus_Ptr is access AudioPlaybackConnectionOpenResultStatus; + + type AudioPlaybackConnectionState is ( + Closed, + Opened + ); + for AudioPlaybackConnectionState use ( + Closed => 0, + Opened => 1 + ); + for AudioPlaybackConnectionState'Size use 32; + + type AudioPlaybackConnectionState_Ptr is access AudioPlaybackConnectionState; + type MediaSourceAudioInputNodeCreationStatus is ( Success, FormatNotSupported, @@ -232,6 +260,9 @@ package Windows.Media.Audio is type AsyncOperationCompletedHandler_IAudioDeviceInputNode_Interface; type AsyncOperationCompletedHandler_IAudioDeviceInputNode is access all AsyncOperationCompletedHandler_IAudioDeviceInputNode_Interface'Class; type AsyncOperationCompletedHandler_IAudioDeviceInputNode_Ptr is access all AsyncOperationCompletedHandler_IAudioDeviceInputNode; + type AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult_Interface; + type AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult is access all AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult_Interface'Class; + type AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult_Ptr is access all AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult; type AsyncOperationCompletedHandler_ICreateAudioDeviceInputNodeResult_Interface; type AsyncOperationCompletedHandler_ICreateAudioDeviceInputNodeResult is access all AsyncOperationCompletedHandler_ICreateAudioDeviceInputNodeResult_Interface'Class; type AsyncOperationCompletedHandler_ICreateAudioDeviceInputNodeResult_Ptr is access all AsyncOperationCompletedHandler_ICreateAudioDeviceInputNodeResult; @@ -271,6 +302,9 @@ package Windows.Media.Audio is type TypedEventHandler_IAudioGraph_add_UnrecoverableErrorOccurred_Interface; type TypedEventHandler_IAudioGraph_add_UnrecoverableErrorOccurred is access all TypedEventHandler_IAudioGraph_add_UnrecoverableErrorOccurred_Interface'Class; type TypedEventHandler_IAudioGraph_add_UnrecoverableErrorOccurred_Ptr is access all TypedEventHandler_IAudioGraph_add_UnrecoverableErrorOccurred; + type TypedEventHandler_IAudioPlaybackConnection_add_StateChanged_Interface; + type TypedEventHandler_IAudioPlaybackConnection_add_StateChanged is access all TypedEventHandler_IAudioPlaybackConnection_add_StateChanged_Interface'Class; + type TypedEventHandler_IAudioPlaybackConnection_add_StateChanged_Ptr is access all TypedEventHandler_IAudioPlaybackConnection_add_StateChanged; type TypedEventHandler_IAudioStateMonitor_add_SoundLevelChanged_Interface; type TypedEventHandler_IAudioStateMonitor_add_SoundLevelChanged is access all TypedEventHandler_IAudioStateMonitor_add_SoundLevelChanged_Interface'Class; type TypedEventHandler_IAudioStateMonitor_add_SoundLevelChanged_Ptr is access all TypedEventHandler_IAudioStateMonitor_add_SoundLevelChanged; @@ -288,6 +322,9 @@ package Windows.Media.Audio is type IAsyncOperation_IAudioDeviceInputNode_Interface; type IAsyncOperation_IAudioDeviceInputNode is access all IAsyncOperation_IAudioDeviceInputNode_Interface'Class; type IAsyncOperation_IAudioDeviceInputNode_Ptr is access all IAsyncOperation_IAudioDeviceInputNode; + type IAsyncOperation_IAudioPlaybackConnectionOpenResult_Interface; + type IAsyncOperation_IAudioPlaybackConnectionOpenResult is access all IAsyncOperation_IAudioPlaybackConnectionOpenResult_Interface'Class; + type IAsyncOperation_IAudioPlaybackConnectionOpenResult_Ptr is access all IAsyncOperation_IAudioPlaybackConnectionOpenResult; type IAsyncOperation_ICreateAudioDeviceInputNodeResult_Interface; type IAsyncOperation_ICreateAudioDeviceInputNodeResult is access all IAsyncOperation_ICreateAudioDeviceInputNodeResult_Interface'Class; type IAsyncOperation_ICreateAudioDeviceInputNodeResult_Ptr is access all IAsyncOperation_ICreateAudioDeviceInputNodeResult; @@ -402,6 +439,15 @@ package Windows.Media.Audio is type IAudioNodeWithListener_Interface; type IAudioNodeWithListener is access all IAudioNodeWithListener_Interface'Class; type IAudioNodeWithListener_Ptr is access all IAudioNodeWithListener; + type IAudioPlaybackConnection_Interface; + type IAudioPlaybackConnection is access all IAudioPlaybackConnection_Interface'Class; + type IAudioPlaybackConnection_Ptr is access all IAudioPlaybackConnection; + type IAudioPlaybackConnectionOpenResult_Interface; + type IAudioPlaybackConnectionOpenResult is access all IAudioPlaybackConnectionOpenResult_Interface'Class; + type IAudioPlaybackConnectionOpenResult_Ptr is access all IAudioPlaybackConnectionOpenResult; + type IAudioPlaybackConnectionStatics_Interface; + type IAudioPlaybackConnectionStatics is access all IAudioPlaybackConnectionStatics_Interface'Class; + type IAudioPlaybackConnectionStatics_Ptr is access all IAudioPlaybackConnectionStatics; type IAudioStateMonitor_Interface; type IAudioStateMonitor is access all IAudioStateMonitor_Interface'Class; type IAudioStateMonitor_Ptr is access all IAudioStateMonitor; @@ -547,6 +593,33 @@ package Windows.Media.Audio is ------------------------------------------------------------------------ + IID_IAsyncOperation_IAudioPlaybackConnectionOpenResult : aliased constant Windows.IID := (4112801674, 15825, 22194, (130, 155, 152, 136, 37, 29, 104, 156 )); + + type IAsyncOperation_IAudioPlaybackConnectionOpenResult_Interface is interface and Windows.IInspectable_Interface; + + function put_Completed + ( + This : access IAsyncOperation_IAudioPlaybackConnectionOpenResult_Interface + ; handler : Windows.Media.Audio.AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult + ) + return Windows.HRESULT is abstract; + + function get_Completed + ( + This : access IAsyncOperation_IAudioPlaybackConnectionOpenResult_Interface + ; RetVal : access Windows.Media.Audio.AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult + ) + return Windows.HRESULT is abstract; + + function GetResults + ( + This : access IAsyncOperation_IAudioPlaybackConnectionOpenResult_Interface + ; RetVal : access Windows.Media.Audio.IAudioPlaybackConnectionOpenResult + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IAsyncOperation_ICreateAudioDeviceInputNodeResult : aliased constant Windows.IID := (1907049601, 60490, 24297, (163, 66, 58, 49, 116, 120, 41, 184 )); type IAsyncOperation_ICreateAudioDeviceInputNodeResult_Interface is interface and Windows.IInspectable_Interface; @@ -1982,6 +2055,109 @@ package Windows.Media.Audio is ------------------------------------------------------------------------ + IID_IAudioPlaybackConnection : aliased constant Windows.IID := (441196010, 51964, 20711, (135, 24, 234, 63, 129, 203, 250, 81 )); + + type IAudioPlaybackConnection_Interface is interface and Windows.IInspectable_Interface; + + function Start + ( + This : access IAudioPlaybackConnection_Interface + ) + return Windows.HRESULT is abstract; + + function StartAsync + ( + This : access IAudioPlaybackConnection_Interface + ; RetVal : access Windows.Foundation.IAsyncAction + ) + return Windows.HRESULT is abstract; + + function get_DeviceId + ( + This : access IAudioPlaybackConnection_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function get_State + ( + This : access IAudioPlaybackConnection_Interface + ; RetVal : access Windows.Media.Audio.AudioPlaybackConnectionState + ) + return Windows.HRESULT is abstract; + + function Open + ( + This : access IAudioPlaybackConnection_Interface + ; RetVal : access Windows.Media.Audio.IAudioPlaybackConnectionOpenResult + ) + return Windows.HRESULT is abstract; + + function OpenAsync + ( + This : access IAudioPlaybackConnection_Interface + ; RetVal : access Windows.Media.Audio.IAsyncOperation_IAudioPlaybackConnectionOpenResult -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function add_StateChanged + ( + This : access IAudioPlaybackConnection_Interface + ; handler : TypedEventHandler_IAudioPlaybackConnection_add_StateChanged + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_StateChanged + ( + This : access IAudioPlaybackConnection_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IAudioPlaybackConnectionOpenResult : aliased constant Windows.IID := (1315269359, 14841, 24521, (165, 25, 165, 187, 253, 159, 233, 33 )); + + type IAudioPlaybackConnectionOpenResult_Interface is interface and Windows.IInspectable_Interface; + + function get_Status + ( + This : access IAudioPlaybackConnectionOpenResult_Interface + ; RetVal : access Windows.Media.Audio.AudioPlaybackConnectionOpenResultStatus + ) + return Windows.HRESULT is abstract; + + function get_ExtendedError + ( + This : access IAudioPlaybackConnectionOpenResult_Interface + ; RetVal : access Windows.HResult + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IAudioPlaybackConnectionStatics : aliased constant Windows.IID := (3859375010, 27110, 24572, (158, 19, 130, 74, 133, 33, 61, 175 )); + + type IAudioPlaybackConnectionStatics_Interface is interface and Windows.IInspectable_Interface; + + function GetDeviceSelector + ( + This : access IAudioPlaybackConnectionStatics_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function TryCreateFromId + ( + This : access IAudioPlaybackConnectionStatics_Interface + ; id : Windows.String + ; RetVal : access Windows.Media.Audio.IAudioPlaybackConnection + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IAudioStateMonitor : aliased constant Windows.IID := (487838006, 409, 19676, (184, 78, 231, 44, 43, 88, 30, 206 )); type IAudioStateMonitor_Interface is interface and Windows.IInspectable_Interface; @@ -3305,6 +3481,19 @@ package Windows.Media.Audio is ------------------------------------------------------------------------ + IID_AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult : aliased constant Windows.IID := (1457370445, 60301, 24571, (165, 75, 143, 175, 145, 140, 128, 49 )); + + type AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult_Interface(Callback : access procedure (asyncInfo : Windows.Media.Audio.IAsyncOperation_IAudioPlaybackConnectionOpenResult ; asyncStatus : Windows.Foundation.AsyncStatus)) is new Windows.IMulticastDelegate_Interface(IID_AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult'access) with null record; + function Invoke + ( + This : access AsyncOperationCompletedHandler_IAudioPlaybackConnectionOpenResult_Interface + ; asyncInfo : Windows.Media.Audio.IAsyncOperation_IAudioPlaybackConnectionOpenResult + ; asyncStatus : Windows.Foundation.AsyncStatus + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + IID_AsyncOperationCompletedHandler_ICreateAudioDeviceInputNodeResult : aliased constant Windows.IID := (1824875600, 58600, 22985, (131, 216, 99, 228, 110, 172, 178, 11 )); type AsyncOperationCompletedHandler_ICreateAudioDeviceInputNodeResult_Interface(Callback : access procedure (asyncInfo : Windows.Media.Audio.IAsyncOperation_ICreateAudioDeviceInputNodeResult ; asyncStatus : Windows.Foundation.AsyncStatus)) is new Windows.IMulticastDelegate_Interface(IID_AsyncOperationCompletedHandler_ICreateAudioDeviceInputNodeResult'access) with null record; @@ -3474,6 +3663,19 @@ package Windows.Media.Audio is ------------------------------------------------------------------------ + IID_TypedEventHandler_IAudioPlaybackConnection_add_StateChanged : aliased constant Windows.IID := (238590725, 12710, 22769, (158, 164, 12, 30, 77, 112, 167, 184 )); + + type TypedEventHandler_IAudioPlaybackConnection_add_StateChanged_Interface(Callback : access procedure (sender : Windows.Media.Audio.IAudioPlaybackConnection ; args : Windows.Object)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IAudioPlaybackConnection_add_StateChanged'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IAudioPlaybackConnection_add_StateChanged_Interface + ; sender : Windows.Media.Audio.IAudioPlaybackConnection + ; args : Windows.Object + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + IID_TypedEventHandler_IAudioStateMonitor_add_SoundLevelChanged : aliased constant Windows.IID := (322166591, 50523, 23075, (149, 150, 52, 101, 124, 42, 52, 6 )); type TypedEventHandler_IAudioStateMonitor_add_SoundLevelChanged_Interface(Callback : access procedure (sender : Windows.Media.Audio.IAudioStateMonitor ; args : Windows.Object)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IAudioStateMonitor_add_SoundLevelChanged'access) with null record; @@ -3551,6 +3753,8 @@ package Windows.Media.Audio is subtype AudioNodeListener is Windows.Media.Audio.IAudioNodeListener; function Create return Windows.Media.Audio.IAudioNodeListener; + subtype AudioPlaybackConnection is Windows.Media.Audio.IAudioPlaybackConnection; + subtype AudioPlaybackConnectionOpenResult is Windows.Media.Audio.IAudioPlaybackConnectionOpenResult; subtype AudioStateMonitor is Windows.Media.Audio.IAudioStateMonitor; subtype AudioSubmixNode is Windows.Media.Audio.IAudioInputNode; subtype CreateAudioDeviceInputNodeResult is Windows.Media.Audio.ICreateAudioDeviceInputNodeResult; @@ -3631,6 +3835,15 @@ package Windows.Media.Audio is function CreateOmnidirectional return Windows.Media.Audio.IAudioNodeEmitterShape; + function GetDeviceSelector + return Windows.String; + + function TryCreateFromId + ( + id : Windows.String + ) + return Windows.Media.Audio.IAudioPlaybackConnection; + function CreateForCaptureMonitoring return Windows.Media.Audio.IAudioStateMonitor; diff --git a/Bindings/Windows.Media.Capture.Frames.adb b/Bindings/Windows.Media.Capture.Frames.adb index 660fbde..442e255 100644 --- a/Bindings/Windows.Media.Capture.Frames.adb +++ b/Bindings/Windows.Media.Capture.Frames.adb @@ -36,6 +36,7 @@ with Windows.Media.Devices.Core; with Windows.Media.MediaProperties; with Windows.Perception.Spatial; with Windows.Storage.Streams; +with Windows.UI.WindowManagement; with Ada.Unchecked_Conversion; -------------------------------------------------------------------------------- package body Windows.Media.Capture.Frames is diff --git a/Bindings/Windows.Media.Capture.Frames.ads b/Bindings/Windows.Media.Capture.Frames.ads index d9dbe03..702702e 100644 --- a/Bindings/Windows.Media.Capture.Frames.ads +++ b/Bindings/Windows.Media.Capture.Frames.ads @@ -37,6 +37,7 @@ limited with Windows.Media.Devices.Core; limited with Windows.Media.MediaProperties; limited with Windows.Perception.Spatial; limited with Windows.Storage.Streams; +limited with Windows.UI.WindowManagement; -------------------------------------------------------------------------------- package Windows.Media.Capture.Frames is @@ -298,6 +299,9 @@ package Windows.Media.Capture.Frames is type IMediaFrameSourceInfo2_Interface; type IMediaFrameSourceInfo2 is access all IMediaFrameSourceInfo2_Interface'Class; type IMediaFrameSourceInfo2_Ptr is access all IMediaFrameSourceInfo2; + type IMediaFrameSourceInfo3_Interface; + type IMediaFrameSourceInfo3 is access all IMediaFrameSourceInfo3_Interface'Class; + type IMediaFrameSourceInfo3_Ptr is access all IMediaFrameSourceInfo3; type IMultiSourceMediaFrameArrivedEventArgs_Interface; type IMultiSourceMediaFrameArrivedEventArgs is access all IMultiSourceMediaFrameArrivedEventArgs_Interface'Class; type IMultiSourceMediaFrameArrivedEventArgs_Ptr is access all IMultiSourceMediaFrameArrivedEventArgs; @@ -1291,6 +1295,20 @@ package Windows.Media.Capture.Frames is ------------------------------------------------------------------------ + IID_IMediaFrameSourceInfo3 : aliased constant Windows.IID := (3397536438, 26346, 22661, (162, 182, 38, 192, 238, 236, 60, 123 )); + + type IMediaFrameSourceInfo3_Interface is interface and Windows.IInspectable_Interface; + + function GetRelativePanel + ( + This : access IMediaFrameSourceInfo3_Interface + ; displayRegion : Windows.UI.WindowManagement.IDisplayRegion + ; RetVal : access Windows.Devices.Enumeration.Panel + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IMultiSourceMediaFrameArrivedEventArgs : aliased constant Windows.IID := (1662082561, 53073, 18685, (170, 176, 109, 105, 62, 180, 129, 39 )); type IMultiSourceMediaFrameArrivedEventArgs_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.Media.Capture.adb b/Bindings/Windows.Media.Capture.adb index f9b98f5..5fee139 100644 --- a/Bindings/Windows.Media.Capture.adb +++ b/Bindings/Windows.Media.Capture.adb @@ -26,6 +26,7 @@ -- along with this program.If not, see http://www.gnu.org/licenses -- -- -- -------------------------------------------------------------------------------- +with Windows.Devices.Enumeration; with Windows.Graphics.DirectX.Direct3D11; with Windows.Graphics.Imaging; with Windows.Media; @@ -36,9 +37,11 @@ with Windows.Media.Devices; with Windows.Media.Effects; with Windows.Media.MediaProperties; with Windows.Security.Authentication.Web; +with Windows.Security.Credentials; with Windows.Storage; with Windows.Storage.Streams; with Windows.System; +with Windows.UI.WindowManagement; with Ada.Unchecked_Conversion; -------------------------------------------------------------------------------- package body Windows.Media.Capture is @@ -644,6 +647,19 @@ package body Windows.Media.Capture is return Hr; end; + function Invoke + ( + This : access TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed_Interface + ; sender : Windows.Media.Capture.IMediaCaptureRelativePanelWatcher + ; args : Windows.Object + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.Media.Capture.IMediaCaptureRelativePanelWatcher(sender), args); + return Hr; + end; + function Invoke ( This : access TypedEventHandler_IScreenCapture_add_SourceSuspensionChanged_Interface diff --git a/Bindings/Windows.Media.Capture.ads b/Bindings/Windows.Media.Capture.ads index 297325d..b7d3796 100644 --- a/Bindings/Windows.Media.Capture.ads +++ b/Bindings/Windows.Media.Capture.ads @@ -27,6 +27,7 @@ -- -- -------------------------------------------------------------------------------- with Windows; use Windows; +limited with Windows.Devices.Enumeration; with Windows.Foundation; with Windows.Foundation.Collections; limited with Windows.Graphics.DirectX.Direct3D11; @@ -38,9 +39,11 @@ limited with Windows.Media.Devices; limited with Windows.Media.Effects; limited with Windows.Media.MediaProperties; limited with Windows.Security.Authentication.Web; +limited with Windows.Security.Credentials; limited with Windows.Storage; limited with Windows.Storage.Streams; limited with Windows.System; +limited with Windows.UI.WindowManagement; -------------------------------------------------------------------------------- package Windows.Media.Capture is @@ -916,6 +919,9 @@ package Windows.Media.Capture is type TypedEventHandler_IMediaCapture6_add_CaptureDeviceExclusiveControlStatusChanged_Interface; type TypedEventHandler_IMediaCapture6_add_CaptureDeviceExclusiveControlStatusChanged is access all TypedEventHandler_IMediaCapture6_add_CaptureDeviceExclusiveControlStatusChanged_Interface'Class; type TypedEventHandler_IMediaCapture6_add_CaptureDeviceExclusiveControlStatusChanged_Ptr is access all TypedEventHandler_IMediaCapture6_add_CaptureDeviceExclusiveControlStatusChanged; + type TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed_Interface; + type TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed is access all TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed_Interface'Class; + type TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed_Ptr is access all TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed; type TypedEventHandler_IScreenCapture_add_SourceSuspensionChanged_Interface; type TypedEventHandler_IScreenCapture_add_SourceSuspensionChanged is access all TypedEventHandler_IScreenCapture_add_SourceSuspensionChanged_Interface'Class; type TypedEventHandler_IScreenCapture_add_SourceSuspensionChanged_Ptr is access all TypedEventHandler_IScreenCapture_add_SourceSuspensionChanged; @@ -1218,6 +1224,9 @@ package Windows.Media.Capture is type IMediaCapture6_Interface; type IMediaCapture6 is access all IMediaCapture6_Interface'Class; type IMediaCapture6_Ptr is access all IMediaCapture6; + type IMediaCapture7_Interface; + type IMediaCapture7 is access all IMediaCapture7_Interface'Class; + type IMediaCapture7_Ptr is access all IMediaCapture7; type IMediaCaptureDeviceExclusiveControlStatusChangedEventArgs_Interface; type IMediaCaptureDeviceExclusiveControlStatusChangedEventArgs is access all IMediaCaptureDeviceExclusiveControlStatusChangedEventArgs_Interface'Class; type IMediaCaptureDeviceExclusiveControlStatusChangedEventArgs_Ptr is access all IMediaCaptureDeviceExclusiveControlStatusChangedEventArgs; @@ -1245,9 +1254,15 @@ package Windows.Media.Capture is type IMediaCaptureInitializationSettings6_Interface; type IMediaCaptureInitializationSettings6 is access all IMediaCaptureInitializationSettings6_Interface'Class; type IMediaCaptureInitializationSettings6_Ptr is access all IMediaCaptureInitializationSettings6; + type IMediaCaptureInitializationSettings7_Interface; + type IMediaCaptureInitializationSettings7 is access all IMediaCaptureInitializationSettings7_Interface'Class; + type IMediaCaptureInitializationSettings7_Ptr is access all IMediaCaptureInitializationSettings7; type IMediaCapturePauseResult_Interface; type IMediaCapturePauseResult is access all IMediaCapturePauseResult_Interface'Class; type IMediaCapturePauseResult_Ptr is access all IMediaCapturePauseResult; + type IMediaCaptureRelativePanelWatcher_Interface; + type IMediaCaptureRelativePanelWatcher is access all IMediaCaptureRelativePanelWatcher_Interface'Class; + type IMediaCaptureRelativePanelWatcher_Ptr is access all IMediaCaptureRelativePanelWatcher; type IMediaCaptureSettings_Interface; type IMediaCaptureSettings is access all IMediaCaptureSettings_Interface'Class; type IMediaCaptureSettings_Ptr is access all IMediaCaptureSettings; @@ -5805,6 +5820,21 @@ package Windows.Media.Capture is ------------------------------------------------------------------------ + IID_IMediaCapture7 : aliased constant Windows.IID := (2439639298, 34952, 21530, (149, 188, 36, 228, 212, 98, 84, 42 )); + + type IMediaCapture7_Interface is interface and Windows.IInspectable_Interface; + + function CreateRelativePanelWatcher + ( + This : access IMediaCapture7_Interface + ; captureMode : Windows.Media.Capture.StreamingCaptureMode + ; displayRegion : Windows.UI.WindowManagement.IDisplayRegion + ; RetVal : access Windows.Media.Capture.IMediaCaptureRelativePanelWatcher + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IMediaCaptureDeviceExclusiveControlStatusChangedEventArgs : aliased constant Windows.IID := (2637140493, 42376, 17350, (137, 214, 90, 211, 34, 175, 0, 106 )); type IMediaCaptureDeviceExclusiveControlStatusChangedEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -6118,6 +6148,40 @@ package Windows.Media.Capture is ------------------------------------------------------------------------ + IID_IMediaCaptureInitializationSettings7 : aliased constant Windows.IID := (1096051047, 62858, 23938, (158, 244, 237, 87, 47, 181, 227, 78 )); + + type IMediaCaptureInitializationSettings7_Interface is interface and Windows.IInspectable_Interface; + + function get_DeviceUriPasswordCredential + ( + This : access IMediaCaptureInitializationSettings7_Interface + ; RetVal : access Windows.Security.Credentials.IPasswordCredential + ) + return Windows.HRESULT is abstract; + + function put_DeviceUriPasswordCredential + ( + This : access IMediaCaptureInitializationSettings7_Interface + ; value : Windows.Security.Credentials.IPasswordCredential + ) + return Windows.HRESULT is abstract; + + function get_DeviceUri + ( + This : access IMediaCaptureInitializationSettings7_Interface + ; RetVal : access Windows.Foundation.IUriRuntimeClass + ) + return Windows.HRESULT is abstract; + + function put_DeviceUri + ( + This : access IMediaCaptureInitializationSettings7_Interface + ; value : Windows.Foundation.IUriRuntimeClass + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IMediaCapturePauseResult : aliased constant Windows.IID := (2932112547, 17527, 19204, (160, 111, 44, 28, 81, 130, 254, 157 )); type IMediaCapturePauseResult_Interface is interface and Windows.IInspectable_Interface; @@ -6138,6 +6202,46 @@ package Windows.Media.Capture is ------------------------------------------------------------------------ + IID_IMediaCaptureRelativePanelWatcher : aliased constant Windows.IID := (2106156390, 1214, 23433, (179, 14, 189, 52, 169, 241, 45, 176 )); + + type IMediaCaptureRelativePanelWatcher_Interface is interface and Windows.IInspectable_Interface; + + function get_RelativePanel + ( + This : access IMediaCaptureRelativePanelWatcher_Interface + ; RetVal : access Windows.Devices.Enumeration.Panel + ) + return Windows.HRESULT is abstract; + + function add_Changed + ( + This : access IMediaCaptureRelativePanelWatcher_Interface + ; handler : TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_Changed + ( + This : access IMediaCaptureRelativePanelWatcher_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function Start + ( + This : access IMediaCaptureRelativePanelWatcher_Interface + ) + return Windows.HRESULT is abstract; + + function Stop + ( + This : access IMediaCaptureRelativePanelWatcher_Interface + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IMediaCaptureSettings : aliased constant Windows.IID := (495168254, 27973, 17527, (141, 196, 172, 91, 192, 28, 64, 145 )); type IMediaCaptureSettings_Interface is interface and Windows.IInspectable_Interface; @@ -7473,6 +7577,19 @@ package Windows.Media.Capture is ------------------------------------------------------------------------ + IID_TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed : aliased constant Windows.IID := (3828436128, 33416, 22885, (160, 211, 103, 208, 181, 50, 189, 197 )); + + type TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed_Interface(Callback : access procedure (sender : Windows.Media.Capture.IMediaCaptureRelativePanelWatcher ; args : Windows.Object)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IMediaCaptureRelativePanelWatcher_add_Changed_Interface + ; sender : Windows.Media.Capture.IMediaCaptureRelativePanelWatcher + ; args : Windows.Object + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + IID_TypedEventHandler_IScreenCapture_add_SourceSuspensionChanged : aliased constant Windows.IID := (2212238669, 47983, 22926, (168, 135, 65, 186, 24, 1, 240, 25 )); type TypedEventHandler_IScreenCapture_add_SourceSuspensionChanged_Interface(Callback : access procedure (sender : Windows.Media.Capture.IScreenCapture ; args : Windows.Media.Capture.ISourceSuspensionChangedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IScreenCapture_add_SourceSuspensionChanged'access) with null record; @@ -7556,6 +7673,7 @@ package Windows.Media.Capture is function Create return Windows.Media.Capture.IMediaCaptureInitializationSettings; subtype MediaCapturePauseResult is Windows.Media.Capture.IMediaCapturePauseResult; + subtype MediaCaptureRelativePanelWatcher is Windows.Media.Capture.IMediaCaptureRelativePanelWatcher; subtype MediaCaptureSettings is Windows.Media.Capture.IMediaCaptureSettings; subtype MediaCaptureStopResult is Windows.Media.Capture.IMediaCaptureStopResult; subtype MediaCaptureVideoProfile is Windows.Media.Capture.IMediaCaptureVideoProfile; diff --git a/Bindings/Windows.Media.Devices.adb b/Bindings/Windows.Media.Devices.adb index 0cf3edc..d3923ff 100644 --- a/Bindings/Windows.Media.Devices.adb +++ b/Bindings/Windows.Media.Devices.adb @@ -26,6 +26,7 @@ -- along with this program.If not, see http://www.gnu.org/licenses -- -- -- -------------------------------------------------------------------------------- +with Windows.Devices.Enumeration; with Windows.Media.Capture; with Windows.Media.Devices.Core; with Windows.Media.MediaProperties; diff --git a/Bindings/Windows.Media.Devices.ads b/Bindings/Windows.Media.Devices.ads index f0e048e..010c663 100644 --- a/Bindings/Windows.Media.Devices.ads +++ b/Bindings/Windows.Media.Devices.ads @@ -26,6 +26,7 @@ -- along with this program.If not, see http://www.gnu.org/licenses -- -- -- -------------------------------------------------------------------------------- +limited with Windows.Devices.Enumeration; with Windows.Foundation; with Windows.Foundation.Collections; limited with Windows.Media.Capture; @@ -550,6 +551,9 @@ package Windows.Media.Devices is type IAdvancedVideoCaptureDeviceController7_Interface; type IAdvancedVideoCaptureDeviceController7 is access all IAdvancedVideoCaptureDeviceController7_Interface'Class; type IAdvancedVideoCaptureDeviceController7_Ptr is access all IAdvancedVideoCaptureDeviceController7; + type IAdvancedVideoCaptureDeviceController8_Interface; + type IAdvancedVideoCaptureDeviceController8 is access all IAdvancedVideoCaptureDeviceController8_Interface'Class; + type IAdvancedVideoCaptureDeviceController8_Ptr is access all IAdvancedVideoCaptureDeviceController8; type IAsyncOperation_IModuleCommandResult_Interface; type IAsyncOperation_IModuleCommandResult is access all IAsyncOperation_IModuleCommandResult_Interface'Class; type IAsyncOperation_IModuleCommandResult_Ptr is access all IAsyncOperation_IModuleCommandResult; @@ -727,6 +731,9 @@ package Windows.Media.Devices is type IOpticalImageStabilizationControl_Interface; type IOpticalImageStabilizationControl is access all IOpticalImageStabilizationControl_Interface'Class; type IOpticalImageStabilizationControl_Ptr is access all IOpticalImageStabilizationControl; + type IPanelBasedOptimizationControl_Interface; + type IPanelBasedOptimizationControl is access all IPanelBasedOptimizationControl_Interface'Class; + type IPanelBasedOptimizationControl_Ptr is access all IPanelBasedOptimizationControl; type IPhotoConfirmationControl_Interface; type IPhotoConfirmationControl is access all IPhotoConfirmationControl_Interface'Class; type IPhotoConfirmationControl_Ptr is access all IPhotoConfirmationControl; @@ -1147,6 +1154,19 @@ package Windows.Media.Devices is ------------------------------------------------------------------------ + IID_IAdvancedVideoCaptureDeviceController8 : aliased constant Windows.IID := (3628331024, 59387, 22875, (154, 120, 14, 84, 196, 83, 43, 67 )); + + type IAdvancedVideoCaptureDeviceController8_Interface is interface and Windows.IInspectable_Interface; + + function get_PanelBasedOptimizationControl + ( + This : access IAdvancedVideoCaptureDeviceController8_Interface + ; RetVal : access Windows.Media.Devices.IPanelBasedOptimizationControl + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IAsyncOperation_IModuleCommandResult : aliased constant Windows.IID := (773799282, 42381, 23306, (180, 45, 54, 96, 192, 76, 254, 235 )); type IAsyncOperation_IModuleCommandResult_Interface is interface and Windows.IInspectable_Interface; @@ -3342,6 +3362,33 @@ package Windows.Media.Devices is ------------------------------------------------------------------------ + IID_IPanelBasedOptimizationControl : aliased constant Windows.IID := (858927651, 25159, 21529, (165, 164, 61, 128, 134, 69, 217, 23 )); + + type IPanelBasedOptimizationControl_Interface is interface and Windows.IInspectable_Interface; + + function get_IsSupported + ( + This : access IPanelBasedOptimizationControl_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_Panel + ( + This : access IPanelBasedOptimizationControl_Interface + ; RetVal : access Windows.Devices.Enumeration.Panel + ) + return Windows.HRESULT is abstract; + + function put_Panel + ( + This : access IPanelBasedOptimizationControl_Interface + ; value : Windows.Devices.Enumeration.Panel + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IPhotoConfirmationControl : aliased constant Windows.IID := (3371430755, 65374, 17794, (169, 168, 5, 80, 248, 90, 74, 118 )); type IPhotoConfirmationControl_Interface is interface and Windows.IInspectable_Interface; @@ -4656,6 +4703,7 @@ package Windows.Media.Devices is subtype MediaDeviceControlCapabilities is Windows.Media.Devices.IMediaDeviceControlCapabilities; subtype ModuleCommandResult is Windows.Media.Devices.IModuleCommandResult; subtype OpticalImageStabilizationControl is Windows.Media.Devices.IOpticalImageStabilizationControl; + subtype PanelBasedOptimizationControl is Windows.Media.Devices.IPanelBasedOptimizationControl; subtype PhotoConfirmationControl is Windows.Media.Devices.IPhotoConfirmationControl; subtype RedialRequestedEventArgs is Windows.Media.Devices.IRedialRequestedEventArgs; subtype RegionOfInterest is Windows.Media.Devices.IRegionOfInterest; diff --git a/Bindings/Windows.Media.MediaProperties.adb b/Bindings/Windows.Media.MediaProperties.adb index ca75f57..243813f 100644 --- a/Bindings/Windows.Media.MediaProperties.adb +++ b/Bindings/Windows.Media.MediaProperties.adb @@ -1666,6 +1666,74 @@ package body Windows.Media.MediaProperties is return RetVal; end; + function get_Pgs + return Windows.String is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Media.MediaProperties.MediaEncodingSubtypes"); + m_Factory : IMediaEncodingSubtypesStatics6 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.String; + begin + Hr := RoGetActivationFactory(m_hString, IID_IMediaEncodingSubtypesStatics6'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.get_Pgs(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function get_Srt + return Windows.String is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Media.MediaProperties.MediaEncodingSubtypes"); + m_Factory : IMediaEncodingSubtypesStatics6 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.String; + begin + Hr := RoGetActivationFactory(m_hString, IID_IMediaEncodingSubtypesStatics6'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.get_Srt(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function get_Ssa + return Windows.String is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Media.MediaProperties.MediaEncodingSubtypes"); + m_Factory : IMediaEncodingSubtypesStatics6 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.String; + begin + Hr := RoGetActivationFactory(m_hString, IID_IMediaEncodingSubtypesStatics6'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.get_Ssa(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function get_VobSub + return Windows.String is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Media.MediaProperties.MediaEncodingSubtypes"); + m_Factory : IMediaEncodingSubtypesStatics6 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.String; + begin + Hr := RoGetActivationFactory(m_hString, IID_IMediaEncodingSubtypesStatics6'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.get_VobSub(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function get_High_Mpeg2ProfileIds return Windows.Int32 is Hr : Windows.HRESULT := S_OK; @@ -1751,6 +1819,80 @@ package body Windows.Media.MediaProperties is return RetVal; end; + function CreatePgs + return Windows.Media.MediaProperties.IMediaEncodingProperties is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Media.MediaProperties.TimedMetadataEncodingProperties"); + m_Factory : ITimedMetadataEncodingPropertiesStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Media.MediaProperties.IMediaEncodingProperties; + begin + Hr := RoGetActivationFactory(m_hString, IID_ITimedMetadataEncodingPropertiesStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.CreatePgs(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function CreateSrt + return Windows.Media.MediaProperties.IMediaEncodingProperties is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Media.MediaProperties.TimedMetadataEncodingProperties"); + m_Factory : ITimedMetadataEncodingPropertiesStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Media.MediaProperties.IMediaEncodingProperties; + begin + Hr := RoGetActivationFactory(m_hString, IID_ITimedMetadataEncodingPropertiesStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.CreateSrt(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function CreateSsa + ( + formatUserData : Windows.UInt8_Ptr + ) + return Windows.Media.MediaProperties.IMediaEncodingProperties is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Media.MediaProperties.TimedMetadataEncodingProperties"); + m_Factory : ITimedMetadataEncodingPropertiesStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Media.MediaProperties.IMediaEncodingProperties; + begin + Hr := RoGetActivationFactory(m_hString, IID_ITimedMetadataEncodingPropertiesStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.CreateSsa(formatUserData, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function CreateVobSub + ( + formatUserData : Windows.UInt8_Ptr + ) + return Windows.Media.MediaProperties.IMediaEncodingProperties is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Media.MediaProperties.TimedMetadataEncodingProperties"); + m_Factory : ITimedMetadataEncodingPropertiesStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Media.MediaProperties.IMediaEncodingProperties; + begin + Hr := RoGetActivationFactory(m_hString, IID_ITimedMetadataEncodingPropertiesStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.CreateVobSub(formatUserData, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function CreateH264 return Windows.Media.MediaProperties.IVideoEncodingProperties is Hr : Windows.HRESULT := S_OK; diff --git a/Bindings/Windows.Media.MediaProperties.ads b/Bindings/Windows.Media.MediaProperties.ads index c12adbd..d6d8bb5 100644 --- a/Bindings/Windows.Media.MediaProperties.ads +++ b/Bindings/Windows.Media.MediaProperties.ads @@ -283,6 +283,9 @@ package Windows.Media.MediaProperties is type IMediaEncodingSubtypesStatics5_Interface; type IMediaEncodingSubtypesStatics5 is access all IMediaEncodingSubtypesStatics5_Interface'Class; type IMediaEncodingSubtypesStatics5_Ptr is access all IMediaEncodingSubtypesStatics5; + type IMediaEncodingSubtypesStatics6_Interface; + type IMediaEncodingSubtypesStatics6 is access all IMediaEncodingSubtypesStatics6_Interface'Class; + type IMediaEncodingSubtypesStatics6_Ptr is access all IMediaEncodingSubtypesStatics6; type IMediaRatio_Interface; type IMediaRatio is access all IMediaRatio_Interface'Class; type IMediaRatio_Ptr is access all IMediaRatio; @@ -292,6 +295,9 @@ package Windows.Media.MediaProperties is type ITimedMetadataEncodingProperties_Interface; type ITimedMetadataEncodingProperties is access all ITimedMetadataEncodingProperties_Interface'Class; type ITimedMetadataEncodingProperties_Ptr is access all ITimedMetadataEncodingProperties; + type ITimedMetadataEncodingPropertiesStatics_Interface; + type ITimedMetadataEncodingPropertiesStatics is access all ITimedMetadataEncodingPropertiesStatics_Interface'Class; + type ITimedMetadataEncodingPropertiesStatics_Ptr is access all ITimedMetadataEncodingPropertiesStatics; type IVectorView_IAudioEncodingProperties_Interface; type IVectorView_IAudioEncodingProperties is access all IVectorView_IAudioEncodingProperties_Interface'Class; type IVectorView_IAudioEncodingProperties_Ptr is access all IVectorView_IAudioEncodingProperties; @@ -1567,6 +1573,40 @@ package Windows.Media.MediaProperties is ------------------------------------------------------------------------ + IID_IMediaEncodingSubtypesStatics6 : aliased constant Windows.IID := (2703567219, 43396, 22802, (147, 187, 84, 231, 229, 105, 224, 83 )); + + type IMediaEncodingSubtypesStatics6_Interface is interface and Windows.IInspectable_Interface; + + function get_Pgs + ( + This : access IMediaEncodingSubtypesStatics6_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function get_Srt + ( + This : access IMediaEncodingSubtypesStatics6_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function get_Ssa + ( + This : access IMediaEncodingSubtypesStatics6_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function get_VobSub + ( + This : access IMediaEncodingSubtypesStatics6_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IMediaRatio : aliased constant Windows.IID := (3536912101, 35113, 16413, (172, 120, 125, 53, 126, 55, 129, 99 )); type IMediaRatio_Interface is interface and Windows.IInspectable_Interface; @@ -1669,6 +1709,42 @@ package Windows.Media.MediaProperties is ------------------------------------------------------------------------ + IID_ITimedMetadataEncodingPropertiesStatics : aliased constant Windows.IID := (1714010983, 28245, 22083, (137, 160, 122, 126, 141, 133, 181, 44 )); + + type ITimedMetadataEncodingPropertiesStatics_Interface is interface and Windows.IInspectable_Interface; + + function CreatePgs + ( + This : access ITimedMetadataEncodingPropertiesStatics_Interface + ; RetVal : access Windows.Media.MediaProperties.IMediaEncodingProperties + ) + return Windows.HRESULT is abstract; + + function CreateSrt + ( + This : access ITimedMetadataEncodingPropertiesStatics_Interface + ; RetVal : access Windows.Media.MediaProperties.IMediaEncodingProperties + ) + return Windows.HRESULT is abstract; + + function CreateSsa + ( + This : access ITimedMetadataEncodingPropertiesStatics_Interface + ; formatUserData : Windows.UInt8_Ptr + ; RetVal : access Windows.Media.MediaProperties.IMediaEncodingProperties + ) + return Windows.HRESULT is abstract; + + function CreateVobSub + ( + This : access ITimedMetadataEncodingPropertiesStatics_Interface + ; formatUserData : Windows.UInt8_Ptr + ; RetVal : access Windows.Media.MediaProperties.IMediaEncodingProperties + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IVectorView_IAudioEncodingProperties : aliased constant Windows.IID := (1689014380, 52432, 22219, (176, 136, 177, 163, 110, 135, 85, 223 )); type IVectorView_IAudioEncodingProperties_Interface is interface and Windows.IInspectable_Interface; @@ -2333,6 +2409,18 @@ package Windows.Media.MediaProperties is function get_Heif return Windows.String; + function get_Pgs + return Windows.String; + + function get_Srt + return Windows.String; + + function get_Ssa + return Windows.String; + + function get_VobSub + return Windows.String; + function get_High_Mpeg2ProfileIds return Windows.Int32; @@ -2348,6 +2436,24 @@ package Windows.Media.MediaProperties is function get_SpatiallyScalable return Windows.Int32; + function CreatePgs + return Windows.Media.MediaProperties.IMediaEncodingProperties; + + function CreateSrt + return Windows.Media.MediaProperties.IMediaEncodingProperties; + + function CreateSsa + ( + formatUserData : Windows.UInt8_Ptr + ) + return Windows.Media.MediaProperties.IMediaEncodingProperties; + + function CreateVobSub + ( + formatUserData : Windows.UInt8_Ptr + ) + return Windows.Media.MediaProperties.IMediaEncodingProperties; + function CreateH264 return Windows.Media.MediaProperties.IVideoEncodingProperties; diff --git a/Bindings/Windows.Media.Protection.PlayReady.ads b/Bindings/Windows.Media.Protection.PlayReady.ads index 7e15152..9e32976 100644 --- a/Bindings/Windows.Media.Protection.PlayReady.ads +++ b/Bindings/Windows.Media.Protection.PlayReady.ads @@ -2459,19 +2459,6 @@ package Windows.Media.Protection.PlayReady is return Windows.Media.Protection.PlayReady.INDMessenger; subtype PlayReadyContentHeader is Windows.Media.Protection.PlayReady.IPlayReadyContentHeader; - function CreateInstanceFromComponents2 - ( - dwFlags : Windows.UInt32 - ; contentKeyIds : Windows.Guid_Ptr - ; contentKeyIdStrings : Windows.String_Ptr - ; contentEncryptionAlgorithm : Windows.Media.Protection.PlayReady.PlayReadyEncryptionAlgorithm - ; licenseAcquisitionUrl : Windows.Foundation.IUriRuntimeClass - ; licenseAcquisitionUserInterfaceUrl : Windows.Foundation.IUriRuntimeClass - ; customAttributes : Windows.String - ; domainServiceId : Windows.Guid - ) - return Windows.Media.Protection.PlayReady.IPlayReadyContentHeader; - function CreateInstanceFromWindowsMediaDrmHeader ( headerBytes : Windows.UInt8_Ptr @@ -2500,6 +2487,19 @@ package Windows.Media.Protection.PlayReady is ) return Windows.Media.Protection.PlayReady.IPlayReadyContentHeader; + function CreateInstanceFromComponents2 + ( + dwFlags : Windows.UInt32 + ; contentKeyIds : Windows.Guid_Ptr + ; contentKeyIdStrings : Windows.String_Ptr + ; contentEncryptionAlgorithm : Windows.Media.Protection.PlayReady.PlayReadyEncryptionAlgorithm + ; licenseAcquisitionUrl : Windows.Foundation.IUriRuntimeClass + ; licenseAcquisitionUserInterfaceUrl : Windows.Foundation.IUriRuntimeClass + ; customAttributes : Windows.String + ; domainServiceId : Windows.Guid + ) + return Windows.Media.Protection.PlayReady.IPlayReadyContentHeader; + subtype PlayReadyDomain is Windows.Media.Protection.PlayReady.IPlayReadyDomain; subtype PlayReadyDomainIterable is Windows.Media.Protection.PlayReady.IIterable_IPlayReadyDomain; function CreateInstance diff --git a/Bindings/Windows.Networking.BackgroundTransfer.ads b/Bindings/Windows.Networking.BackgroundTransfer.ads index 2568ed2..bedebf2 100644 --- a/Bindings/Windows.Networking.BackgroundTransfer.ads +++ b/Bindings/Windows.Networking.BackgroundTransfer.ads @@ -271,6 +271,9 @@ package Windows.Networking.BackgroundTransfer is type IDownloadOperation4_Interface; type IDownloadOperation4 is access all IDownloadOperation4_Interface'Class; type IDownloadOperation4_Ptr is access all IDownloadOperation4; + type IDownloadOperation5_Interface; + type IDownloadOperation5 is access all IDownloadOperation5_Interface'Class; + type IDownloadOperation5_Ptr is access all IDownloadOperation5; type IIterable_BackgroundTransferFileRange_Interface; type IIterable_BackgroundTransferFileRange is access all IIterable_BackgroundTransferFileRange_Interface'Class; type IIterable_BackgroundTransferFileRange_Ptr is access all IIterable_BackgroundTransferFileRange; @@ -310,6 +313,9 @@ package Windows.Networking.BackgroundTransfer is type IUploadOperation3_Interface; type IUploadOperation3 is access all IUploadOperation3_Interface'Class; type IUploadOperation3_Ptr is access all IUploadOperation3; + type IUploadOperation4_Interface; + type IUploadOperation4 is access all IUploadOperation4_Interface'Class; + type IUploadOperation4_Ptr is access all IUploadOperation4; type IVector_BackgroundTransferFileRange_Interface; type IVector_BackgroundTransferFileRange is access all IVector_BackgroundTransferFileRange_Interface'Class; type IVector_BackgroundTransferFileRange_Ptr is access all IVector_BackgroundTransferFileRange; @@ -1330,6 +1336,27 @@ package Windows.Networking.BackgroundTransfer is ------------------------------------------------------------------------ + IID_IDownloadOperation5 : aliased constant Windows.IID := (2795087983, 21904, 17978, (184, 214, 30, 73, 26, 39, 96, 165 )); + + type IDownloadOperation5_Interface is interface and Windows.IInspectable_Interface; + + function SetRequestHeader + ( + This : access IDownloadOperation5_Interface + ; headerName : Windows.String + ; headerValue : Windows.String + ) + return Windows.HRESULT is abstract; + + function RemoveRequestHeader + ( + This : access IDownloadOperation5_Interface + ; headerName : Windows.String + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IIterable_BackgroundTransferFileRange : aliased constant Windows.IID := (750965913, 38732, 20600, (137, 174, 45, 78, 225, 19, 151, 33 )); type IIterable_BackgroundTransferFileRange_Interface is interface and Windows.IInspectable_Interface; @@ -1628,6 +1655,27 @@ package Windows.Networking.BackgroundTransfer is ------------------------------------------------------------------------ + IID_IUploadOperation4 : aliased constant Windows.IID := (1357770545, 64197, 16878, (176, 48, 220, 119, 202, 238, 159, 170 )); + + type IUploadOperation4_Interface is interface and Windows.IInspectable_Interface; + + function SetRequestHeader + ( + This : access IUploadOperation4_Interface + ; headerName : Windows.String + ; headerValue : Windows.String + ) + return Windows.HRESULT is abstract; + + function RemoveRequestHeader + ( + This : access IUploadOperation4_Interface + ; headerName : Windows.String + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IVector_BackgroundTransferFileRange : aliased constant Windows.IID := (3342659312, 34122, 22855, (158, 124, 82, 126, 57, 21, 211, 53 )); type IVector_BackgroundTransferFileRange_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.Networking.Connectivity.ads b/Bindings/Windows.Networking.Connectivity.ads index c3c66c0..eb44bbb 100644 --- a/Bindings/Windows.Networking.Connectivity.ads +++ b/Bindings/Windows.Networking.Connectivity.ads @@ -113,7 +113,8 @@ package Windows.Networking.Connectivity is RsnaPsk, Ihv, Wpa3, - Wpa3Sae + Wpa3Sae, + Owe ); for NetworkAuthenticationType use ( None => 0, @@ -127,7 +128,8 @@ package Windows.Networking.Connectivity is RsnaPsk => 8, Ihv => 9, Wpa3 => 10, - Wpa3Sae => 11 + Wpa3Sae => 11, + Owe => 12 ); for NetworkAuthenticationType'Size use 32; diff --git a/Bindings/Windows.Networking.NetworkOperators.adb b/Bindings/Windows.Networking.NetworkOperators.adb index 5413587..4202114 100644 --- a/Bindings/Windows.Networking.NetworkOperators.adb +++ b/Bindings/Windows.Networking.NetworkOperators.adb @@ -1127,6 +1127,87 @@ package body Windows.Networking.NetworkOperators is return RetVal; end; + procedure DisableNoConnectionsTimeout + is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Networking.NetworkOperators.NetworkOperatorTetheringManager"); + m_Factory : INetworkOperatorTetheringManagerStatics4 := null; + RefCount : Windows.UInt32 := 0; + begin + Hr := RoGetActivationFactory(m_hString, IID_INetworkOperatorTetheringManagerStatics4'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.DisableNoConnectionsTimeout; + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + end; + + function DisableNoConnectionsTimeoutAsync + return Windows.Foundation.IAsyncAction is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Networking.NetworkOperators.NetworkOperatorTetheringManager"); + m_Factory : INetworkOperatorTetheringManagerStatics4 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Foundation.IAsyncAction; + begin + Hr := RoGetActivationFactory(m_hString, IID_INetworkOperatorTetheringManagerStatics4'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.DisableNoConnectionsTimeoutAsync(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + procedure EnableNoConnectionsTimeout + is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Networking.NetworkOperators.NetworkOperatorTetheringManager"); + m_Factory : INetworkOperatorTetheringManagerStatics4 := null; + RefCount : Windows.UInt32 := 0; + begin + Hr := RoGetActivationFactory(m_hString, IID_INetworkOperatorTetheringManagerStatics4'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.EnableNoConnectionsTimeout; + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + end; + + function EnableNoConnectionsTimeoutAsync + return Windows.Foundation.IAsyncAction is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Networking.NetworkOperators.NetworkOperatorTetheringManager"); + m_Factory : INetworkOperatorTetheringManagerStatics4 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Foundation.IAsyncAction; + begin + Hr := RoGetActivationFactory(m_hString, IID_INetworkOperatorTetheringManagerStatics4'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.EnableNoConnectionsTimeoutAsync(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function IsNoConnectionsTimeoutEnabled + return Windows.Boolean is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Networking.NetworkOperators.NetworkOperatorTetheringManager"); + m_Factory : INetworkOperatorTetheringManagerStatics4 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Boolean; + begin + Hr := RoGetActivationFactory(m_hString, IID_INetworkOperatorTetheringManagerStatics4'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.IsNoConnectionsTimeoutEnabled(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function CreateFromNetworkAccountId ( networkAccountId : Windows.String diff --git a/Bindings/Windows.Networking.NetworkOperators.ads b/Bindings/Windows.Networking.NetworkOperators.ads index bb081c6..05b2a64 100644 --- a/Bindings/Windows.Networking.NetworkOperators.ads +++ b/Bindings/Windows.Networking.NetworkOperators.ads @@ -580,6 +580,20 @@ package Windows.Networking.NetworkOperators is type TetheringOperationStatus_Ptr is access TetheringOperationStatus; + type TetheringWiFiBand is ( + Auto, + TwoPointFourGigahertz, + FiveGigahertz + ); + for TetheringWiFiBand use ( + Auto => 0, + TwoPointFourGigahertz => 1, + FiveGigahertz => 2 + ); + for TetheringWiFiBand'Size use 32; + + type TetheringWiFiBand_Ptr is access TetheringWiFiBand; + type UiccAccessCondition is ( AlwaysAllowed, Pin1, @@ -1179,6 +1193,9 @@ package Windows.Networking.NetworkOperators is type INetworkOperatorTetheringAccessPointConfiguration_Interface; type INetworkOperatorTetheringAccessPointConfiguration is access all INetworkOperatorTetheringAccessPointConfiguration_Interface'Class; type INetworkOperatorTetheringAccessPointConfiguration_Ptr is access all INetworkOperatorTetheringAccessPointConfiguration; + type INetworkOperatorTetheringAccessPointConfiguration2_Interface; + type INetworkOperatorTetheringAccessPointConfiguration2 is access all INetworkOperatorTetheringAccessPointConfiguration2_Interface'Class; + type INetworkOperatorTetheringAccessPointConfiguration2_Ptr is access all INetworkOperatorTetheringAccessPointConfiguration2; type INetworkOperatorTetheringClient_Interface; type INetworkOperatorTetheringClient is access all INetworkOperatorTetheringClient_Interface'Class; type INetworkOperatorTetheringClient_Ptr is access all INetworkOperatorTetheringClient; @@ -1200,6 +1217,9 @@ package Windows.Networking.NetworkOperators is type INetworkOperatorTetheringManagerStatics3_Interface; type INetworkOperatorTetheringManagerStatics3 is access all INetworkOperatorTetheringManagerStatics3_Interface'Class; type INetworkOperatorTetheringManagerStatics3_Ptr is access all INetworkOperatorTetheringManagerStatics3; + type INetworkOperatorTetheringManagerStatics4_Interface; + type INetworkOperatorTetheringManagerStatics4 is access all INetworkOperatorTetheringManagerStatics4_Interface'Class; + type INetworkOperatorTetheringManagerStatics4_Ptr is access all INetworkOperatorTetheringManagerStatics4; type INetworkOperatorTetheringOperationResult_Interface; type INetworkOperatorTetheringOperationResult is access all INetworkOperatorTetheringOperationResult_Interface'Class; type INetworkOperatorTetheringOperationResult_Ptr is access all INetworkOperatorTetheringOperationResult; @@ -5360,6 +5380,42 @@ package Windows.Networking.NetworkOperators is ------------------------------------------------------------------------ + IID_INetworkOperatorTetheringAccessPointConfiguration2 : aliased constant Windows.IID := (2977993026, 29240, 22944, (146, 139, 116, 171, 70, 253, 100, 182 )); + + type INetworkOperatorTetheringAccessPointConfiguration2_Interface is interface and Windows.IInspectable_Interface; + + function IsBandSupported + ( + This : access INetworkOperatorTetheringAccessPointConfiguration2_Interface + ; band : Windows.Networking.NetworkOperators.TetheringWiFiBand + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function IsBandSupportedAsync + ( + This : access INetworkOperatorTetheringAccessPointConfiguration2_Interface + ; band : Windows.Networking.NetworkOperators.TetheringWiFiBand + ; RetVal : access Windows.Foundation.IAsyncOperation_Boolean -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function get_Band + ( + This : access INetworkOperatorTetheringAccessPointConfiguration2_Interface + ; RetVal : access Windows.Networking.NetworkOperators.TetheringWiFiBand + ) + return Windows.HRESULT is abstract; + + function put_Band + ( + This : access INetworkOperatorTetheringAccessPointConfiguration2_Interface + ; value : Windows.Networking.NetworkOperators.TetheringWiFiBand + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_INetworkOperatorTetheringClient : aliased constant Windows.IID := (1889346892, 22879, 18503, (187, 48, 100, 105, 53, 84, 41, 24 )); type INetworkOperatorTetheringClient_Interface is interface and Windows.IInspectable_Interface; @@ -5522,6 +5578,45 @@ package Windows.Networking.NetworkOperators is ------------------------------------------------------------------------ + IID_INetworkOperatorTetheringManagerStatics4 : aliased constant Windows.IID := (3015309776, 60415, 18084, (168, 71, 214, 99, 216, 176, 151, 126 )); + + type INetworkOperatorTetheringManagerStatics4_Interface is interface and Windows.IInspectable_Interface; + + function IsNoConnectionsTimeoutEnabled + ( + This : access INetworkOperatorTetheringManagerStatics4_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function EnableNoConnectionsTimeout + ( + This : access INetworkOperatorTetheringManagerStatics4_Interface + ) + return Windows.HRESULT is abstract; + + function EnableNoConnectionsTimeoutAsync + ( + This : access INetworkOperatorTetheringManagerStatics4_Interface + ; RetVal : access Windows.Foundation.IAsyncAction + ) + return Windows.HRESULT is abstract; + + function DisableNoConnectionsTimeout + ( + This : access INetworkOperatorTetheringManagerStatics4_Interface + ) + return Windows.HRESULT is abstract; + + function DisableNoConnectionsTimeoutAsync + ( + This : access INetworkOperatorTetheringManagerStatics4_Interface + ; RetVal : access Windows.Foundation.IAsyncAction + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_INetworkOperatorTetheringOperationResult : aliased constant Windows.IID := (3956409249, 442, 18285, (180, 179, 191, 61, 18, 200, 248, 12 )); type INetworkOperatorTetheringOperationResult_Interface is interface and Windows.IInspectable_Interface; @@ -6993,6 +7088,21 @@ package Windows.Networking.NetworkOperators is ) return Windows.Networking.NetworkOperators.INetworkOperatorTetheringManager; + procedure DisableNoConnectionsTimeout + ; + + function DisableNoConnectionsTimeoutAsync + return Windows.Foundation.IAsyncAction; + + procedure EnableNoConnectionsTimeout + ; + + function EnableNoConnectionsTimeoutAsync + return Windows.Foundation.IAsyncAction; + + function IsNoConnectionsTimeoutEnabled + return Windows.Boolean; + function CreateFromNetworkAccountId ( networkAccountId : Windows.String diff --git a/Bindings/Windows.Networking.PushNotifications.adb b/Bindings/Windows.Networking.PushNotifications.adb index af54fd3..08d2636 100644 --- a/Bindings/Windows.Networking.PushNotifications.adb +++ b/Bindings/Windows.Networking.PushNotifications.adb @@ -50,6 +50,19 @@ package body Windows.Networking.PushNotifications is return Hr; end; + function Invoke + ( + This : access EventHandler_IPushNotificationChannelsRevokedEventArgs_Interface + ; sender : Windows.Object + ; args : Windows.Networking.PushNotifications.IPushNotificationChannelsRevokedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(sender, args); + return Hr; + end; + function Invoke ( This : access TypedEventHandler_IPushNotificationChannel_add_PushNotificationReceived_Interface @@ -169,4 +182,42 @@ package body Windows.Networking.PushNotifications is return RetVal; end; + function add_ChannelsRevoked + ( + handler : Windows.Networking.PushNotifications.EventHandler_IPushNotificationChannelsRevokedEventArgs + ) + return Windows.Foundation.EventRegistrationToken is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Networking.PushNotifications.PushNotificationChannelManager"); + m_Factory : IPushNotificationChannelManagerStatics4 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Foundation.EventRegistrationToken; + begin + Hr := RoGetActivationFactory(m_hString, IID_IPushNotificationChannelManagerStatics4'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.add_ChannelsRevoked(handler, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + procedure remove_ChannelsRevoked + ( + token : Windows.Foundation.EventRegistrationToken + ) + is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Networking.PushNotifications.PushNotificationChannelManager"); + m_Factory : IPushNotificationChannelManagerStatics4 := null; + RefCount : Windows.UInt32 := 0; + begin + Hr := RoGetActivationFactory(m_hString, IID_IPushNotificationChannelManagerStatics4'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.remove_ChannelsRevoked(token); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + end; + end; diff --git a/Bindings/Windows.Networking.PushNotifications.ads b/Bindings/Windows.Networking.PushNotifications.ads index 662c6f9..5e244c0 100644 --- a/Bindings/Windows.Networking.PushNotifications.ads +++ b/Bindings/Windows.Networking.PushNotifications.ads @@ -65,6 +65,9 @@ package Windows.Networking.PushNotifications is type AsyncOperationCompletedHandler_IPushNotificationChannel_Interface; type AsyncOperationCompletedHandler_IPushNotificationChannel is access all AsyncOperationCompletedHandler_IPushNotificationChannel_Interface'Class; type AsyncOperationCompletedHandler_IPushNotificationChannel_Ptr is access all AsyncOperationCompletedHandler_IPushNotificationChannel; + type EventHandler_IPushNotificationChannelsRevokedEventArgs_Interface; + type EventHandler_IPushNotificationChannelsRevokedEventArgs is access all EventHandler_IPushNotificationChannelsRevokedEventArgs_Interface'Class; + type EventHandler_IPushNotificationChannelsRevokedEventArgs_Ptr is access all EventHandler_IPushNotificationChannelsRevokedEventArgs; type TypedEventHandler_IPushNotificationChannel_add_PushNotificationReceived_Interface; type TypedEventHandler_IPushNotificationChannel_add_PushNotificationReceived is access all TypedEventHandler_IPushNotificationChannel_add_PushNotificationReceived_Interface'Class; type TypedEventHandler_IPushNotificationChannel_add_PushNotificationReceived_Ptr is access all TypedEventHandler_IPushNotificationChannel_add_PushNotificationReceived; @@ -94,6 +97,12 @@ package Windows.Networking.PushNotifications is type IPushNotificationChannelManagerStatics3_Interface; type IPushNotificationChannelManagerStatics3 is access all IPushNotificationChannelManagerStatics3_Interface'Class; type IPushNotificationChannelManagerStatics3_Ptr is access all IPushNotificationChannelManagerStatics3; + type IPushNotificationChannelManagerStatics4_Interface; + type IPushNotificationChannelManagerStatics4 is access all IPushNotificationChannelManagerStatics4_Interface'Class; + type IPushNotificationChannelManagerStatics4_Ptr is access all IPushNotificationChannelManagerStatics4; + type IPushNotificationChannelsRevokedEventArgs_Interface; + type IPushNotificationChannelsRevokedEventArgs is access all IPushNotificationChannelsRevokedEventArgs_Interface'Class; + type IPushNotificationChannelsRevokedEventArgs_Ptr is access all IPushNotificationChannelsRevokedEventArgs; type IPushNotificationReceivedEventArgs_Interface; type IPushNotificationReceivedEventArgs is access all IPushNotificationReceivedEventArgs_Interface'Class; type IPushNotificationReceivedEventArgs_Ptr is access all IPushNotificationReceivedEventArgs; @@ -103,6 +112,9 @@ package Windows.Networking.PushNotifications is type IRawNotification2_Interface; type IRawNotification2 is access all IRawNotification2_Interface'Class; type IRawNotification2_Ptr is access all IRawNotification2; + type IRawNotification3_Interface; + type IRawNotification3 is access all IRawNotification3_Interface'Class; + type IRawNotification3_Ptr is access all IRawNotification3; ------------------------------------------------------------------------ -- Interfaces @@ -295,6 +307,33 @@ package Windows.Networking.PushNotifications is ------------------------------------------------------------------------ + IID_IPushNotificationChannelManagerStatics4 : aliased constant Windows.IID := (3159625467, 30752, 23131, (156, 1, 180, 117, 127, 119, 64, 37 )); + + type IPushNotificationChannelManagerStatics4_Interface is interface and Windows.IInspectable_Interface; + + function add_ChannelsRevoked + ( + This : access IPushNotificationChannelManagerStatics4_Interface + ; handler : Windows.Networking.PushNotifications.EventHandler_IPushNotificationChannelsRevokedEventArgs + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_ChannelsRevoked + ( + This : access IPushNotificationChannelManagerStatics4_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IPushNotificationChannelsRevokedEventArgs : aliased constant Windows.IID := (551658060, 6708, 23531, (170, 226, 64, 194, 50, 200, 193, 64 )); + + type IPushNotificationChannelsRevokedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + ------------------------------------------------------------------------ + IID_IPushNotificationReceivedEventArgs : aliased constant Windows.IID := (3506855436, 14029, 18508, (185, 53, 10, 153, 183, 83, 207, 0 )); type IPushNotificationReceivedEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -381,6 +420,19 @@ package Windows.Networking.PushNotifications is ) return Windows.HRESULT is abstract; + ------------------------------------------------------------------------ + + IID_IRawNotification3 : aliased constant Windows.IID := (1651736030, 35443, 16972, (171, 68, 86, 53, 244, 10, 150, 229 )); + + type IRawNotification3_Interface is interface and Windows.IInspectable_Interface; + + function get_ContentBytes + ( + This : access IRawNotification3_Interface + ; RetVal : access Windows.Storage.Streams.IBuffer + ) + return Windows.HRESULT is abstract; + ------------------------------------------------------------------------ -- Delegates/Events ------------------------------------------------------------------------ @@ -400,6 +452,19 @@ package Windows.Networking.PushNotifications is ------------------------------------------------------------------------ + IID_EventHandler_IPushNotificationChannelsRevokedEventArgs : aliased constant Windows.IID := (2101545447, 46026, 24542, (155, 55, 190, 50, 58, 219, 55, 15 )); + + type EventHandler_IPushNotificationChannelsRevokedEventArgs_Interface(Callback : access procedure (sender : Windows.Object ; args : Windows.Networking.PushNotifications.IPushNotificationChannelsRevokedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_EventHandler_IPushNotificationChannelsRevokedEventArgs'access) with null record; + function Invoke + ( + This : access EventHandler_IPushNotificationChannelsRevokedEventArgs_Interface + ; sender : Windows.Object + ; args : Windows.Networking.PushNotifications.IPushNotificationChannelsRevokedEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + IID_TypedEventHandler_IPushNotificationChannel_add_PushNotificationReceived : aliased constant Windows.IID := (1442455933, 8131, 22627, (185, 128, 112, 148, 212, 55, 150, 148 )); type TypedEventHandler_IPushNotificationChannel_add_PushNotificationReceived_Interface(Callback : access procedure (sender : Windows.Networking.PushNotifications.IPushNotificationChannel ; args : Windows.Networking.PushNotifications.IPushNotificationReceivedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IPushNotificationChannel_add_PushNotificationReceived'access) with null record; @@ -417,6 +482,7 @@ package Windows.Networking.PushNotifications is subtype PushNotificationChannel is Windows.Networking.PushNotifications.IPushNotificationChannel; subtype PushNotificationChannelManagerForUser is Windows.Networking.PushNotifications.IPushNotificationChannelManagerForUser; + subtype PushNotificationChannelsRevokedEventArgs is Windows.Networking.PushNotifications.IPushNotificationChannelsRevokedEventArgs; subtype PushNotificationReceivedEventArgs is Windows.Networking.PushNotifications.IPushNotificationReceivedEventArgs; subtype RawNotification is Windows.Networking.PushNotifications.IRawNotification; @@ -448,4 +514,16 @@ package Windows.Networking.PushNotifications is function GetDefault return Windows.Networking.PushNotifications.IPushNotificationChannelManagerForUser; + function add_ChannelsRevoked + ( + handler : Windows.Networking.PushNotifications.EventHandler_IPushNotificationChannelsRevokedEventArgs + ) + return Windows.Foundation.EventRegistrationToken; + + procedure remove_ChannelsRevoked + ( + token : Windows.Foundation.EventRegistrationToken + ) + ; + end; diff --git a/Bindings/Windows.Security.Authentication.Web.Core.adb b/Bindings/Windows.Security.Authentication.Web.Core.adb index c5fe8f8..d292c1a 100644 --- a/Bindings/Windows.Security.Authentication.Web.Core.adb +++ b/Bindings/Windows.Security.Authentication.Web.Core.adb @@ -101,6 +101,19 @@ package body Windows.Security.Authentication.Web.Core is return Hr; end; + function Invoke + ( + This : access TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated_Interface + ; sender : Windows.Security.Authentication.Web.Core.IWebAccountMonitor + ; args : Windows.Security.Authentication.Web.Core.IWebAccountEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.Security.Authentication.Web.Core.IWebAccountMonitor(sender), Windows.Security.Authentication.Web.Core.IWebAccountEventArgs(args)); + return Hr; + end; + ------------------------------------------------------------------------ -- Create functions (for activatable classes) ------------------------------------------------------------------------ diff --git a/Bindings/Windows.Security.Authentication.Web.Core.ads b/Bindings/Windows.Security.Authentication.Web.Core.ads index 2bd319e..198c4ea 100644 --- a/Bindings/Windows.Security.Authentication.Web.Core.ads +++ b/Bindings/Windows.Security.Authentication.Web.Core.ads @@ -106,6 +106,9 @@ package Windows.Security.Authentication.Web.Core is type TypedEventHandler_IWebAccountMonitor_add_Updated_Interface; type TypedEventHandler_IWebAccountMonitor_add_Updated is access all TypedEventHandler_IWebAccountMonitor_add_Updated_Interface'Class; type TypedEventHandler_IWebAccountMonitor_add_Updated_Ptr is access all TypedEventHandler_IWebAccountMonitor_add_Updated; + type TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated_Interface; + type TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated is access all TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated_Interface'Class; + type TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated_Ptr is access all TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated; ------------------------------------------------------------------------ -- Forward Declaration - Interfaces @@ -135,6 +138,9 @@ package Windows.Security.Authentication.Web.Core is type IWebAccountMonitor_Interface; type IWebAccountMonitor is access all IWebAccountMonitor_Interface'Class; type IWebAccountMonitor_Ptr is access all IWebAccountMonitor; + type IWebAccountMonitor2_Interface; + type IWebAccountMonitor2 is access all IWebAccountMonitor2_Interface'Class; + type IWebAccountMonitor2_Ptr is access all IWebAccountMonitor2; type IWebAuthenticationCoreManagerStatics_Interface; type IWebAuthenticationCoreManagerStatics is access all IWebAuthenticationCoreManagerStatics_Interface'Class; type IWebAuthenticationCoreManagerStatics_Ptr is access all IWebAuthenticationCoreManagerStatics; @@ -413,6 +419,27 @@ package Windows.Security.Authentication.Web.Core is ------------------------------------------------------------------------ + IID_IWebAccountMonitor2 : aliased constant Windows.IID := (2813182456, 9400, 20225, (154, 229, 36, 84, 94, 113, 35, 58 )); + + type IWebAccountMonitor2_Interface is interface and Windows.IInspectable_Interface; + + function add_AccountPictureUpdated + ( + This : access IWebAccountMonitor2_Interface + ; handler : TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_AccountPictureUpdated + ( + This : access IWebAccountMonitor2_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IWebAuthenticationCoreManagerStatics : aliased constant Windows.IID := (1791655058, 42369, 17529, (156, 16, 117, 46, 255, 68, 253, 52 )); type IWebAuthenticationCoreManagerStatics_Interface is interface and Windows.IInspectable_Interface; @@ -887,6 +914,19 @@ package Windows.Security.Authentication.Web.Core is ) return Windows.HRESULT; + ------------------------------------------------------------------------ + + IID_TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated : aliased constant Windows.IID := (4201664260, 34742, 20843, (149, 150, 205, 124, 192, 146, 22, 155 )); + + type TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated_Interface(Callback : access procedure (sender : Windows.Security.Authentication.Web.Core.IWebAccountMonitor ; args : Windows.Security.Authentication.Web.Core.IWebAccountEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IWebAccountMonitor2_add_AccountPictureUpdated_Interface + ; sender : Windows.Security.Authentication.Web.Core.IWebAccountMonitor + ; args : Windows.Security.Authentication.Web.Core.IWebAccountEventArgs + ) + return Windows.HRESULT; + ------------------------------------------------------------------------ -- Classes ------------------------------------------------------------------------ diff --git a/Bindings/Windows.Storage.Provider.adb b/Bindings/Windows.Storage.Provider.adb index 942e15a..6c63656 100644 --- a/Bindings/Windows.Storage.Provider.adb +++ b/Bindings/Windows.Storage.Provider.adb @@ -79,6 +79,27 @@ package body Windows.Storage.Provider is -- Create functions (for activatable classes) ------------------------------------------------------------------------ + function CreateInstance + ( + fileExtension : Windows.String + ; iconResource : Windows.String + ) + return Windows.Storage.Provider.IStorageProviderFileTypeInfo is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Storage.Provider.StorageProviderFileTypeInfo"); + m_Factory : Windows.Storage.Provider.IStorageProviderFileTypeInfoFactory := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Storage.Provider.IStorageProviderFileTypeInfo := null; + begin + Hr := RoGetActivationFactory(m_hString, IID_IStorageProviderFileTypeInfoFactory'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.CreateInstance(fileExtension, iconResource, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function Create return Windows.Storage.Provider.IStorageProviderGetContentInfoForPathResult is Hr : Windows.HResult := S_OK; m_hString : Windows.String := To_String("Windows.Storage.Provider.StorageProviderGetContentInfoForPathResult"); @@ -308,4 +329,21 @@ package body Windows.Storage.Provider is Hr := WindowsDeleteString(m_hString); end; + function IsSupported + return Windows.Boolean is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Storage.Provider.StorageProviderSyncRootManager"); + m_Factory : IStorageProviderSyncRootManagerStatics2 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Boolean; + begin + Hr := RoGetActivationFactory(m_hString, IID_IStorageProviderSyncRootManagerStatics2'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.IsSupported(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + end; diff --git a/Bindings/Windows.Storage.Provider.ads b/Bindings/Windows.Storage.Provider.ads index d4c21ad..c91d75f 100644 --- a/Bindings/Windows.Storage.Provider.ads +++ b/Bindings/Windows.Storage.Provider.ads @@ -294,6 +294,9 @@ package Windows.Storage.Provider is type IFileUpdateRequestedEventArgs_Interface; type IFileUpdateRequestedEventArgs is access all IFileUpdateRequestedEventArgs_Interface'Class; type IFileUpdateRequestedEventArgs_Ptr is access all IFileUpdateRequestedEventArgs; + type IIterable_IStorageProviderFileTypeInfo_Interface; + type IIterable_IStorageProviderFileTypeInfo is access all IIterable_IStorageProviderFileTypeInfo_Interface'Class; + type IIterable_IStorageProviderFileTypeInfo_Ptr is access all IIterable_IStorageProviderFileTypeInfo; type IIterable_IStorageProviderItemProperty_Interface; type IIterable_IStorageProviderItemProperty is access all IIterable_IStorageProviderItemProperty_Interface'Class; type IIterable_IStorageProviderItemProperty_Ptr is access all IIterable_IStorageProviderItemProperty; @@ -303,6 +306,9 @@ package Windows.Storage.Provider is type IIterable_IStorageProviderSyncRootInfo_Interface; type IIterable_IStorageProviderSyncRootInfo is access all IIterable_IStorageProviderSyncRootInfo_Interface'Class; type IIterable_IStorageProviderSyncRootInfo_Ptr is access all IIterable_IStorageProviderSyncRootInfo; + type IIterator_IStorageProviderFileTypeInfo_Interface; + type IIterator_IStorageProviderFileTypeInfo is access all IIterator_IStorageProviderFileTypeInfo_Interface'Class; + type IIterator_IStorageProviderFileTypeInfo_Ptr is access all IIterator_IStorageProviderFileTypeInfo; type IIterator_IStorageProviderItemProperty_Interface; type IIterator_IStorageProviderItemProperty is access all IIterator_IStorageProviderItemProperty_Interface'Class; type IIterator_IStorageProviderItemProperty_Ptr is access all IIterator_IStorageProviderItemProperty; @@ -312,6 +318,12 @@ package Windows.Storage.Provider is type IIterator_IStorageProviderSyncRootInfo_Interface; type IIterator_IStorageProviderSyncRootInfo is access all IIterator_IStorageProviderSyncRootInfo_Interface'Class; type IIterator_IStorageProviderSyncRootInfo_Ptr is access all IIterator_IStorageProviderSyncRootInfo; + type IStorageProviderFileTypeInfo_Interface; + type IStorageProviderFileTypeInfo is access all IStorageProviderFileTypeInfo_Interface'Class; + type IStorageProviderFileTypeInfo_Ptr is access all IStorageProviderFileTypeInfo; + type IStorageProviderFileTypeInfoFactory_Interface; + type IStorageProviderFileTypeInfoFactory is access all IStorageProviderFileTypeInfoFactory_Interface'Class; + type IStorageProviderFileTypeInfoFactory_Ptr is access all IStorageProviderFileTypeInfoFactory; type IStorageProviderGetContentInfoForPathResult_Interface; type IStorageProviderGetContentInfoForPathResult is access all IStorageProviderGetContentInfoForPathResult_Interface'Class; type IStorageProviderGetContentInfoForPathResult_Ptr is access all IStorageProviderGetContentInfoForPathResult; @@ -339,15 +351,27 @@ package Windows.Storage.Provider is type IStorageProviderSyncRootInfo2_Interface; type IStorageProviderSyncRootInfo2 is access all IStorageProviderSyncRootInfo2_Interface'Class; type IStorageProviderSyncRootInfo2_Ptr is access all IStorageProviderSyncRootInfo2; + type IStorageProviderSyncRootInfo3_Interface; + type IStorageProviderSyncRootInfo3 is access all IStorageProviderSyncRootInfo3_Interface'Class; + type IStorageProviderSyncRootInfo3_Ptr is access all IStorageProviderSyncRootInfo3; type IStorageProviderSyncRootManagerStatics_Interface; type IStorageProviderSyncRootManagerStatics is access all IStorageProviderSyncRootManagerStatics_Interface'Class; type IStorageProviderSyncRootManagerStatics_Ptr is access all IStorageProviderSyncRootManagerStatics; + type IStorageProviderSyncRootManagerStatics2_Interface; + type IStorageProviderSyncRootManagerStatics2 is access all IStorageProviderSyncRootManagerStatics2_Interface'Class; + type IStorageProviderSyncRootManagerStatics2_Ptr is access all IStorageProviderSyncRootManagerStatics2; type IStorageProviderUriSource_Interface; type IStorageProviderUriSource is access all IStorageProviderUriSource_Interface'Class; type IStorageProviderUriSource_Ptr is access all IStorageProviderUriSource; + type IVector_IStorageProviderFileTypeInfo_Interface; + type IVector_IStorageProviderFileTypeInfo is access all IVector_IStorageProviderFileTypeInfo_Interface'Class; + type IVector_IStorageProviderFileTypeInfo_Ptr is access all IVector_IStorageProviderFileTypeInfo; type IVector_IStorageProviderItemPropertyDefinition_Interface; type IVector_IStorageProviderItemPropertyDefinition is access all IVector_IStorageProviderItemPropertyDefinition_Interface'Class; type IVector_IStorageProviderItemPropertyDefinition_Ptr is access all IVector_IStorageProviderItemPropertyDefinition; + type IVectorView_IStorageProviderFileTypeInfo_Interface; + type IVectorView_IStorageProviderFileTypeInfo is access all IVectorView_IStorageProviderFileTypeInfo_Interface'Class; + type IVectorView_IStorageProviderFileTypeInfo_Ptr is access all IVectorView_IStorageProviderFileTypeInfo; type IVectorView_IStorageProviderItemPropertyDefinition_Interface; type IVectorView_IStorageProviderItemPropertyDefinition is access all IVectorView_IStorageProviderItemPropertyDefinition_Interface'Class; type IVectorView_IStorageProviderItemPropertyDefinition_Ptr is access all IVectorView_IStorageProviderItemPropertyDefinition; @@ -582,6 +606,19 @@ package Windows.Storage.Provider is ------------------------------------------------------------------------ + IID_IIterable_IStorageProviderFileTypeInfo : aliased constant Windows.IID := (2987402684, 17253, 22312, (181, 46, 81, 71, 81, 102, 241, 65 )); + + type IIterable_IStorageProviderFileTypeInfo_Interface is interface and Windows.IInspectable_Interface; + + function First + ( + This : access IIterable_IStorageProviderFileTypeInfo_Interface + ; RetVal : access Windows.Storage.Provider.IIterator_IStorageProviderFileTypeInfo + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IIterable_IStorageProviderItemProperty : aliased constant Windows.IID := (1166330729, 60966, 23008, (176, 93, 201, 167, 133, 26, 115, 23 )); type IIterable_IStorageProviderItemProperty_Interface is interface and Windows.IInspectable_Interface; @@ -621,6 +658,41 @@ package Windows.Storage.Provider is ------------------------------------------------------------------------ + IID_IIterator_IStorageProviderFileTypeInfo : aliased constant Windows.IID := (2103121202, 15522, 22832, (163, 200, 124, 72, 143, 106, 194, 251 )); + + type IIterator_IStorageProviderFileTypeInfo_Interface is interface and Windows.IInspectable_Interface; + + function get_Current + ( + This : access IIterator_IStorageProviderFileTypeInfo_Interface + ; RetVal : access Windows.Storage.Provider.IStorageProviderFileTypeInfo + ) + return Windows.HRESULT is abstract; + + function get_HasCurrent + ( + This : access IIterator_IStorageProviderFileTypeInfo_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function MoveNext + ( + This : access IIterator_IStorageProviderFileTypeInfo_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IIterator_IStorageProviderFileTypeInfo_Interface + ; items : Windows.Storage.Provider.IStorageProviderFileTypeInfo_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IIterator_IStorageProviderItemProperty : aliased constant Windows.IID := (208526814, 6819, 21749, (177, 57, 228, 162, 55, 220, 28, 95 )); type IIterator_IStorageProviderItemProperty_Interface is interface and Windows.IInspectable_Interface; @@ -726,6 +798,41 @@ package Windows.Storage.Provider is ------------------------------------------------------------------------ + IID_IStorageProviderFileTypeInfo : aliased constant Windows.IID := (425048513, 388, 23176, (135, 223, 69, 68, 244, 100, 54, 93 )); + + type IStorageProviderFileTypeInfo_Interface is interface and Windows.IInspectable_Interface; + + function get_FileExtension + ( + This : access IStorageProviderFileTypeInfo_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + function get_IconResource + ( + This : access IStorageProviderFileTypeInfo_Interface + ; RetVal : access Windows.String + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IStorageProviderFileTypeInfoFactory : aliased constant Windows.IID := (1067527279, 52454, 23901, (128, 177, 56, 158, 124, 249, 45, 191 )); + + type IStorageProviderFileTypeInfoFactory_Interface is interface and Windows.IInspectable_Interface; + + function CreateInstance + ( + This : access IStorageProviderFileTypeInfoFactory_Interface + ; fileExtension : Windows.String + ; iconResource : Windows.String + ; RetVal : access Windows.Storage.Provider.IStorageProviderFileTypeInfo + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IStorageProviderGetContentInfoForPathResult : aliased constant Windows.IID := (627339549, 43657, 19730, (130, 227, 247, 42, 146, 227, 57, 102 )); type IStorageProviderGetContentInfoForPathResult_Interface is interface and Windows.IInspectable_Interface; @@ -1176,6 +1283,19 @@ package Windows.Storage.Provider is ------------------------------------------------------------------------ + IID_IStorageProviderSyncRootInfo3 : aliased constant Windows.IID := (1350198807, 48886, 22269, (133, 94, 117, 172, 226, 228, 92, 245 )); + + type IStorageProviderSyncRootInfo3_Interface is interface and Windows.IInspectable_Interface; + + function get_FallbackFileTypeInfo + ( + This : access IStorageProviderSyncRootInfo3_Interface + ; RetVal : access Windows.Storage.Provider.IVector_IStorageProviderFileTypeInfo -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IStorageProviderSyncRootManagerStatics : aliased constant Windows.IID := (1050278847, 36835, 19264, (171, 199, 246, 252, 61, 116, 201, 142 )); type IStorageProviderSyncRootManagerStatics_Interface is interface and Windows.IInspectable_Interface; @@ -1219,6 +1339,19 @@ package Windows.Storage.Provider is ------------------------------------------------------------------------ + IID_IStorageProviderSyncRootManagerStatics2 : aliased constant Windows.IID := (4021735406, 4980, 21582, (157, 241, 85, 152, 210, 233, 207, 221 )); + + type IStorageProviderSyncRootManagerStatics2_Interface is interface and Windows.IInspectable_Interface; + + function IsSupported + ( + This : access IStorageProviderSyncRootManagerStatics2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IStorageProviderUriSource : aliased constant Windows.IID := (2996307665, 35808, 18786, (139, 182, 13, 76, 46, 20, 212, 122 )); type IStorageProviderUriSource_Interface is interface and Windows.IInspectable_Interface; @@ -1241,6 +1374,101 @@ package Windows.Storage.Provider is ------------------------------------------------------------------------ + IID_IVector_IStorageProviderFileTypeInfo : aliased constant Windows.IID := (2440225963, 43466, 23748, (147, 17, 54, 63, 159, 9, 125, 165 )); + + type IVector_IStorageProviderFileTypeInfo_Interface is interface and Windows.IInspectable_Interface; + + function GetAt + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ; index : Windows.UInt32 + ; RetVal : access Windows.Storage.Provider.IStorageProviderFileTypeInfo + ) + return Windows.HRESULT is abstract; + + function get_Size + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function GetView + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ; RetVal : access Windows.Storage.Provider.IVectorView_IStorageProviderFileTypeInfo + ) + return Windows.HRESULT is abstract; + + function IndexOf + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ; value : Windows.Storage.Provider.IStorageProviderFileTypeInfo + ; index : access Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function SetAt + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ; index : Windows.UInt32 + ; value : Windows.Storage.Provider.IStorageProviderFileTypeInfo + ) + return Windows.HRESULT is abstract; + + function InsertAt + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ; index : Windows.UInt32 + ; value : Windows.Storage.Provider.IStorageProviderFileTypeInfo + ) + return Windows.HRESULT is abstract; + + function RemoveAt + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ; index : Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function Append + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ; value : Windows.Storage.Provider.IStorageProviderFileTypeInfo + ) + return Windows.HRESULT is abstract; + + function RemoveAtEnd + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ) + return Windows.HRESULT is abstract; + + function Clear + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ; startIndex : Windows.UInt32 + ; items : Windows.Storage.Provider.IStorageProviderFileTypeInfo_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function ReplaceAll + ( + This : access IVector_IStorageProviderFileTypeInfo_Interface + ; items : Windows.Storage.Provider.IStorageProviderFileTypeInfo_Ptr + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IVector_IStorageProviderItemPropertyDefinition : aliased constant Windows.IID := (4164549887, 34783, 21415, (148, 212, 181, 7, 16, 30, 126, 99 )); type IVector_IStorageProviderItemPropertyDefinition_Interface is interface and Windows.IInspectable_Interface; @@ -1336,6 +1564,45 @@ package Windows.Storage.Provider is ------------------------------------------------------------------------ + IID_IVectorView_IStorageProviderFileTypeInfo : aliased constant Windows.IID := (2328187023, 40901, 23220, (153, 39, 157, 122, 37, 193, 208, 210 )); + + type IVectorView_IStorageProviderFileTypeInfo_Interface is interface and Windows.IInspectable_Interface; + + function GetAt + ( + This : access IVectorView_IStorageProviderFileTypeInfo_Interface + ; index : Windows.UInt32 + ; RetVal : access Windows.Storage.Provider.IStorageProviderFileTypeInfo + ) + return Windows.HRESULT is abstract; + + function get_Size + ( + This : access IVectorView_IStorageProviderFileTypeInfo_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function IndexOf + ( + This : access IVectorView_IStorageProviderFileTypeInfo_Interface + ; value : Windows.Storage.Provider.IStorageProviderFileTypeInfo + ; index : access Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IVectorView_IStorageProviderFileTypeInfo_Interface + ; startIndex : Windows.UInt32 + ; items : Windows.Storage.Provider.IStorageProviderFileTypeInfo_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IVectorView_IStorageProviderItemPropertyDefinition : aliased constant Windows.IID := (846546122, 17884, 23683, (176, 84, 10, 145, 229, 250, 10, 41 )); type IVectorView_IStorageProviderItemPropertyDefinition_Interface is interface and Windows.IInspectable_Interface; @@ -1463,6 +1730,14 @@ package Windows.Storage.Provider is subtype FileUpdateRequest is Windows.Storage.Provider.IFileUpdateRequest; subtype FileUpdateRequestDeferral is Windows.Storage.Provider.IFileUpdateRequestDeferral; subtype FileUpdateRequestedEventArgs is Windows.Storage.Provider.IFileUpdateRequestedEventArgs; + subtype StorageProviderFileTypeInfo is Windows.Storage.Provider.IStorageProviderFileTypeInfo; + function CreateInstance + ( + fileExtension : Windows.String + ; iconResource : Windows.String + ) + return Windows.Storage.Provider.IStorageProviderFileTypeInfo; + subtype StorageProviderGetContentInfoForPathResult is Windows.Storage.Provider.IStorageProviderGetContentInfoForPathResult; function Create return Windows.Storage.Provider.IStorageProviderGetContentInfoForPathResult; @@ -1527,4 +1802,7 @@ package Windows.Storage.Provider is ) ; + function IsSupported + return Windows.Boolean; + end; diff --git a/Bindings/Windows.Storage.adb b/Bindings/Windows.Storage.adb index 60d1a69..308f4e7 100644 --- a/Bindings/Windows.Storage.adb +++ b/Bindings/Windows.Storage.adb @@ -129,6 +129,19 @@ package body Windows.Storage is return Hr; end; + function Invoke + ( + This : access AsyncOperationCompletedHandler_KnownFoldersAccessStatus_Interface + ; asyncInfo : Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus + ; asyncStatus : Windows.Foundation.AsyncStatus + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(asyncInfo, asyncStatus); + return Hr; + end; + function Invoke ( This : access StreamedFileDataRequestedHandler_Interface @@ -1047,6 +1060,67 @@ package body Windows.Storage is return RetVal; end; + function GetFolderAsync + ( + folderId : Windows.Storage.KnownFolderId + ) + return Windows.Storage.IAsyncOperation_IStorageFolder is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Storage.KnownFolders"); + m_Factory : IKnownFoldersStatics4 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Storage.IAsyncOperation_IStorageFolder; + begin + Hr := RoGetActivationFactory(m_hString, IID_IKnownFoldersStatics4'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.GetFolderAsync(folderId, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function RequestAccessAsync + ( + folderId : Windows.Storage.KnownFolderId + ) + return Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Storage.KnownFolders"); + m_Factory : IKnownFoldersStatics4 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus; + begin + Hr := RoGetActivationFactory(m_hString, IID_IKnownFoldersStatics4'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.RequestAccessAsync(folderId, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + + function RequestAccessForUserAsync + ( + user : Windows.System.IUser + ; folderId : Windows.Storage.KnownFolderId + ) + return Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Storage.KnownFolders"); + m_Factory : IKnownFoldersStatics4 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus; + begin + Hr := RoGetActivationFactory(m_hString, IID_IKnownFoldersStatics4'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.RequestAccessForUserAsync(user, folderId, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function AppendLinesAsync ( absolutePath : Windows.String @@ -1491,6 +1565,27 @@ package body Windows.Storage is return RetVal; end; + function GetFileFromPathForUserAsync + ( + user : Windows.System.IUser + ; path : Windows.String + ) + return Windows.Storage.IAsyncOperation_IStorageFile is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Storage.StorageFile"); + m_Factory : IStorageFileStatics2 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Storage.IAsyncOperation_IStorageFile; + begin + Hr := RoGetActivationFactory(m_hString, IID_IStorageFileStatics2'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.GetFileFromPathForUserAsync(user, path, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function GetFolderFromPathAsync ( path : Windows.String @@ -1511,6 +1606,27 @@ package body Windows.Storage is return RetVal; end; + function GetFolderFromPathForUserAsync + ( + user : Windows.System.IUser + ; path : Windows.String + ) + return Windows.Storage.IAsyncOperation_IStorageFolder is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.Storage.StorageFolder"); + m_Factory : IStorageFolderStatics2 := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.Storage.IAsyncOperation_IStorageFolder; + begin + Hr := RoGetActivationFactory(m_hString, IID_IStorageFolderStatics2'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.GetFolderFromPathForUserAsync(user, path, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + function GetLibraryAsync ( libraryId : Windows.Storage.KnownLibraryId diff --git a/Bindings/Windows.Storage.ads b/Bindings/Windows.Storage.ads index a395ae4..0b58fc7 100644 --- a/Bindings/Windows.Storage.ads +++ b/Bindings/Windows.Storage.ads @@ -158,6 +158,24 @@ package Windows.Storage is type KnownFolderId_Ptr is access KnownFolderId; + type KnownFoldersAccessStatus is ( + DeniedBySystem, + NotDeclaredByApp, + DeniedByUser, + UserPromptRequired, + Allowed + ); + for KnownFoldersAccessStatus use ( + DeniedBySystem => 0, + NotDeclaredByApp => 1, + DeniedByUser => 2, + UserPromptRequired => 3, + Allowed => 4 + ); + for KnownFoldersAccessStatus'Size use 32; + + type KnownFoldersAccessStatus_Ptr is access KnownFoldersAccessStatus; + type KnownLibraryId is ( Music, Pictures, @@ -295,6 +313,9 @@ package Windows.Storage is type AsyncOperationCompletedHandler_IStorageStreamTransaction_Interface; type AsyncOperationCompletedHandler_IStorageStreamTransaction is access all AsyncOperationCompletedHandler_IStorageStreamTransaction_Interface'Class; type AsyncOperationCompletedHandler_IStorageStreamTransaction_Ptr is access all AsyncOperationCompletedHandler_IStorageStreamTransaction; + type AsyncOperationCompletedHandler_KnownFoldersAccessStatus_Interface; + type AsyncOperationCompletedHandler_KnownFoldersAccessStatus is access all AsyncOperationCompletedHandler_KnownFoldersAccessStatus_Interface'Class; + type AsyncOperationCompletedHandler_KnownFoldersAccessStatus_Ptr is access all AsyncOperationCompletedHandler_KnownFoldersAccessStatus; type StreamedFileDataRequestedHandler_Interface; type StreamedFileDataRequestedHandler is access all StreamedFileDataRequestedHandler_Interface'Class; type StreamedFileDataRequestedHandler_Ptr is access all StreamedFileDataRequestedHandler; @@ -354,6 +375,9 @@ package Windows.Storage is type IAsyncOperation_IStorageStreamTransaction_Interface; type IAsyncOperation_IStorageStreamTransaction is access all IAsyncOperation_IStorageStreamTransaction_Interface'Class; type IAsyncOperation_IStorageStreamTransaction_Ptr is access all IAsyncOperation_IStorageStreamTransaction; + type IAsyncOperation_KnownFoldersAccessStatus_Interface; + type IAsyncOperation_KnownFoldersAccessStatus is access all IAsyncOperation_KnownFoldersAccessStatus_Interface'Class; + type IAsyncOperation_KnownFoldersAccessStatus_Ptr is access all IAsyncOperation_KnownFoldersAccessStatus; type ICachedFileManagerStatics_Interface; type ICachedFileManagerStatics is access all ICachedFileManagerStatics_Interface'Class; type ICachedFileManagerStatics_Ptr is access all ICachedFileManagerStatics; @@ -414,6 +438,9 @@ package Windows.Storage is type IKnownFoldersStatics3_Interface; type IKnownFoldersStatics3 is access all IKnownFoldersStatics3_Interface'Class; type IKnownFoldersStatics3_Ptr is access all IKnownFoldersStatics3; + type IKnownFoldersStatics4_Interface; + type IKnownFoldersStatics4 is access all IKnownFoldersStatics4_Interface'Class; + type IKnownFoldersStatics4_Ptr is access all IKnownFoldersStatics4; type IMap_String_Object_Interface; type IMap_String_Object is access all IMap_String_Object_Interface'Class; type IMap_String_Object_Ptr is access all IMap_String_Object; @@ -453,6 +480,9 @@ package Windows.Storage is type IStorageFileStatics_Interface; type IStorageFileStatics is access all IStorageFileStatics_Interface'Class; type IStorageFileStatics_Ptr is access all IStorageFileStatics; + type IStorageFileStatics2_Interface; + type IStorageFileStatics2 is access all IStorageFileStatics2_Interface'Class; + type IStorageFileStatics2_Ptr is access all IStorageFileStatics2; type IStorageFolder_Interface; type IStorageFolder is access all IStorageFolder_Interface'Class; type IStorageFolder_Ptr is access all IStorageFolder; @@ -468,6 +498,9 @@ package Windows.Storage is type IStorageFolderStatics_Interface; type IStorageFolderStatics is access all IStorageFolderStatics_Interface'Class; type IStorageFolderStatics_Ptr is access all IStorageFolderStatics; + type IStorageFolderStatics2_Interface; + type IStorageFolderStatics2 is access all IStorageFolderStatics2_Interface'Class; + type IStorageFolderStatics2_Ptr is access all IStorageFolderStatics2; type IStorageItem_Interface; type IStorageItem is access all IStorageItem_Interface'Class; type IStorageItem_Ptr is access all IStorageItem; @@ -1051,6 +1084,33 @@ package Windows.Storage is ------------------------------------------------------------------------ + IID_IAsyncOperation_KnownFoldersAccessStatus : aliased constant Windows.IID := (3622868149, 3746, 22100, (133, 185, 56, 238, 93, 233, 15, 250 )); + + type IAsyncOperation_KnownFoldersAccessStatus_Interface is interface and Windows.IInspectable_Interface; + + function put_Completed + ( + This : access IAsyncOperation_KnownFoldersAccessStatus_Interface + ; handler : Windows.Storage.AsyncOperationCompletedHandler_KnownFoldersAccessStatus + ) + return Windows.HRESULT is abstract; + + function get_Completed + ( + This : access IAsyncOperation_KnownFoldersAccessStatus_Interface + ; RetVal : access Windows.Storage.AsyncOperationCompletedHandler_KnownFoldersAccessStatus + ) + return Windows.HRESULT is abstract; + + function GetResults + ( + This : access IAsyncOperation_KnownFoldersAccessStatus_Interface + ; RetVal : access Windows.Storage.KnownFoldersAccessStatus + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ICachedFileManagerStatics : aliased constant Windows.IID := (2415665738, 59266, 18781, (182, 20, 101, 76, 79, 11, 35, 112 )); type ICachedFileManagerStatics_Interface is interface and Windows.IInspectable_Interface; @@ -1650,6 +1710,37 @@ package Windows.Storage is ------------------------------------------------------------------------ + IID_IKnownFoldersStatics4 : aliased constant Windows.IID := (388163263, 40953, 19233, (190, 213, 144, 236, 177, 58, 25, 46 )); + + type IKnownFoldersStatics4_Interface is interface and Windows.IInspectable_Interface; + + function RequestAccessAsync + ( + This : access IKnownFoldersStatics4_Interface + ; folderId : Windows.Storage.KnownFolderId + ; RetVal : access Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function RequestAccessForUserAsync + ( + This : access IKnownFoldersStatics4_Interface + ; user : Windows.System.IUser + ; folderId : Windows.Storage.KnownFolderId + ; RetVal : access Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + function GetFolderAsync + ( + This : access IKnownFoldersStatics4_Interface + ; folderId : Windows.Storage.KnownFolderId + ; RetVal : access Windows.Storage.IAsyncOperation_IStorageFolder -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IMap_String_Object : aliased constant Windows.IID := (453850480, 2167, 24258, (138, 44, 59, 149, 57, 80, 106, 202 )); type IMap_String_Object_Interface is interface and Windows.IInspectable_Interface; @@ -2168,6 +2259,21 @@ package Windows.Storage is ------------------------------------------------------------------------ + IID_IStorageFileStatics2 : aliased constant Windows.IID := (1551280001, 8494, 19193, (143, 4, 116, 12, 174, 16, 137, 116 )); + + type IStorageFileStatics2_Interface is interface and Windows.IInspectable_Interface; + + function GetFileFromPathForUserAsync + ( + This : access IStorageFileStatics2_Interface + ; user : Windows.System.IUser + ; path : Windows.String + ; RetVal : access Windows.Storage.IAsyncOperation_IStorageFile -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IStorageFolder : aliased constant Windows.IID := (1926351736, 46063, 20341, (168, 11, 111, 217, 218, 226, 148, 75 )); type IStorageFolder_Interface is interface and Windows.IInspectable_Interface; @@ -2435,6 +2541,21 @@ package Windows.Storage is ------------------------------------------------------------------------ + IID_IStorageFolderStatics2 : aliased constant Windows.IID := (3026546115, 29138, 18045, (139, 41, 55, 31, 15, 98, 191, 111 )); + + type IStorageFolderStatics2_Interface is interface and Windows.IInspectable_Interface; + + function GetFolderFromPathForUserAsync + ( + This : access IStorageFolderStatics2_Interface + ; user : Windows.System.IUser + ; path : Windows.String + ; RetVal : access Windows.Storage.IAsyncOperation_IStorageFolder -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IStorageItem : aliased constant Windows.IID := (1107798422, 51759, 17143, (189, 232, 139, 16, 69, 122, 127, 48 )); type IStorageItem_Interface is interface and Windows.IInspectable_Interface; @@ -4032,6 +4153,19 @@ package Windows.Storage is ------------------------------------------------------------------------ + IID_AsyncOperationCompletedHandler_KnownFoldersAccessStatus : aliased constant Windows.IID := (2734194630, 20133, 22735, (148, 144, 24, 22, 4, 251, 214, 162 )); + + type AsyncOperationCompletedHandler_KnownFoldersAccessStatus_Interface(Callback : access procedure (asyncInfo : Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus ; asyncStatus : Windows.Foundation.AsyncStatus)) is new Windows.IMulticastDelegate_Interface(IID_AsyncOperationCompletedHandler_KnownFoldersAccessStatus'access) with null record; + function Invoke + ( + This : access AsyncOperationCompletedHandler_KnownFoldersAccessStatus_Interface + ; asyncInfo : Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus + ; asyncStatus : Windows.Foundation.AsyncStatus + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + IID_StreamedFileDataRequestedHandler : aliased constant Windows.IID := (4277577764, 12257, 19719, (163, 91, 183, 124, 80, 181, 244, 204 )); type StreamedFileDataRequestedHandler_Interface(Callback : access procedure (stream : Windows.Storage.Streams.IOutputStream)) is new Windows.IMulticastDelegate_Interface(IID_StreamedFileDataRequestedHandler'access) with null record; @@ -4355,6 +4489,25 @@ package Windows.Storage is ) return Windows.Storage.IAsyncOperation_IStorageFolder; + function GetFolderAsync + ( + folderId : Windows.Storage.KnownFolderId + ) + return Windows.Storage.IAsyncOperation_IStorageFolder; + + function RequestAccessAsync + ( + folderId : Windows.Storage.KnownFolderId + ) + return Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus; + + function RequestAccessForUserAsync + ( + user : Windows.System.IUser + ; folderId : Windows.Storage.KnownFolderId + ) + return Windows.Storage.IAsyncOperation_KnownFoldersAccessStatus; + function AppendLinesAsync ( absolutePath : Windows.String @@ -4505,12 +4658,26 @@ package Windows.Storage is ) return Windows.Storage.IAsyncOperation_IStorageFile; + function GetFileFromPathForUserAsync + ( + user : Windows.System.IUser + ; path : Windows.String + ) + return Windows.Storage.IAsyncOperation_IStorageFile; + function GetFolderFromPathAsync ( path : Windows.String ) return Windows.Storage.IAsyncOperation_IStorageFolder; + function GetFolderFromPathForUserAsync + ( + user : Windows.System.IUser + ; path : Windows.String + ) + return Windows.Storage.IAsyncOperation_IStorageFolder; + function GetLibraryAsync ( libraryId : Windows.Storage.KnownLibraryId diff --git a/Bindings/Windows.System.ads b/Bindings/Windows.System.ads index e37d2a3..d3fb1dc 100644 --- a/Bindings/Windows.System.ads +++ b/Bindings/Windows.System.ads @@ -378,6 +378,18 @@ package Windows.System is type UserWatcherStatus_Ptr is access UserWatcherStatus; + type UserWatcherUpdateKind is ( + Properties, + Picture + ); + for UserWatcherUpdateKind use ( + Properties => 0, + Picture => 1 + ); + for UserWatcherUpdateKind'Size use 32; + + type UserWatcherUpdateKind_Ptr is access UserWatcherUpdateKind; + type VirtualKey is new Windows.Int32; @@ -659,6 +671,9 @@ package Windows.System is type IIterable_IAppUriHandlerHost_Interface; type IIterable_IAppUriHandlerHost is access all IIterable_IAppUriHandlerHost_Interface'Class; type IIterable_IAppUriHandlerHost_Ptr is access all IIterable_IAppUriHandlerHost; + type IIterable_UserWatcherUpdateKind_Interface; + type IIterable_UserWatcherUpdateKind is access all IIterable_UserWatcherUpdateKind_Interface'Class; + type IIterable_UserWatcherUpdateKind_Ptr is access all IIterable_UserWatcherUpdateKind; type IIterator_IAppDiagnosticInfo_Interface; type IIterator_IAppDiagnosticInfo is access all IIterator_IAppDiagnosticInfo_Interface'Class; type IIterator_IAppDiagnosticInfo_Ptr is access all IIterator_IAppDiagnosticInfo; @@ -671,6 +686,9 @@ package Windows.System is type IIterator_IAppUriHandlerHost_Interface; type IIterator_IAppUriHandlerHost is access all IIterator_IAppUriHandlerHost_Interface'Class; type IIterator_IAppUriHandlerHost_Ptr is access all IIterator_IAppUriHandlerHost; + type IIterator_UserWatcherUpdateKind_Interface; + type IIterator_UserWatcherUpdateKind is access all IIterator_UserWatcherUpdateKind_Interface'Class; + type IIterator_UserWatcherUpdateKind_Ptr is access all IIterator_UserWatcherUpdateKind; type IKnownUserPropertiesStatics_Interface; type IKnownUserPropertiesStatics is access all IKnownUserPropertiesStatics_Interface'Class; type IKnownUserPropertiesStatics_Ptr is access all IKnownUserPropertiesStatics; @@ -767,6 +785,9 @@ package Windows.System is type IUserChangedEventArgs_Interface; type IUserChangedEventArgs is access all IUserChangedEventArgs_Interface'Class; type IUserChangedEventArgs_Ptr is access all IUserChangedEventArgs; + type IUserChangedEventArgs2_Interface; + type IUserChangedEventArgs2 is access all IUserChangedEventArgs2_Interface'Class; + type IUserChangedEventArgs2_Ptr is access all IUserChangedEventArgs2; type IUserDeviceAssociationChangedEventArgs_Interface; type IUserDeviceAssociationChangedEventArgs is access all IUserDeviceAssociationChangedEventArgs_Interface'Class; type IUserDeviceAssociationChangedEventArgs_Ptr is access all IUserDeviceAssociationChangedEventArgs; @@ -803,6 +824,9 @@ package Windows.System is type IVectorView_IAppResourceGroupInfo_Interface; type IVectorView_IAppResourceGroupInfo is access all IVectorView_IAppResourceGroupInfo_Interface'Class; type IVectorView_IAppResourceGroupInfo_Ptr is access all IVectorView_IAppResourceGroupInfo; + type IVectorView_UserWatcherUpdateKind_Interface; + type IVectorView_UserWatcherUpdateKind is access all IVectorView_UserWatcherUpdateKind_Interface'Class; + type IVectorView_UserWatcherUpdateKind_Ptr is access all IVectorView_UserWatcherUpdateKind; ------------------------------------------------------------------------ -- Interfaces @@ -2072,6 +2096,19 @@ package Windows.System is ------------------------------------------------------------------------ + IID_IIterable_UserWatcherUpdateKind : aliased constant Windows.IID := (2301897558, 60292, 21735, (152, 193, 186, 238, 68, 139, 220, 237 )); + + type IIterable_UserWatcherUpdateKind_Interface is interface and Windows.IInspectable_Interface; + + function First + ( + This : access IIterable_UserWatcherUpdateKind_Interface + ; RetVal : access Windows.System.IIterator_UserWatcherUpdateKind + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IIterator_IAppDiagnosticInfo : aliased constant Windows.IID := (406789706, 8740, 24548, (176, 100, 104, 134, 156, 83, 227, 97 )); type IIterator_IAppDiagnosticInfo_Interface is interface and Windows.IInspectable_Interface; @@ -2212,6 +2249,41 @@ package Windows.System is ------------------------------------------------------------------------ + IID_IIterator_UserWatcherUpdateKind : aliased constant Windows.IID := (2566987372, 12359, 23498, (185, 50, 225, 209, 235, 138, 147, 127 )); + + type IIterator_UserWatcherUpdateKind_Interface is interface and Windows.IInspectable_Interface; + + function get_Current + ( + This : access IIterator_UserWatcherUpdateKind_Interface + ; RetVal : access Windows.System.UserWatcherUpdateKind + ) + return Windows.HRESULT is abstract; + + function get_HasCurrent + ( + This : access IIterator_UserWatcherUpdateKind_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function MoveNext + ( + This : access IIterator_UserWatcherUpdateKind_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IIterator_UserWatcherUpdateKind_Interface + ; items : Windows.System.UserWatcherUpdateKind_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IKnownUserPropertiesStatics : aliased constant Windows.IID := (2002096410, 28869, 18661, (182, 55, 91, 163, 68, 30, 78, 228 )); type IKnownUserPropertiesStatics_Interface is interface and Windows.IInspectable_Interface; @@ -3345,6 +3417,19 @@ package Windows.System is ------------------------------------------------------------------------ + IID_IUserChangedEventArgs2 : aliased constant Windows.IID := (1798097732, 28417, 22028, (151, 173, 252, 127, 50, 236, 88, 31 )); + + type IUserChangedEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_ChangedPropertyKinds + ( + This : access IUserChangedEventArgs2_Interface + ; RetVal : access Windows.System.IVectorView_UserWatcherUpdateKind -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IUserDeviceAssociationChangedEventArgs : aliased constant Windows.IID := (3172953964, 47965, 19835, (165, 240, 200, 205, 17, 163, 141, 66 )); type IUserDeviceAssociationChangedEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -4030,6 +4115,45 @@ package Windows.System is ) return Windows.HRESULT is abstract; + ------------------------------------------------------------------------ + + IID_IVectorView_UserWatcherUpdateKind : aliased constant Windows.IID := (2461227213, 49610, 21842, (158, 46, 103, 226, 214, 234, 212, 209 )); + + type IVectorView_UserWatcherUpdateKind_Interface is interface and Windows.IInspectable_Interface; + + function GetAt + ( + This : access IVectorView_UserWatcherUpdateKind_Interface + ; index : Windows.UInt32 + ; RetVal : access Windows.System.UserWatcherUpdateKind + ) + return Windows.HRESULT is abstract; + + function get_Size + ( + This : access IVectorView_UserWatcherUpdateKind_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function IndexOf + ( + This : access IVectorView_UserWatcherUpdateKind_Interface + ; value : Windows.System.UserWatcherUpdateKind + ; index : access Windows.UInt32 + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function GetMany + ( + This : access IVectorView_UserWatcherUpdateKind_Interface + ; startIndex : Windows.UInt32 + ; items : Windows.System.UserWatcherUpdateKind_Ptr + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + ------------------------------------------------------------------------ -- Delegates/Events ------------------------------------------------------------------------ diff --git a/Bindings/Windows.UI.Composition.Interactions.ads b/Bindings/Windows.UI.Composition.Interactions.ads index 97740d4..f7b3b34 100644 --- a/Bindings/Windows.UI.Composition.Interactions.ads +++ b/Bindings/Windows.UI.Composition.Interactions.ads @@ -107,6 +107,18 @@ package Windows.UI.Composition.Interactions is type InteractionTrackerClampingOption_Ptr is access InteractionTrackerClampingOption; + type InteractionTrackerPositionUpdateOption is ( + Default, + AllowActiveCustomScaleAnimation + ); + for InteractionTrackerPositionUpdateOption use ( + Default => 0, + AllowActiveCustomScaleAnimation => 1 + ); + for InteractionTrackerPositionUpdateOption'Size use 32; + + type InteractionTrackerPositionUpdateOption_Ptr is access InteractionTrackerPositionUpdateOption; + type VisualInteractionSourceRedirectionMode is ( Off, CapableTouchpadOnly, @@ -154,6 +166,9 @@ package Windows.UI.Composition.Interactions is type IInteractionTracker4_Interface; type IInteractionTracker4 is access all IInteractionTracker4_Interface'Class; type IInteractionTracker4_Ptr is access all IInteractionTracker4; + type IInteractionTracker5_Interface; + type IInteractionTracker5 is access all IInteractionTracker5_Interface'Class; + type IInteractionTracker5_Ptr is access all IInteractionTracker5; type IInteractionTrackerCustomAnimationStateEnteredArgs_Interface; type IInteractionTrackerCustomAnimationStateEnteredArgs is access all IInteractionTrackerCustomAnimationStateEnteredArgs_Interface'Class; type IInteractionTrackerCustomAnimationStateEnteredArgs_Ptr is access all IInteractionTrackerCustomAnimationStateEnteredArgs; @@ -726,6 +741,22 @@ package Windows.UI.Composition.Interactions is ------------------------------------------------------------------------ + IID_IInteractionTracker5 : aliased constant Windows.IID := (3555679650, 41556, 16612, (136, 213, 68, 228, 225, 107, 88, 9 )); + + type IInteractionTracker5_Interface is interface and Windows.IInspectable_Interface; + + function TryUpdatePositionWithOption + ( + This : access IInteractionTracker5_Interface + ; value : Windows.Foundation.Numerics.Vector3 + ; option : Windows.UI.Composition.Interactions.InteractionTrackerClampingOption + ; posUpdateOption : Windows.UI.Composition.Interactions.InteractionTrackerPositionUpdateOption + ; RetVal : access Windows.Int32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IInteractionTrackerCustomAnimationStateEnteredArgs : aliased constant Windows.IID := (2367458545, 55216, 17228, (165, 210, 45, 118, 17, 134, 72, 52 )); type IInteractionTrackerCustomAnimationStateEnteredArgs_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.UI.Input.Inking.ads b/Bindings/Windows.UI.Input.Inking.ads index 16b5869..58aca96 100644 --- a/Bindings/Windows.UI.Input.Inking.ads +++ b/Bindings/Windows.UI.Input.Inking.ads @@ -277,6 +277,9 @@ package Windows.UI.Input.Inking is type IInkModelerAttributes_Interface; type IInkModelerAttributes is access all IInkModelerAttributes_Interface'Class; type IInkModelerAttributes_Ptr is access all IInkModelerAttributes; + type IInkModelerAttributes2_Interface; + type IInkModelerAttributes2 is access all IInkModelerAttributes2_Interface'Class; + type IInkModelerAttributes2_Ptr is access all IInkModelerAttributes2; type IInkPoint_Interface; type IInkPoint is access all IInkPoint_Interface'Class; type IInkPoint_Ptr is access all IInkPoint; @@ -787,6 +790,26 @@ package Windows.UI.Input.Inking is ------------------------------------------------------------------------ + IID_IInkModelerAttributes2 : aliased constant Windows.IID := (2261897370, 20216, 24101, (183, 188, 182, 84, 36, 241, 107, 179 )); + + type IInkModelerAttributes2_Interface is interface and Windows.IInspectable_Interface; + + function get_UseVelocityBasedPressure + ( + This : access IInkModelerAttributes2_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_UseVelocityBasedPressure + ( + This : access IInkModelerAttributes2_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IInkPoint : aliased constant Windows.IID := (2676434731, 34188, 18085, (155, 65, 209, 149, 151, 4, 89, 253 )); type IInkPoint_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.UI.Input.adb b/Bindings/Windows.UI.Input.adb index 3dda50a..ced6c0a 100644 --- a/Bindings/Windows.UI.Input.adb +++ b/Bindings/Windows.UI.Input.adb @@ -29,6 +29,7 @@ with Windows.Devices.Haptics; with Windows.Devices.Input; with Windows.Storage.Streams; +with Windows.System; with Windows.UI.Core; with Ada.Unchecked_Conversion; -------------------------------------------------------------------------------- @@ -389,6 +390,58 @@ package body Windows.UI.Input is return Hr; end; + function Invoke + ( + This : access TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed_Interface + ; sender : Windows.UI.Input.ISystemButtonEventController + ; args : Windows.UI.Input.ISystemFunctionButtonEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.UI.Input.ISystemButtonEventController(sender), Windows.UI.Input.ISystemFunctionButtonEventArgs(args)); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased_Interface + ; sender : Windows.UI.Input.ISystemButtonEventController + ; args : Windows.UI.Input.ISystemFunctionButtonEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.UI.Input.ISystemButtonEventController(sender), Windows.UI.Input.ISystemFunctionButtonEventArgs(args)); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged_Interface + ; sender : Windows.UI.Input.ISystemButtonEventController + ; args : Windows.UI.Input.ISystemFunctionLockChangedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.UI.Input.ISystemButtonEventController(sender), Windows.UI.Input.ISystemFunctionLockChangedEventArgs(args)); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged_Interface + ; sender : Windows.UI.Input.ISystemButtonEventController + ; args : Windows.UI.Input.ISystemFunctionLockIndicatorChangedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.UI.Input.ISystemButtonEventController(sender), Windows.UI.Input.ISystemFunctionLockIndicatorChangedEventArgs(args)); + return Hr; + end; + ------------------------------------------------------------------------ -- Create functions (for activatable classes) ------------------------------------------------------------------------ @@ -759,4 +812,24 @@ package body Windows.UI.Input is return RetVal; end; + function CreateForDispatcherQueue + ( + queue : Windows.System.IDispatcherQueue + ) + return Windows.UI.Input.ISystemButtonEventController is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.UI.Input.SystemButtonEventController"); + m_Factory : ISystemButtonEventControllerStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.UI.Input.ISystemButtonEventController; + begin + Hr := RoGetActivationFactory(m_hString, IID_ISystemButtonEventControllerStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.CreateForDispatcherQueue(queue, RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + end; diff --git a/Bindings/Windows.UI.Input.ads b/Bindings/Windows.UI.Input.ads index ab2bfdd..68f1f35 100644 --- a/Bindings/Windows.UI.Input.ads +++ b/Bindings/Windows.UI.Input.ads @@ -31,6 +31,7 @@ limited with Windows.Devices.Input; with Windows.Foundation; with Windows.Foundation.Collections; limited with Windows.Storage.Streams; +limited with Windows.System; limited with Windows.UI.Core; -------------------------------------------------------------------------------- package Windows.UI.Input is @@ -373,6 +374,18 @@ package Windows.UI.Input is type TypedEventHandler_IRadialControllerMenuItem_add_Invoked_Interface; type TypedEventHandler_IRadialControllerMenuItem_add_Invoked is access all TypedEventHandler_IRadialControllerMenuItem_add_Invoked_Interface'Class; type TypedEventHandler_IRadialControllerMenuItem_add_Invoked_Ptr is access all TypedEventHandler_IRadialControllerMenuItem_add_Invoked; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed_Interface; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed is access all TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed_Interface'Class; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed_Ptr is access all TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased_Interface; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased is access all TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased_Interface'Class; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased_Ptr is access all TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged_Interface; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged is access all TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged_Interface'Class; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged_Ptr is access all TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged_Interface; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged is access all TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged_Interface'Class; + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged_Ptr is access all TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged; ------------------------------------------------------------------------ -- Forward Declaration - Interfaces @@ -390,9 +403,15 @@ package Windows.UI.Input is type ICrossSlidingEventArgs_Interface; type ICrossSlidingEventArgs is access all ICrossSlidingEventArgs_Interface'Class; type ICrossSlidingEventArgs_Ptr is access all ICrossSlidingEventArgs; + type ICrossSlidingEventArgs2_Interface; + type ICrossSlidingEventArgs2 is access all ICrossSlidingEventArgs2_Interface'Class; + type ICrossSlidingEventArgs2_Ptr is access all ICrossSlidingEventArgs2; type IDraggingEventArgs_Interface; type IDraggingEventArgs is access all IDraggingEventArgs_Interface'Class; type IDraggingEventArgs_Ptr is access all IDraggingEventArgs; + type IDraggingEventArgs2_Interface; + type IDraggingEventArgs2 is access all IDraggingEventArgs2_Interface'Class; + type IDraggingEventArgs2_Ptr is access all IDraggingEventArgs2; type IEdgeGesture_Interface; type IEdgeGesture is access all IEdgeGesture_Interface'Class; type IEdgeGesture_Ptr is access all IEdgeGesture; @@ -405,9 +424,15 @@ package Windows.UI.Input is type IGestureRecognizer_Interface; type IGestureRecognizer is access all IGestureRecognizer_Interface'Class; type IGestureRecognizer_Ptr is access all IGestureRecognizer; + type IGestureRecognizer2_Interface; + type IGestureRecognizer2 is access all IGestureRecognizer2_Interface'Class; + type IGestureRecognizer2_Ptr is access all IGestureRecognizer2; type IHoldingEventArgs_Interface; type IHoldingEventArgs is access all IHoldingEventArgs_Interface'Class; type IHoldingEventArgs_Ptr is access all IHoldingEventArgs; + type IHoldingEventArgs2_Interface; + type IHoldingEventArgs2 is access all IHoldingEventArgs2_Interface'Class; + type IHoldingEventArgs2_Ptr is access all IHoldingEventArgs2; type IInputActivationListener_Interface; type IInputActivationListener is access all IInputActivationListener_Interface'Class; type IInputActivationListener_Ptr is access all IInputActivationListener; @@ -441,15 +466,27 @@ package Windows.UI.Input is type IManipulationCompletedEventArgs_Interface; type IManipulationCompletedEventArgs is access all IManipulationCompletedEventArgs_Interface'Class; type IManipulationCompletedEventArgs_Ptr is access all IManipulationCompletedEventArgs; + type IManipulationCompletedEventArgs2_Interface; + type IManipulationCompletedEventArgs2 is access all IManipulationCompletedEventArgs2_Interface'Class; + type IManipulationCompletedEventArgs2_Ptr is access all IManipulationCompletedEventArgs2; type IManipulationInertiaStartingEventArgs_Interface; type IManipulationInertiaStartingEventArgs is access all IManipulationInertiaStartingEventArgs_Interface'Class; type IManipulationInertiaStartingEventArgs_Ptr is access all IManipulationInertiaStartingEventArgs; + type IManipulationInertiaStartingEventArgs2_Interface; + type IManipulationInertiaStartingEventArgs2 is access all IManipulationInertiaStartingEventArgs2_Interface'Class; + type IManipulationInertiaStartingEventArgs2_Ptr is access all IManipulationInertiaStartingEventArgs2; type IManipulationStartedEventArgs_Interface; type IManipulationStartedEventArgs is access all IManipulationStartedEventArgs_Interface'Class; type IManipulationStartedEventArgs_Ptr is access all IManipulationStartedEventArgs; + type IManipulationStartedEventArgs2_Interface; + type IManipulationStartedEventArgs2 is access all IManipulationStartedEventArgs2_Interface'Class; + type IManipulationStartedEventArgs2_Ptr is access all IManipulationStartedEventArgs2; type IManipulationUpdatedEventArgs_Interface; type IManipulationUpdatedEventArgs is access all IManipulationUpdatedEventArgs_Interface'Class; type IManipulationUpdatedEventArgs_Ptr is access all IManipulationUpdatedEventArgs; + type IManipulationUpdatedEventArgs2_Interface; + type IManipulationUpdatedEventArgs2 is access all IManipulationUpdatedEventArgs2_Interface'Class; + type IManipulationUpdatedEventArgs2_Ptr is access all IManipulationUpdatedEventArgs2; type IMouseWheelParameters_Interface; type IMouseWheelParameters is access all IMouseWheelParameters_Interface'Class; type IMouseWheelParameters_Ptr is access all IMouseWheelParameters; @@ -555,9 +592,30 @@ package Windows.UI.Input is type IRightTappedEventArgs_Interface; type IRightTappedEventArgs is access all IRightTappedEventArgs_Interface'Class; type IRightTappedEventArgs_Ptr is access all IRightTappedEventArgs; + type IRightTappedEventArgs2_Interface; + type IRightTappedEventArgs2 is access all IRightTappedEventArgs2_Interface'Class; + type IRightTappedEventArgs2_Ptr is access all IRightTappedEventArgs2; + type ISystemButtonEventController_Interface; + type ISystemButtonEventController is access all ISystemButtonEventController_Interface'Class; + type ISystemButtonEventController_Ptr is access all ISystemButtonEventController; + type ISystemButtonEventControllerStatics_Interface; + type ISystemButtonEventControllerStatics is access all ISystemButtonEventControllerStatics_Interface'Class; + type ISystemButtonEventControllerStatics_Ptr is access all ISystemButtonEventControllerStatics; + type ISystemFunctionButtonEventArgs_Interface; + type ISystemFunctionButtonEventArgs is access all ISystemFunctionButtonEventArgs_Interface'Class; + type ISystemFunctionButtonEventArgs_Ptr is access all ISystemFunctionButtonEventArgs; + type ISystemFunctionLockChangedEventArgs_Interface; + type ISystemFunctionLockChangedEventArgs is access all ISystemFunctionLockChangedEventArgs_Interface'Class; + type ISystemFunctionLockChangedEventArgs_Ptr is access all ISystemFunctionLockChangedEventArgs; + type ISystemFunctionLockIndicatorChangedEventArgs_Interface; + type ISystemFunctionLockIndicatorChangedEventArgs is access all ISystemFunctionLockIndicatorChangedEventArgs_Interface'Class; + type ISystemFunctionLockIndicatorChangedEventArgs_Ptr is access all ISystemFunctionLockIndicatorChangedEventArgs; type ITappedEventArgs_Interface; type ITappedEventArgs is access all ITappedEventArgs_Interface'Class; type ITappedEventArgs_Ptr is access all ITappedEventArgs; + type ITappedEventArgs2_Interface; + type ITappedEventArgs2 is access all ITappedEventArgs2_Interface'Class; + type ITappedEventArgs2_Ptr is access all ITappedEventArgs2; type IVector_IPointerPoint_Interface; type IVector_IPointerPoint is access all IVector_IPointerPoint_Interface'Class; type IVector_IPointerPoint_Ptr is access all IVector_IPointerPoint; @@ -643,6 +701,19 @@ package Windows.UI.Input is ------------------------------------------------------------------------ + IID_ICrossSlidingEventArgs2 : aliased constant Windows.IID := (4009459016, 49264, 23027, (141, 171, 188, 175, 98, 29, 134, 135 )); + + type ICrossSlidingEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_ContactCount + ( + This : access ICrossSlidingEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IDraggingEventArgs : aliased constant Windows.IID := (479220612, 2108, 19411, (181, 89, 23, 156, 221, 235, 51, 236 )); type IDraggingEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -670,6 +741,19 @@ package Windows.UI.Input is ------------------------------------------------------------------------ + IID_IDraggingEventArgs2 : aliased constant Windows.IID := (1911544825, 14378, 21962, (180, 185, 0, 129, 35, 193, 191, 26 )); + + type IDraggingEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_ContactCount + ( + This : access IDraggingEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IEdgeGesture : aliased constant Windows.IID := (1477268114, 10929, 18858, (167, 240, 51, 189, 63, 141, 249, 241 )); type IEdgeGesture_Interface is interface and Windows.IInspectable_Interface; @@ -1043,7 +1127,7 @@ package Windows.UI.Input is function remove_Tapped ( This : access IGestureRecognizer_Interface - ; cookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; @@ -1058,7 +1142,7 @@ package Windows.UI.Input is function remove_RightTapped ( This : access IGestureRecognizer_Interface - ; cookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; @@ -1073,7 +1157,7 @@ package Windows.UI.Input is function remove_Holding ( This : access IGestureRecognizer_Interface - ; cookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; @@ -1088,7 +1172,7 @@ package Windows.UI.Input is function remove_Dragging ( This : access IGestureRecognizer_Interface - ; cookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; @@ -1103,7 +1187,7 @@ package Windows.UI.Input is function remove_ManipulationStarted ( This : access IGestureRecognizer_Interface - ; cookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; @@ -1118,7 +1202,7 @@ package Windows.UI.Input is function remove_ManipulationUpdated ( This : access IGestureRecognizer_Interface - ; cookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; @@ -1133,7 +1217,7 @@ package Windows.UI.Input is function remove_ManipulationInertiaStarting ( This : access IGestureRecognizer_Interface - ; cookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; @@ -1148,7 +1232,7 @@ package Windows.UI.Input is function remove_ManipulationCompleted ( This : access IGestureRecognizer_Interface - ; cookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken ) return Windows.HRESULT is abstract; @@ -1163,7 +1247,125 @@ package Windows.UI.Input is function remove_CrossSliding ( This : access IGestureRecognizer_Interface - ; cookie : Windows.Foundation.EventRegistrationToken + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IGestureRecognizer2 : aliased constant Windows.IID := (3594914175, 28407, 22342, (139, 168, 143, 242, 32, 110, 111, 59 )); + + type IGestureRecognizer2_Interface is interface and Windows.IInspectable_Interface; + + function get_TapMinContactCount + ( + This : access IGestureRecognizer2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function put_TapMinContactCount + ( + This : access IGestureRecognizer2_Interface + ; value : Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function get_TapMaxContactCount + ( + This : access IGestureRecognizer2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function put_TapMaxContactCount + ( + This : access IGestureRecognizer2_Interface + ; value : Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function get_HoldMinContactCount + ( + This : access IGestureRecognizer2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function put_HoldMinContactCount + ( + This : access IGestureRecognizer2_Interface + ; value : Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function get_HoldMaxContactCount + ( + This : access IGestureRecognizer2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function put_HoldMaxContactCount + ( + This : access IGestureRecognizer2_Interface + ; value : Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function get_HoldRadius + ( + This : access IGestureRecognizer2_Interface + ; RetVal : access Windows.Single + ) + return Windows.HRESULT is abstract; + + function put_HoldRadius + ( + This : access IGestureRecognizer2_Interface + ; value : Windows.Single + ) + return Windows.HRESULT is abstract; + + function get_HoldStartDelay + ( + This : access IGestureRecognizer2_Interface + ; RetVal : access Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + function put_HoldStartDelay + ( + This : access IGestureRecognizer2_Interface + ; value : Windows.Foundation.TimeSpan + ) + return Windows.HRESULT is abstract; + + function get_TranslationMinContactCount + ( + This : access IGestureRecognizer2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function put_TranslationMinContactCount + ( + This : access IGestureRecognizer2_Interface + ; value : Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function get_TranslationMaxContactCount + ( + This : access IGestureRecognizer2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function put_TranslationMaxContactCount + ( + This : access IGestureRecognizer2_Interface + ; value : Windows.UInt32 ) return Windows.HRESULT is abstract; @@ -1196,6 +1398,26 @@ package Windows.UI.Input is ------------------------------------------------------------------------ + IID_IHoldingEventArgs2 : aliased constant Windows.IID := (337488362, 19577, 22132, (175, 234, 73, 63, 222, 185, 31, 25 )); + + type IHoldingEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_ContactCount + ( + This : access IHoldingEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function get_CurrentContactCount + ( + This : access IHoldingEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IInputActivationListener : aliased constant Windows.IID := (1567444690, 10439, 23267, (170, 116, 201, 24, 169, 242, 67, 202 )); type IInputActivationListener_Interface is interface and Windows.IInspectable_Interface; @@ -1478,6 +1700,26 @@ package Windows.UI.Input is ------------------------------------------------------------------------ + IID_IManipulationCompletedEventArgs2 : aliased constant Windows.IID := (4039171303, 12457, 23446, (136, 111, 101, 96, 168, 94, 71, 87 )); + + type IManipulationCompletedEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_ContactCount + ( + This : access IManipulationCompletedEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function get_CurrentContactCount + ( + This : access IManipulationCompletedEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IManipulationInertiaStartingEventArgs : aliased constant Windows.IID := (3711412376, 9919, 18042, (156, 229, 204, 243, 251, 17, 55, 30 )); type IManipulationInertiaStartingEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -1519,6 +1761,19 @@ package Windows.UI.Input is ------------------------------------------------------------------------ + IID_IManipulationInertiaStartingEventArgs2 : aliased constant Windows.IID := (3260287416, 63994, 23109, (189, 151, 220, 187, 178, 32, 24, 96 )); + + type IManipulationInertiaStartingEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_ContactCount + ( + This : access IManipulationInertiaStartingEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IManipulationStartedEventArgs : aliased constant Windows.IID := (3723265854, 53198, 18738, (140, 29, 60, 61, 1, 26, 52, 192 )); type IManipulationStartedEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -1546,6 +1801,19 @@ package Windows.UI.Input is ------------------------------------------------------------------------ + IID_IManipulationStartedEventArgs2 : aliased constant Windows.IID := (765713230, 58755, 20565, (175, 170, 22, 253, 152, 101, 49, 166 )); + + type IManipulationStartedEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_ContactCount + ( + This : access IManipulationStartedEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IManipulationUpdatedEventArgs : aliased constant Windows.IID := (3409267941, 43960, 20383, (179, 206, 129, 129, 170, 97, 173, 130 )); type IManipulationUpdatedEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -1587,6 +1855,26 @@ package Windows.UI.Input is ------------------------------------------------------------------------ + IID_IManipulationUpdatedEventArgs2 : aliased constant Windows.IID := (4091525482, 13062, 22787, (161, 197, 255, 151, 87, 168, 104, 158 )); + + type IManipulationUpdatedEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_ContactCount + ( + This : access IManipulationUpdatedEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function get_CurrentContactCount + ( + This : access IManipulationUpdatedEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IMouseWheelParameters : aliased constant Windows.IID := (3939551812, 40429, 16439, (129, 73, 94, 76, 194, 86, 68, 104 )); type IMouseWheelParameters_Interface is interface and Windows.IInspectable_Interface; @@ -2770,6 +3058,194 @@ package Windows.UI.Input is ------------------------------------------------------------------------ + IID_IRightTappedEventArgs2 : aliased constant Windows.IID := (1640478651, 40791, 22615, (163, 60, 197, 140, 61, 250, 149, 158 )); + + type IRightTappedEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_ContactCount + ( + This : access IRightTappedEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_ISystemButtonEventController : aliased constant Windows.IID := (1505268649, 29628, 21173, (186, 65, 130, 81, 27, 44, 180, 108 )); + + type ISystemButtonEventController_Interface is interface and Windows.IInspectable_Interface; + + function add_SystemFunctionButtonPressed + ( + This : access ISystemButtonEventController_Interface + ; handler : TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_SystemFunctionButtonPressed + ( + This : access ISystemButtonEventController_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_SystemFunctionButtonReleased + ( + This : access ISystemButtonEventController_Interface + ; handler : TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_SystemFunctionButtonReleased + ( + This : access ISystemButtonEventController_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_SystemFunctionLockChanged + ( + This : access ISystemButtonEventController_Interface + ; handler : TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_SystemFunctionLockChanged + ( + This : access ISystemButtonEventController_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_SystemFunctionLockIndicatorChanged + ( + This : access ISystemButtonEventController_Interface + ; handler : TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_SystemFunctionLockIndicatorChanged + ( + This : access ISystemButtonEventController_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_ISystemButtonEventControllerStatics : aliased constant Windows.IID := (1664069755, 8381, 24085, (175, 74, 0, 219, 242, 6, 79, 250 )); + + type ISystemButtonEventControllerStatics_Interface is interface and Windows.IInspectable_Interface; + + function CreateForDispatcherQueue + ( + This : access ISystemButtonEventControllerStatics_Interface + ; queue : Windows.System.IDispatcherQueue + ; RetVal : access Windows.UI.Input.ISystemButtonEventController + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_ISystemFunctionButtonEventArgs : aliased constant Windows.IID := (1211337071, 32977, 24022, (146, 167, 98, 165, 8, 255, 239, 90 )); + + type ISystemFunctionButtonEventArgs_Interface is interface and Windows.IInspectable_Interface; + + function get_Timestamp + ( + This : access ISystemFunctionButtonEventArgs_Interface + ; RetVal : access Windows.UInt64 + ) + return Windows.HRESULT is abstract; + + function get_Handled + ( + This : access ISystemFunctionButtonEventArgs_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_Handled + ( + This : access ISystemFunctionButtonEventArgs_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_ISystemFunctionLockChangedEventArgs : aliased constant Windows.IID := (3439592968, 64761, 22620, (190, 171, 241, 210, 234, 243, 100, 171 )); + + type ISystemFunctionLockChangedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + function get_Timestamp + ( + This : access ISystemFunctionLockChangedEventArgs_Interface + ; RetVal : access Windows.UInt64 + ) + return Windows.HRESULT is abstract; + + function get_IsLocked + ( + This : access ISystemFunctionLockChangedEventArgs_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_Handled + ( + This : access ISystemFunctionLockChangedEventArgs_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_Handled + ( + This : access ISystemFunctionLockChangedEventArgs_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_ISystemFunctionLockIndicatorChangedEventArgs : aliased constant Windows.IID := (2987571534, 31343, 22702, (179, 4, 186, 230, 29, 3, 113, 185 )); + + type ISystemFunctionLockIndicatorChangedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + function get_Timestamp + ( + This : access ISystemFunctionLockIndicatorChangedEventArgs_Interface + ; RetVal : access Windows.UInt64 + ) + return Windows.HRESULT is abstract; + + function get_IsIndicatorOn + ( + This : access ISystemFunctionLockIndicatorChangedEventArgs_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function get_Handled + ( + This : access ISystemFunctionLockIndicatorChangedEventArgs_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function put_Handled + ( + This : access ISystemFunctionLockIndicatorChangedEventArgs_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ITappedEventArgs : aliased constant Windows.IID := (3483444964, 9530, 19516, (149, 59, 57, 92, 55, 174, 211, 9 )); type ITappedEventArgs_Interface is interface and Windows.IInspectable_Interface; @@ -2797,6 +3273,19 @@ package Windows.UI.Input is ------------------------------------------------------------------------ + IID_ITappedEventArgs2 : aliased constant Windows.IID := (692291826, 6014, 20949, (190, 86, 238, 8, 102, 250, 150, 140 )); + + type ITappedEventArgs2_Interface is interface and Windows.IInspectable_Interface; + + function get_ContactCount + ( + This : access ITappedEventArgs2_Interface + ; RetVal : access Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IVector_IPointerPoint : aliased constant Windows.IID := (3752220111, 64999, 20552, (180, 191, 201, 9, 35, 27, 126, 219 )); type IVector_IPointerPoint_Interface is interface and Windows.IInspectable_Interface; @@ -3418,6 +3907,58 @@ package Windows.UI.Input is ) return Windows.HRESULT; + ------------------------------------------------------------------------ + + IID_TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed : aliased constant Windows.IID := (2979822378, 43271, 21143, (130, 121, 173, 186, 17, 64, 33, 141 )); + + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed_Interface(Callback : access procedure (sender : Windows.UI.Input.ISystemButtonEventController ; args : Windows.UI.Input.ISystemFunctionButtonEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed'access) with null record; + function Invoke + ( + This : access TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonPressed_Interface + ; sender : Windows.UI.Input.ISystemButtonEventController + ; args : Windows.UI.Input.ISystemFunctionButtonEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased : aliased constant Windows.IID := (2979822378, 43271, 21143, (130, 121, 173, 186, 17, 64, 33, 141 )); + + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased_Interface(Callback : access procedure (sender : Windows.UI.Input.ISystemButtonEventController ; args : Windows.UI.Input.ISystemFunctionButtonEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased'access) with null record; + function Invoke + ( + This : access TypedEventHandler_ISystemButtonEventController_add_SystemFunctionButtonReleased_Interface + ; sender : Windows.UI.Input.ISystemButtonEventController + ; args : Windows.UI.Input.ISystemFunctionButtonEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged : aliased constant Windows.IID := (1388400400, 65382, 21336, (187, 254, 2, 45, 242, 14, 121, 234 )); + + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged_Interface(Callback : access procedure (sender : Windows.UI.Input.ISystemButtonEventController ; args : Windows.UI.Input.ISystemFunctionLockChangedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged'access) with null record; + function Invoke + ( + This : access TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockChanged_Interface + ; sender : Windows.UI.Input.ISystemButtonEventController + ; args : Windows.UI.Input.ISystemFunctionLockChangedEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged : aliased constant Windows.IID := (3766772531, 1064, 21568, (147, 215, 24, 41, 211, 202, 103, 79 )); + + type TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged_Interface(Callback : access procedure (sender : Windows.UI.Input.ISystemButtonEventController ; args : Windows.UI.Input.ISystemFunctionLockIndicatorChangedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged'access) with null record; + function Invoke + ( + This : access TypedEventHandler_ISystemButtonEventController_add_SystemFunctionLockIndicatorChanged_Interface + ; sender : Windows.UI.Input.ISystemButtonEventController + ; args : Windows.UI.Input.ISystemFunctionLockIndicatorChangedEventArgs + ) + return Windows.HRESULT; + ------------------------------------------------------------------------ -- Classes ------------------------------------------------------------------------ @@ -3457,6 +3998,10 @@ package Windows.UI.Input is subtype RadialControllerScreenContactEndedEventArgs is Windows.UI.Input.IRadialControllerScreenContactEndedEventArgs; subtype RadialControllerScreenContactStartedEventArgs is Windows.UI.Input.IRadialControllerScreenContactStartedEventArgs; subtype RightTappedEventArgs is Windows.UI.Input.IRightTappedEventArgs; + subtype SystemButtonEventController is Windows.UI.Input.ISystemButtonEventController; + subtype SystemFunctionButtonEventArgs is Windows.UI.Input.ISystemFunctionButtonEventArgs; + subtype SystemFunctionLockChangedEventArgs is Windows.UI.Input.ISystemFunctionLockChangedEventArgs; + subtype SystemFunctionLockIndicatorChangedEventArgs is Windows.UI.Input.ISystemFunctionLockIndicatorChangedEventArgs; subtype TappedEventArgs is Windows.UI.Input.ITappedEventArgs; ------------------------------------------------------------------------ @@ -3556,4 +4101,10 @@ package Windows.UI.Input is ) return Windows.UI.Input.IRadialControllerMenuItem; + function CreateForDispatcherQueue + ( + queue : Windows.System.IDispatcherQueue + ) + return Windows.UI.Input.ISystemButtonEventController; + end; diff --git a/Bindings/Windows.UI.Text.ads b/Bindings/Windows.UI.Text.ads index 7a9e85f..2c43c93 100644 --- a/Bindings/Windows.UI.Text.ads +++ b/Bindings/Windows.UI.Text.ads @@ -385,6 +385,18 @@ package Windows.UI.Text is type RangeGravity_Ptr is access RangeGravity; + type RichEditMathMode is ( + NoMath, + MathOnly + ); + for RichEditMathMode use ( + NoMath => 0, + MathOnly => 1 + ); + for RichEditMathMode'Size use 32; + + type RichEditMathMode_Ptr is access RichEditMathMode; + type SelectionOptions is ( StartActive, AtEndOfLine, @@ -838,6 +850,9 @@ package Windows.UI.Text is type ITextDocument3_Interface; type ITextDocument3 is access all ITextDocument3_Interface'Class; type ITextDocument3_Ptr is access all ITextDocument3; + type ITextDocument4_Interface; + type ITextDocument4 is access all ITextDocument4_Interface'Class; + type ITextDocument4_Ptr is access all ITextDocument4; type ITextParagraphFormat_Interface; type ITextParagraphFormat is access all ITextParagraphFormat_Interface'Class; type ITextParagraphFormat_Ptr is access all ITextParagraphFormat; @@ -1716,6 +1731,33 @@ package Windows.UI.Text is ------------------------------------------------------------------------ + IID_ITextDocument4 : aliased constant Windows.IID := (1637622002, 52027, 17697, (152, 31, 40, 101, 177, 185, 63, 4 )); + + type ITextDocument4_Interface is interface and Windows.IInspectable_Interface; + + function SetMath + ( + This : access ITextDocument4_Interface + ; value : Windows.String + ) + return Windows.HRESULT is abstract; + + function GetMath + ( + This : access ITextDocument4_Interface + ; value : access Windows.String + ) + return Windows.HRESULT is abstract; + + function SetMathMode + ( + This : access ITextDocument4_Interface + ; mode : Windows.UI.Text.RichEditMathMode + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ITextParagraphFormat : aliased constant Windows.IID := (754503590, 18038, 18826, (147, 245, 187, 219, 252, 11, 216, 131 )); type ITextParagraphFormat_Interface is interface and Windows.IInspectable_Interface; diff --git a/Bindings/Windows.UI.ViewManagement.Core.adb b/Bindings/Windows.UI.ViewManagement.Core.adb index 5efc2f8..3b9ac58 100644 --- a/Bindings/Windows.UI.ViewManagement.Core.adb +++ b/Bindings/Windows.UI.ViewManagement.Core.adb @@ -35,6 +35,19 @@ package body Windows.UI.ViewManagement.Core is -- Delegates/Events ------------------------------------------------------------------------ + function Invoke + ( + This : access AsyncOperationCompletedHandler_IUISettingsController_Interface + ; asyncInfo : Windows.UI.ViewManagement.Core.IAsyncOperation_IUISettingsController + ; asyncStatus : Windows.Foundation.AsyncStatus + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(asyncInfo, asyncStatus); + return Hr; + end; + function Invoke ( This : access TypedEventHandler_ICoreInputView_add_OcclusionsChanged_Interface @@ -74,6 +87,32 @@ package body Windows.UI.ViewManagement.Core is return Hr; end; + function Invoke + ( + This : access TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding_Interface + ; sender : Windows.UI.ViewManagement.Core.ICoreInputView + ; args : Windows.UI.ViewManagement.Core.ICoreInputViewHidingEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.UI.ViewManagement.Core.ICoreInputView(sender), Windows.UI.ViewManagement.Core.ICoreInputViewHidingEventArgs(args)); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing_Interface + ; sender : Windows.UI.ViewManagement.Core.ICoreInputView + ; args : Windows.UI.ViewManagement.Core.ICoreInputViewShowingEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.UI.ViewManagement.Core.ICoreInputView(sender), Windows.UI.ViewManagement.Core.ICoreInputViewShowingEventArgs(args)); + return Hr; + end; + ------------------------------------------------------------------------ -- Create functions (for activatable classes) ------------------------------------------------------------------------ @@ -123,4 +162,21 @@ package body Windows.UI.ViewManagement.Core is return RetVal; end; + function RequestDefaultAsync + return Windows.UI.ViewManagement.Core.IAsyncOperation_IUISettingsController is + Hr : Windows.HRESULT := S_OK; + m_hString : Windows.String := To_String("Windows.UI.ViewManagement.Core.UISettingsController"); + m_Factory : IUISettingsControllerStatics := null; + RefCount : Windows.UInt32 := 0; + RetVal : aliased Windows.UI.ViewManagement.Core.IAsyncOperation_IUISettingsController; + begin + Hr := RoGetActivationFactory(m_hString, IID_IUISettingsControllerStatics'Access , m_Factory'Address); + if Hr = 0 then + Hr := m_Factory.RequestDefaultAsync(RetVal'Access); + RefCount := m_Factory.Release; + end if; + Hr := WindowsDeleteString(m_hString); + return RetVal; + end; + end; diff --git a/Bindings/Windows.UI.ViewManagement.Core.ads b/Bindings/Windows.UI.ViewManagement.Core.ads index 8d358bb..b08e67e 100644 --- a/Bindings/Windows.UI.ViewManagement.Core.ads +++ b/Bindings/Windows.UI.ViewManagement.Core.ads @@ -40,13 +40,15 @@ package Windows.UI.ViewManagement.Core is Default, Keyboard, Handwriting, - Emoji + Emoji, + Symbols ); for CoreInputViewKind use ( Default => 0, Keyboard => 1, Handwriting => 2, - Emoji => 3 + Emoji => 3, + Symbols => 4 ); for CoreInputViewKind'Size use 32; @@ -86,6 +88,9 @@ package Windows.UI.ViewManagement.Core is -- Forward Declaration - Delegates/Events ------------------------------------------------------------------------ + type AsyncOperationCompletedHandler_IUISettingsController_Interface; + type AsyncOperationCompletedHandler_IUISettingsController is access all AsyncOperationCompletedHandler_IUISettingsController_Interface'Class; + type AsyncOperationCompletedHandler_IUISettingsController_Ptr is access all AsyncOperationCompletedHandler_IUISettingsController; type TypedEventHandler_ICoreInputView_add_OcclusionsChanged_Interface; type TypedEventHandler_ICoreInputView_add_OcclusionsChanged is access all TypedEventHandler_ICoreInputView_add_OcclusionsChanged_Interface'Class; type TypedEventHandler_ICoreInputView_add_OcclusionsChanged_Ptr is access all TypedEventHandler_ICoreInputView_add_OcclusionsChanged; @@ -95,11 +100,20 @@ package Windows.UI.ViewManagement.Core is type TypedEventHandler_ICoreInputView2_add_XYFocusTransferringFromPrimaryView_Interface; type TypedEventHandler_ICoreInputView2_add_XYFocusTransferringFromPrimaryView is access all TypedEventHandler_ICoreInputView2_add_XYFocusTransferringFromPrimaryView_Interface'Class; type TypedEventHandler_ICoreInputView2_add_XYFocusTransferringFromPrimaryView_Ptr is access all TypedEventHandler_ICoreInputView2_add_XYFocusTransferringFromPrimaryView; + type TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding_Interface; + type TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding is access all TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding_Interface'Class; + type TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding_Ptr is access all TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding; + type TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing_Interface; + type TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing is access all TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing_Interface'Class; + type TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing_Ptr is access all TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing; ------------------------------------------------------------------------ -- Forward Declaration - Interfaces ------------------------------------------------------------------------ + type IAsyncOperation_IUISettingsController_Interface; + type IAsyncOperation_IUISettingsController is access all IAsyncOperation_IUISettingsController_Interface'Class; + type IAsyncOperation_IUISettingsController_Ptr is access all IAsyncOperation_IUISettingsController; type ICoreInputView_Interface; type ICoreInputView is access all ICoreInputView_Interface'Class; type ICoreInputView_Ptr is access all ICoreInputView; @@ -109,12 +123,21 @@ package Windows.UI.ViewManagement.Core is type ICoreInputView3_Interface; type ICoreInputView3 is access all ICoreInputView3_Interface'Class; type ICoreInputView3_Ptr is access all ICoreInputView3; + type ICoreInputView4_Interface; + type ICoreInputView4 is access all ICoreInputView4_Interface'Class; + type ICoreInputView4_Ptr is access all ICoreInputView4; + type ICoreInputViewHidingEventArgs_Interface; + type ICoreInputViewHidingEventArgs is access all ICoreInputViewHidingEventArgs_Interface'Class; + type ICoreInputViewHidingEventArgs_Ptr is access all ICoreInputViewHidingEventArgs; type ICoreInputViewOcclusion_Interface; type ICoreInputViewOcclusion is access all ICoreInputViewOcclusion_Interface'Class; type ICoreInputViewOcclusion_Ptr is access all ICoreInputViewOcclusion; type ICoreInputViewOcclusionsChangedEventArgs_Interface; type ICoreInputViewOcclusionsChangedEventArgs is access all ICoreInputViewOcclusionsChangedEventArgs_Interface'Class; type ICoreInputViewOcclusionsChangedEventArgs_Ptr is access all ICoreInputViewOcclusionsChangedEventArgs; + type ICoreInputViewShowingEventArgs_Interface; + type ICoreInputViewShowingEventArgs is access all ICoreInputViewShowingEventArgs_Interface'Class; + type ICoreInputViewShowingEventArgs_Ptr is access all ICoreInputViewShowingEventArgs; type ICoreInputViewStatics_Interface; type ICoreInputViewStatics is access all ICoreInputViewStatics_Interface'Class; type ICoreInputViewStatics_Ptr is access all ICoreInputViewStatics; @@ -130,6 +153,12 @@ package Windows.UI.ViewManagement.Core is type IIterator_ICoreInputViewOcclusion_Interface; type IIterator_ICoreInputViewOcclusion is access all IIterator_ICoreInputViewOcclusion_Interface'Class; type IIterator_ICoreInputViewOcclusion_Ptr is access all IIterator_ICoreInputViewOcclusion; + type IUISettingsController_Interface; + type IUISettingsController is access all IUISettingsController_Interface'Class; + type IUISettingsController_Ptr is access all IUISettingsController; + type IUISettingsControllerStatics_Interface; + type IUISettingsControllerStatics is access all IUISettingsControllerStatics_Interface'Class; + type IUISettingsControllerStatics_Ptr is access all IUISettingsControllerStatics; type IVectorView_ICoreInputViewOcclusion_Interface; type IVectorView_ICoreInputViewOcclusion is access all IVectorView_ICoreInputViewOcclusion_Interface'Class; type IVectorView_ICoreInputViewOcclusion_Ptr is access all IVectorView_ICoreInputViewOcclusion; @@ -140,6 +169,33 @@ package Windows.UI.ViewManagement.Core is ------------------------------------------------------------------------ + IID_IAsyncOperation_IUISettingsController : aliased constant Windows.IID := (3157349317, 22736, 23307, (169, 165, 27, 124, 194, 250, 239, 95 )); + + type IAsyncOperation_IUISettingsController_Interface is interface and Windows.IInspectable_Interface; + + function put_Completed + ( + This : access IAsyncOperation_IUISettingsController_Interface + ; handler : Windows.UI.ViewManagement.Core.AsyncOperationCompletedHandler_IUISettingsController + ) + return Windows.HRESULT is abstract; + + function get_Completed + ( + This : access IAsyncOperation_IUISettingsController_Interface + ; RetVal : access Windows.UI.ViewManagement.Core.AsyncOperationCompletedHandler_IUISettingsController + ) + return Windows.HRESULT is abstract; + + function GetResults + ( + This : access IAsyncOperation_IUISettingsController_Interface + ; RetVal : access Windows.UI.ViewManagement.Core.IUISettingsController + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ICoreInputView : aliased constant Windows.IID := (3346058618, 28673, 19506, (191, 148, 37, 193, 245, 84, 203, 241 )); type ICoreInputView_Interface is interface and Windows.IInspectable_Interface; @@ -255,6 +311,55 @@ package Windows.UI.ViewManagement.Core is ------------------------------------------------------------------------ + IID_ICoreInputView4 : aliased constant Windows.IID := (2646998, 55791, 22507, (140, 239, 119, 246, 206, 27, 126, 231 )); + + type ICoreInputView4_Interface is interface and Windows.IInspectable_Interface; + + function add_PrimaryViewShowing + ( + This : access ICoreInputView4_Interface + ; handler : TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_PrimaryViewShowing + ( + This : access ICoreInputView4_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_PrimaryViewHiding + ( + This : access ICoreInputView4_Interface + ; handler : TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_PrimaryViewHiding + ( + This : access ICoreInputView4_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_ICoreInputViewHidingEventArgs : aliased constant Windows.IID := (3940173757, 47813, 21302, (132, 141, 65, 8, 53, 132, 218, 173 )); + + type ICoreInputViewHidingEventArgs_Interface is interface and Windows.IInspectable_Interface; + + function TryCancel + ( + This : access ICoreInputViewHidingEventArgs_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ICoreInputViewOcclusion : aliased constant Windows.IID := (3426143750, 14437, 16759, (181, 245, 139, 101, 224, 185, 206, 132 )); type ICoreInputViewOcclusion_Interface is interface and Windows.IInspectable_Interface; @@ -302,6 +407,19 @@ package Windows.UI.ViewManagement.Core is ------------------------------------------------------------------------ + IID_ICoreInputViewShowingEventArgs : aliased constant Windows.IID := (3394381339, 64414, 23983, (169, 140, 38, 43, 139, 118, 175, 80 )); + + type ICoreInputViewShowingEventArgs_Interface is interface and Windows.IInspectable_Interface; + + function TryCancel + ( + This : access ICoreInputViewShowingEventArgs_Interface + ; RetVal : access Windows.Boolean + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_ICoreInputViewStatics : aliased constant Windows.IID := (2107348941, 60862, 18895, (165, 79, 51, 125, 224, 82, 144, 127 )); type ICoreInputViewStatics_Interface is interface and Windows.IInspectable_Interface; @@ -425,6 +543,60 @@ package Windows.UI.ViewManagement.Core is ------------------------------------------------------------------------ + IID_IUISettingsController : aliased constant Windows.IID := (2024086212, 5568, 23067, (167, 91, 172, 191, 156, 184, 187, 158 )); + + type IUISettingsController_Interface is interface and Windows.IInspectable_Interface; + + function SetAdvancedEffectsEnabled + ( + This : access IUISettingsController_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function SetAnimationsEnabled + ( + This : access IUISettingsController_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function SetAutoHideScrollBars + ( + This : access IUISettingsController_Interface + ; value : Windows.Boolean + ) + return Windows.HRESULT is abstract; + + function SetMessageDuration + ( + This : access IUISettingsController_Interface + ; value : Windows.UInt32 + ) + return Windows.HRESULT is abstract; + + function SetTextScaleFactor + ( + This : access IUISettingsController_Interface + ; value : Windows.Double + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IUISettingsControllerStatics : aliased constant Windows.IID := (3946604748, 49696, 22412, (129, 25, 125, 179, 36, 237, 38, 166 )); + + type IUISettingsControllerStatics_Interface is interface and Windows.IInspectable_Interface; + + function RequestDefaultAsync + ( + This : access IUISettingsControllerStatics_Interface + ; RetVal : access Windows.UI.ViewManagement.Core.IAsyncOperation_IUISettingsController -- Generic Parameter Type + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + IID_IVectorView_ICoreInputViewOcclusion : aliased constant Windows.IID := (3767940472, 41542, 22144, (134, 209, 39, 81, 148, 35, 226, 18 )); type IVectorView_ICoreInputViewOcclusion_Interface is interface and Windows.IInspectable_Interface; @@ -468,6 +640,19 @@ package Windows.UI.ViewManagement.Core is ------------------------------------------------------------------------ + IID_AsyncOperationCompletedHandler_IUISettingsController : aliased constant Windows.IID := (2296227179, 57281, 20837, (172, 19, 252, 152, 104, 187, 74, 183 )); + + type AsyncOperationCompletedHandler_IUISettingsController_Interface(Callback : access procedure (asyncInfo : Windows.UI.ViewManagement.Core.IAsyncOperation_IUISettingsController ; asyncStatus : Windows.Foundation.AsyncStatus)) is new Windows.IMulticastDelegate_Interface(IID_AsyncOperationCompletedHandler_IUISettingsController'access) with null record; + function Invoke + ( + This : access AsyncOperationCompletedHandler_IUISettingsController_Interface + ; asyncInfo : Windows.UI.ViewManagement.Core.IAsyncOperation_IUISettingsController + ; asyncStatus : Windows.Foundation.AsyncStatus + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + IID_TypedEventHandler_ICoreInputView_add_OcclusionsChanged : aliased constant Windows.IID := (1524551428, 60881, 20787, (171, 199, 88, 42, 2, 127, 9, 187 )); type TypedEventHandler_ICoreInputView_add_OcclusionsChanged_Interface(Callback : access procedure (sender : Windows.UI.ViewManagement.Core.ICoreInputView ; args : Windows.UI.ViewManagement.Core.ICoreInputViewOcclusionsChangedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_ICoreInputView_add_OcclusionsChanged'access) with null record; @@ -505,14 +690,43 @@ package Windows.UI.ViewManagement.Core is ) return Windows.HRESULT; + ------------------------------------------------------------------------ + + IID_TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding : aliased constant Windows.IID := (831041478, 19347, 22688, (181, 176, 203, 237, 101, 190, 12, 126 )); + + type TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding_Interface(Callback : access procedure (sender : Windows.UI.ViewManagement.Core.ICoreInputView ; args : Windows.UI.ViewManagement.Core.ICoreInputViewHidingEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding'access) with null record; + function Invoke + ( + This : access TypedEventHandler_ICoreInputView4_add_PrimaryViewHiding_Interface + ; sender : Windows.UI.ViewManagement.Core.ICoreInputView + ; args : Windows.UI.ViewManagement.Core.ICoreInputViewHidingEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing : aliased constant Windows.IID := (2734744313, 29563, 21296, (142, 162, 104, 231, 163, 170, 237, 178 )); + + type TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing_Interface(Callback : access procedure (sender : Windows.UI.ViewManagement.Core.ICoreInputView ; args : Windows.UI.ViewManagement.Core.ICoreInputViewShowingEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing'access) with null record; + function Invoke + ( + This : access TypedEventHandler_ICoreInputView4_add_PrimaryViewShowing_Interface + ; sender : Windows.UI.ViewManagement.Core.ICoreInputView + ; args : Windows.UI.ViewManagement.Core.ICoreInputViewShowingEventArgs + ) + return Windows.HRESULT; + ------------------------------------------------------------------------ -- Classes ------------------------------------------------------------------------ subtype CoreInputView is Windows.UI.ViewManagement.Core.ICoreInputView; + subtype CoreInputViewHidingEventArgs is Windows.UI.ViewManagement.Core.ICoreInputViewHidingEventArgs; subtype CoreInputViewOcclusion is Windows.UI.ViewManagement.Core.ICoreInputViewOcclusion; subtype CoreInputViewOcclusionsChangedEventArgs is Windows.UI.ViewManagement.Core.ICoreInputViewOcclusionsChangedEventArgs; + subtype CoreInputViewShowingEventArgs is Windows.UI.ViewManagement.Core.ICoreInputViewShowingEventArgs; subtype CoreInputViewTransferringXYFocusEventArgs is Windows.UI.ViewManagement.Core.ICoreInputViewTransferringXYFocusEventArgs; + subtype UISettingsController is Windows.UI.ViewManagement.Core.IUISettingsController; ------------------------------------------------------------------------ -- Static Procedures/functions @@ -527,4 +741,7 @@ package Windows.UI.ViewManagement.Core is ) return Windows.UI.ViewManagement.Core.ICoreInputView; + function RequestDefaultAsync + return Windows.UI.ViewManagement.Core.IAsyncOperation_IUISettingsController; + end; diff --git a/Bindings/Windows.UI.ViewManagement.adb b/Bindings/Windows.UI.ViewManagement.adb index d78226f..d1691f2 100644 --- a/Bindings/Windows.UI.ViewManagement.adb +++ b/Bindings/Windows.UI.ViewManagement.adb @@ -182,6 +182,32 @@ package body Windows.UI.ViewManagement is return Hr; end; + function Invoke + ( + This : access TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged_Interface + ; sender : Windows.UI.ViewManagement.IUISettings + ; args : Windows.UI.ViewManagement.IUISettingsAnimationsEnabledChangedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.UI.ViewManagement.IUISettings(sender), Windows.UI.ViewManagement.IUISettingsAnimationsEnabledChangedEventArgs(args)); + return Hr; + end; + + function Invoke + ( + This : access TypedEventHandler_IUISettings6_add_MessageDurationChanged_Interface + ; sender : Windows.UI.ViewManagement.IUISettings + ; args : Windows.UI.ViewManagement.IUISettingsMessageDurationChangedEventArgs + ) + return Windows.HRESULT is + Hr : Windows.HRESULT := S_OK; + begin + This.Callback(Windows.UI.ViewManagement.IUISettings(sender), Windows.UI.ViewManagement.IUISettingsMessageDurationChangedEventArgs(args)); + return Hr; + end; + ------------------------------------------------------------------------ -- Create functions (for activatable classes) ------------------------------------------------------------------------ diff --git a/Bindings/Windows.UI.ViewManagement.ads b/Bindings/Windows.UI.ViewManagement.ads index 5a180e5..b975638 100644 --- a/Bindings/Windows.UI.ViewManagement.ads +++ b/Bindings/Windows.UI.ViewManagement.ads @@ -317,6 +317,12 @@ package Windows.UI.ViewManagement is type TypedEventHandler_IUISettings5_add_AutoHideScrollBarsChanged_Interface; type TypedEventHandler_IUISettings5_add_AutoHideScrollBarsChanged is access all TypedEventHandler_IUISettings5_add_AutoHideScrollBarsChanged_Interface'Class; type TypedEventHandler_IUISettings5_add_AutoHideScrollBarsChanged_Ptr is access all TypedEventHandler_IUISettings5_add_AutoHideScrollBarsChanged; + type TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged_Interface; + type TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged is access all TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged_Interface'Class; + type TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged_Ptr is access all TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged; + type TypedEventHandler_IUISettings6_add_MessageDurationChanged_Interface; + type TypedEventHandler_IUISettings6_add_MessageDurationChanged is access all TypedEventHandler_IUISettings6_add_MessageDurationChanged_Interface'Class; + type TypedEventHandler_IUISettings6_add_MessageDurationChanged_Ptr is access all TypedEventHandler_IUISettings6_add_MessageDurationChanged; ------------------------------------------------------------------------ -- Forward Declaration - Interfaces @@ -448,9 +454,18 @@ package Windows.UI.ViewManagement is type IUISettings5_Interface; type IUISettings5 is access all IUISettings5_Interface'Class; type IUISettings5_Ptr is access all IUISettings5; + type IUISettings6_Interface; + type IUISettings6 is access all IUISettings6_Interface'Class; + type IUISettings6_Ptr is access all IUISettings6; + type IUISettingsAnimationsEnabledChangedEventArgs_Interface; + type IUISettingsAnimationsEnabledChangedEventArgs is access all IUISettingsAnimationsEnabledChangedEventArgs_Interface'Class; + type IUISettingsAnimationsEnabledChangedEventArgs_Ptr is access all IUISettingsAnimationsEnabledChangedEventArgs; type IUISettingsAutoHideScrollBarsChangedEventArgs_Interface; type IUISettingsAutoHideScrollBarsChangedEventArgs is access all IUISettingsAutoHideScrollBarsChangedEventArgs_Interface'Class; type IUISettingsAutoHideScrollBarsChangedEventArgs_Ptr is access all IUISettingsAutoHideScrollBarsChangedEventArgs; + type IUISettingsMessageDurationChangedEventArgs_Interface; + type IUISettingsMessageDurationChangedEventArgs is access all IUISettingsMessageDurationChangedEventArgs_Interface'Class; + type IUISettingsMessageDurationChangedEventArgs_Ptr is access all IUISettingsMessageDurationChangedEventArgs; type IUIViewSettings_Interface; type IUIViewSettings is access all IUIViewSettings_Interface'Class; type IUIViewSettings_Ptr is access all IUIViewSettings; @@ -1978,12 +1993,60 @@ package Windows.UI.ViewManagement is ------------------------------------------------------------------------ + IID_IUISettings6 : aliased constant Windows.IID := (2935069655, 65073, 23044, (173, 164, 70, 154, 174, 198, 223, 169 )); + + type IUISettings6_Interface is interface and Windows.IInspectable_Interface; + + function add_AnimationsEnabledChanged + ( + This : access IUISettings6_Interface + ; handler : TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_AnimationsEnabledChanged + ( + This : access IUISettings6_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function add_MessageDurationChanged + ( + This : access IUISettings6_Interface + ; handler : TypedEventHandler_IUISettings6_add_MessageDurationChanged + ; RetVal : access Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + function remove_MessageDurationChanged + ( + This : access IUISettings6_Interface + ; token : Windows.Foundation.EventRegistrationToken + ) + return Windows.HRESULT is abstract; + + ------------------------------------------------------------------------ + + IID_IUISettingsAnimationsEnabledChangedEventArgs : aliased constant Windows.IID := (209406781, 11937, 21310, (137, 77, 65, 91, 197, 36, 60, 41 )); + + type IUISettingsAnimationsEnabledChangedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + ------------------------------------------------------------------------ + IID_IUISettingsAutoHideScrollBarsChangedEventArgs : aliased constant Windows.IID := (2276447410, 37190, 24322, (143, 107, 6, 212, 84, 23, 76, 15 )); type IUISettingsAutoHideScrollBarsChangedEventArgs_Interface is interface and Windows.IInspectable_Interface; ------------------------------------------------------------------------ + IID_IUISettingsMessageDurationChangedEventArgs : aliased constant Windows.IID := (864726354, 19037, 23385, (128, 2, 217, 48, 246, 8, 253, 110 )); + + type IUISettingsMessageDurationChangedEventArgs_Interface is interface and Windows.IInspectable_Interface; + + ------------------------------------------------------------------------ + IID_IUIViewSettings : aliased constant Windows.IID := (3325450230, 34896, 18189, (136, 248, 69, 94, 22, 234, 44, 38 )); type IUIViewSettings_Interface is interface and Windows.IInspectable_Interface; @@ -2203,6 +2266,32 @@ package Windows.UI.ViewManagement is ) return Windows.HRESULT; + ------------------------------------------------------------------------ + + IID_TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged : aliased constant Windows.IID := (3741257616, 23009, 22617, (162, 69, 61, 39, 80, 129, 194, 173 )); + + type TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged_Interface(Callback : access procedure (sender : Windows.UI.ViewManagement.IUISettings ; args : Windows.UI.ViewManagement.IUISettingsAnimationsEnabledChangedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IUISettings6_add_AnimationsEnabledChanged_Interface + ; sender : Windows.UI.ViewManagement.IUISettings + ; args : Windows.UI.ViewManagement.IUISettingsAnimationsEnabledChangedEventArgs + ) + return Windows.HRESULT; + + ------------------------------------------------------------------------ + + IID_TypedEventHandler_IUISettings6_add_MessageDurationChanged : aliased constant Windows.IID := (3967843080, 6854, 23351, (154, 247, 26, 175, 28, 147, 87, 126 )); + + type TypedEventHandler_IUISettings6_add_MessageDurationChanged_Interface(Callback : access procedure (sender : Windows.UI.ViewManagement.IUISettings ; args : Windows.UI.ViewManagement.IUISettingsMessageDurationChangedEventArgs)) is new Windows.IMulticastDelegate_Interface(IID_TypedEventHandler_IUISettings6_add_MessageDurationChanged'access) with null record; + function Invoke + ( + This : access TypedEventHandler_IUISettings6_add_MessageDurationChanged_Interface + ; sender : Windows.UI.ViewManagement.IUISettings + ; args : Windows.UI.ViewManagement.IUISettingsMessageDurationChangedEventArgs + ) + return Windows.HRESULT; + ------------------------------------------------------------------------ -- Classes ------------------------------------------------------------------------ @@ -2225,7 +2314,9 @@ package Windows.UI.ViewManagement is subtype UISettings is Windows.UI.ViewManagement.IUISettings; function Create return Windows.UI.ViewManagement.IUISettings; + subtype UISettingsAnimationsEnabledChangedEventArgs is Windows.UI.ViewManagement.IUISettingsAnimationsEnabledChangedEventArgs; subtype UISettingsAutoHideScrollBarsChangedEventArgs is Windows.UI.ViewManagement.IUISettingsAutoHideScrollBarsChangedEventArgs; + subtype UISettingsMessageDurationChangedEventArgs is Windows.UI.ViewManagement.IUISettingsMessageDurationChangedEventArgs; subtype UIViewSettings is Windows.UI.ViewManagement.IUIViewSettings; subtype ViewModePreferences is Windows.UI.ViewManagement.IViewModePreferences; diff --git a/Bindings/Windows.adb b/Bindings/Windows.adb index 4b2813b..82cf754 100644 --- a/Bindings/Windows.adb +++ b/Bindings/Windows.adb @@ -1,11 +1,11 @@ -------------------------------------------------------------------------------- -- -- --- Copyright(c) 2018 Alexander Gamper, All Rights Reserved. -- +-- Copyright(c) 2020 Alexander Gamper, All Rights Reserved. -- -- -- -- Ada-WinRT -- --- Version : 1.3.0.0 -- --- Microsoft SDK Version : 10.0.18362.0 -- --- Microsoft Windows Release : 19H1 -- +-- Version : 1.4.0.0 -- +-- Microsoft SDK Version : 10.0.19041.0 -- +-- Microsoft Windows Release : 20H1 -- -- -- -- This program is free software: you can redistribute it and / or modify -- -- it under the terms of the GNU Lesser General Public License as published by-- diff --git a/Bindings/Windows.ads b/Bindings/Windows.ads index bb7bb96..3fb6daa 100644 --- a/Bindings/Windows.ads +++ b/Bindings/Windows.ads @@ -8,12 +8,12 @@ -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- -- -- --- Copyright(c) 2018 Alexander Gamper, All Rights Reserved. -- +-- Copyright(c) 2020 Alexander Gamper, All Rights Reserved. -- -- -- -- Ada-WinRT -- --- Version : 1.3.0.0 -- --- Microsoft SDK Version : 10.0.18362.0 -- --- Microsoft Windows Release : 19H1 -- +-- Version : 1.4.0.0 -- +-- Microsoft SDK Version : 10.0.19041.0 -- +-- Microsoft Windows Release : 20H1 -- -- -- -- This program is free software: you can redistribute it and / or modify -- -- it under the terms of the GNU Lesser General Public License as published by--