Вопрос # 6 633: …сперты! Требуется зайти на удаленный рабочий стол (открыть сеанс с … (Взаимодействие с Windows)

Приветствую, уважаемые эксперты!

Требуется зайти на удаленный рабочий стол (открыть сеанс с сервером, иначе не работает связь). Удаленный пользователь имеет имя и пароль, которые я знаю.

Проще говоря, надо нажать кнопку и зайти на нужный удаленный рабочий стол.
Каким компонентом я могу это сделать?

Добавляем модуль MSTSCLib_TLB.pas
Component->Import ActiveX Control->Microsoft Terminal Services Active Client...->Install

далее вешаем на кнопку обработчик
<code language=delphi>
procedure TForm1.ConnectToRDP(ARDP: TMsRDPClient2; AServerName, AUserName,
APassword: string);
begin
try
if ARDP = nil
then ARDP := TMsRDPClient2.Create(Self);
ARDP.Parent := Form1;
ARDP.Server := AServerName;
ARDP.UserName := AUserName;
if APassword <> ''
then ARDP.AdvancedSettings2.Set_ClearTextPassword(APassword);
ARDP.Left := 20;
ARDP.Top := 40;
ARDP.Width := 400;
ARDP.Height := 200;
ARDP.Align := alLeft;
ARDP.Connect;
except
ShowMessage('Не удалось установить соединение с ' + ARDP.Server);
end;
end;

procedure TForm1.DisconnectRDP(ARDP: TMsRDPClient2);
begin
try
ARDP.Disconnect;
except
ShowMessage('Не удалось разорвать соединение с ' + ARDP.Server);
end;
end;
</code>

добавленный модуль MSTSCLib_TLB не всегда компилируется, надо исправлять ошибки. В Delphi XE10
вот этот рабочий
<code language=delphi>
unit MSTSCLib_TLB;

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

// $Rev: 52393 $
// File generated on 30.06.2016 9:23:11 from Type Library described below.

// ************************************************************************ //
// Type Lib: C:WindowsSysWOW64mstscax.dll (1)
// LIBID: {8C11EFA1-92C3-11D1-BC1E-00C04FA31489}
// LCID: 0
// Helpfile:
// HelpString: Microsoft Terminal Services Control Type Library
// DepndLst:
// (1) v2.0 stdole, (C:WindowsSysWOW64stdole2.tlb)
// SYS_KIND: SYS_WIN32
// Errors:
// Hint: Member 'Property' of 'IMsRdpExtendedSettings' changed to 'Property_'
// Error creating palette bitmap of (TMsTscAxNotSafeForScripting) : Registry key CLSID{A41A4187-5A86-4E26-B40A-856F9035D9CB}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClientNotSafeForScripting) : Registry key CLSID{7CACBD7B-0D99-468F-AC33-22E495C0AFE5}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient2NotSafeForScripting) : Registry key CLSID{3523C2FB-4031-44E4-9A3B-F1E94986EE7F}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient2) : Registry key CLSID{9059F30F-4EB1-4BD2-9FDC-36F43A218F4A}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient2a) : Registry key CLSID{971127BB-259F-48C2-BD75-5F97A3331551}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient3NotSafeForScripting) : Registry key CLSID{ACE575FD-1FCF-4074-9401-EBAB990FA9DE}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient3) : Registry key CLSID{7584C670-2274-4EFB-B00B-D6AABA6D3850}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient3a) : Registry key CLSID{6A6F4B83-45C5-4CA9-BDD9-0D81C12295E4}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient4NotSafeForScripting) : Registry key CLSID{6AE29350-321B-42BE-BBE5-12FB5270C0DE}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient4) : Registry key CLSID{4EDCB26C-D24C-4E72-AF07-B576699AC0DE}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient4a) : Registry key CLSID{54CE37E0-9834-41AE-9896-4DAB69DC022B}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient5NotSafeForScripting) : Registry key CLSID{4EB2F086-C818-447E-B32C-C51CE2B30D31}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient5) : Registry key CLSID{4EB89FF4-7F78-4A0F-8B8D-2BF02E94E4B2}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient6NotSafeForScripting) : Registry key CLSID{D2EA46A7-C2BF-426B-AF24-E19C44456399}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient6) : Registry key CLSID{7390F3D8-0439-4C05-91E3-CF5CB290C3D0}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient7NotSafeForScripting) : Registry key CLSID{54D38BF7-B1EF-4479-9674-1BD6EA465258}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient7) : Registry key CLSID{A9D7038D-B5ED-472E-9C47-94BEA90A5910}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient8NotSafeForScripting) : Registry key CLSID{A3BC03A0-041D-42E3-AD22-882B7865C9C5}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient8) : Registry key CLSID{5F681803-2900-4C43-A1CC-CF405404A676}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient9NotSafeForScripting) : Registry key CLSID{8B918B82-7985-4C24-89DF-C33AD2BBFBCD}ToolboxBitmap32 not found
// Error creating palette bitmap of (TMsRdpClient9) : Registry key CLSID{301B94BA-5D25-4A12-BFFE-3B6E7A616585}ToolboxBitmap32 not found
// Error creating palette bitmap of (TRemoteDesktopClient) : Registry key CLSID{EAB16C5D-EED1-4E95-868B-0FBA1B42C092}ToolboxBitmap32 not found
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
{$ALIGN 4}

interface

uses Winapi.Windows, System.Classes, System.Variants, System.Win.StdVCL, Vcl.Graphics, Vcl.OleCtrls, Vcl.OleServer, Winapi.ActiveX;

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

LIBID_MSTSCLib: TGUID = '{8C11EFA1-92C3-11D1-BC1E-00C04FA31489}';

DIID_IMsTscAxEvents: TGUID = '{336D5562-EFA8-482E-8CB3-C5C0FC7A7DB6}';
IID_IMsTscAx_Redist: TGUID = '{327BB5CD-834E-4400-AEF2-B30E15E5D682}';
IID_IMsTscAx: TGUID = '{8C11EFAE-92C3-11D1-BC1E-00C04FA31489}';
IID_IMsRdpClient: TGUID = '{92B4A539-7115-4B7C-A5A9-E5D9EFC2780A}';
IID_IMsTscNonScriptable: TGUID = '{C1E6743A-41C1-4A74-832A-0DD06C1C7A0E}';
IID_IMsTscSecuredSettings: TGUID = '{C9D65442-A0F9-45B2-8F73-D61D2DB8CBB6}';
IID_IMsTscAdvancedSettings: TGUID = '{809945CC-4B3B-4A92-A6B0-DBF9B5F2EF2D}';
IID_IMsTscDebug: TGUID = '{209D0EB9-6254-47B1-9033-A98DAE55BB27}';
IID_IMsRdpClientAdvancedSettings: TGUID = '{3C65B4AB-12B3-465B-ACD4-B8DAD3BFF9E2}';
IID_IMsRdpClientSecuredSettings: TGUID = '{605BEFCF-39C1-45CC-A811-068FB7BE346D}';
IID_IMsRdpClientNonScriptable: TGUID = '{2F079C4C-87B2-4AFD-97AB-20CDB43038AE}';
CLASS_MsTscAxNotSafeForScripting: TGUID = '{A41A4187-5A86-4E26-B40A-856F9035D9CB}';
CLASS_MsTscAx: TGUID = '{1FB464C8-09BB-4017-A2F5-EB742F04392F}';
CLASS_MsRdpClientNotSafeForScripting: TGUID = '{7CACBD7B-0D99-468F-AC33-22E495C0AFE5}';
CLASS_MsRdpClient: TGUID = '{791FA017-2DE3-492E-ACC5-53C67A2B94D0}';
IID_IMsRdpClient2: TGUID = '{E7E17DC4-3B71-4BA7-A8E6-281FFADCA28F}';
CLASS_MsRdpClient2NotSafeForScripting: TGUID = '{3523C2FB-4031-44E4-9A3B-F1E94986EE7F}';
IID_IMsRdpClientAdvancedSettings2: TGUID = '{9AC42117-2B76-4320-AA44-0E616AB8437B}';
CLASS_MsRdpClient2: TGUID = '{9059F30F-4EB1-4BD2-9FDC-36F43A218F4A}';
CLASS_MsRdpClient2a: TGUID = '{971127BB-259F-48C2-BD75-5F97A3331551}';
IID_IMsRdpClient3: TGUID = '{91B7CBC5-A72E-4FA0-9300-D647D7E897FF}';
CLASS_MsRdpClient3NotSafeForScripting: TGUID = '{ACE575FD-1FCF-4074-9401-EBAB990FA9DE}';
IID_IMsRdpClientAdvancedSettings3: TGUID = '{19CD856B-C542-4C53-ACEE-F127E3BE1A59}';
CLASS_MsRdpClient3: TGUID = '{7584C670-2274-4EFB-B00B-D6AABA6D3850}';
CLASS_MsRdpClient3a: TGUID = '{6A6F4B83-45C5-4CA9-BDD9-0D81C12295E4}';
IID_IMsRdpClient4: TGUID = '{095E0738-D97D-488B-B9F6-DD0E8D66C0DE}';
IID_IMsRdpClientNonScriptable2: TGUID = '{17A5E535-4072-4FA4-AF32-C8D0D47345E9}';
IID_IMsRdpClientAdvancedSettings4: TGUID = '{FBA7F64E-7345-4405-AE50-FA4A763DC0DE}';
CLASS_MsRdpClient4NotSafeForScripting: TGUID = '{6AE29350-321B-42BE-BBE5-12FB5270C0DE}';
CLASS_MsRdpClient4: TGUID = '{4EDCB26C-D24C-4E72-AF07-B576699AC0DE}';
CLASS_MsRdpClient4a: TGUID = '{54CE37E0-9834-41AE-9896-4DAB69DC022B}';
IID_IMsRdpClient5: TGUID = '{4EB5335B-6429-477D-B922-E06A28ECD8BF}';
IID_IMsRdpClientNonScriptable3: TGUID = '{B3378D90-0728-45C7-8ED7-B6159FB92219}';
IID_IMsRdpClientTransportSettings: TGUID = '{720298C0-A099-46F5-9F82-96921BAE4701}';
IID_IMsRdpClientAdvancedSettings5: TGUID = '{FBA7F64E-6783-4405-DA45-FA4A763DABD0}';
IID_ITSRemoteProgram: TGUID = '{FDD029F9-467A-4C49-8529-64B521DBD1B4}';
IID_IMsRdpClientShell: TGUID = '{D012AE6D-C19A-4BFE-B367-201F8911F134}';
CLASS_MsRdpClient5NotSafeForScripting: TGUID = '{4EB2F086-C818-447E-B32C-C51CE2B30D31}';
IID_IMsRdpDeviceCollection: TGUID = '{56540617-D281-488C-8738-6A8FDF64A118}';
IID_IMsRdpDevice: TGUID = '{60C3B9C8-9E92-4F5E-A3E7-604A912093EA}';
IID_IMsRdpDriveCollection: TGUID = '{7FF17599-DA2C-4677-AD35-F60C04FE1585}';
IID_IMsRdpDrive: TGUID = '{D28B5458-F694-47A8-8E61-40356A767E46}';
CLASS_MsRdpClient5: TGUID = '{4EB89FF4-7F78-4A0F-8B8D-2BF02E94E4B2}';
IID_IMsRdpClient6: TGUID = '{D43B7D80-8517-4B6D-9EAC-96AD6800D7F2}';
IID_IMsRdpClientNonScriptable4: TGUID = '{F50FA8AA-1C7D-4F59-B15C-A90CACAE1FCB}';
IID_IMsRdpClientAdvancedSettings6: TGUID = '{222C4B5D-45D9-4DF0-A7C6-60CF9089D285}';
IID_IMsRdpClientTransportSettings2: TGUID = '{67341688-D606-4C73-A5D2-2E0489009319}';
CLASS_MsRdpClient6NotSafeForScripting: TGUID = '{D2EA46A7-C2BF-426B-AF24-E19C44456399}';
CLASS_MsRdpClient6: TGUID = '{7390F3D8-0439-4C05-91E3-CF5CB290C3D0}';
IID_IMsRdpClient7: TGUID = '{B2A5B5CE-3461-444A-91D4-ADD26D070638}';
IID_IMsRdpClientNonScriptable5: TGUID = '{4F6996D5-D7B1-412C-B0FF-063718566907}';
IID_IMsRdpClientAdvancedSettings7: TGUID = '{26036036-4010-4578-8091-0DB9A1EDF9C3}';
IID_IMsRdpClientTransportSettings3: TGUID = '{3D5B21AC-748D-41DE-8F30-E15169586BD4}';
IID_IMsRdpClientSecuredSettings2: TGUID = '{25F2CE20-8B1D-4971-A7CD-549DAE201FC0}';
IID_ITSRemoteProgram2: TGUID = '{92C38A7D-241A-418C-9936-099872C9AF20}';
IID_IMsRdpPreferredRedirectionInfo: TGUID = '{FDD029F9-9574-4DEF-8529-64B521CCCAA4}';
IID_IMsRdpExtendedSettings: TGUID = '{302D8188-0052-4807-806A-362B628F9AC5}';
CLASS_MsRdpClient7NotSafeForScripting: TGUID = '{54D38BF7-B1EF-4479-9674-1BD6EA465258}';
CLASS_MsRdpClient7: TGUID = '{A9D7038D-B5ED-472E-9C47-94BEA90A5910}';
IID_IMsRdpClient8: TGUID = '{4247E044-9271-43A9-BC49-E2AD9E855D62}';
CLASS_MsRdpClient8NotSafeForScripting: TGUID = '{A3BC03A0-041D-42E3-AD22-882B7865C9C5}';
IID_IMsRdpClientAdvancedSettings8: TGUID = '{89ACB528-2557-4D16-8625-226A30E97E9A}';
CLASS_MsRdpClient8: TGUID = '{5F681803-2900-4C43-A1CC-CF405404A676}';
IID_IMsRdpClient9: TGUID = '{28904001-04B6-436C-A55B-0AF1A0883DC9}';
CLASS_MsRdpClient9NotSafeForScripting: TGUID = '{8B918B82-7985-4C24-89DF-C33AD2BBFBCD}';
IID_IMsRdpClientTransportSettings4: TGUID = '{011C3236-4D81-4515-9143-067AB630D299}';
CLASS_MsRdpClient9: TGUID = '{301B94BA-5D25-4A12-BFFE-3B6E7A616585}';
DIID_IRemoteDesktopClientEvents: TGUID = '{079863B7-6D47-4105-8BFE-0CDCB360E67D}';
IID_IRemoteDesktopClient: TGUID = '{57D25668-625A-4905-BE4E-304CAA13F89C}';
CLASS_RemoteDesktopClient: TGUID = '{EAB16C5D-EED1-4E95-868B-0FBA1B42C092}';
IID_IRemoteDesktopClientSettings: TGUID = '{48A0F2A7-2713-431F-BBAC-6F4558E7D64D}';
IID_IRemoteDesktopClientActions: TGUID = '{7D54BC4E-1028-45D4-8B0A-B9B6BFFBA176}';
IID_IRemoteDesktopClientTouchPointer: TGUID = '{260EC22D-8CBC-44B5-9E88-2A37F6C93AE9}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum __MIDL___MIDL_itf_mstsax_0000_0037_0001
type
__MIDL___MIDL_itf_mstsax_0000_0037_0001 = TOleEnum;
const
autoReconnectContinueAutomatic = $00000000;
autoReconnectContinueStop = $00000001;
autoReconnectContinueManual = $00000002;

// Constants for enum __MIDL___MIDL_itf_mstsax_0000_0049_0001
type
__MIDL___MIDL_itf_mstsax_0000_0049_0001 = TOleEnum;
const
remoteAppResultOk = $00000000;
remoteAppResultLocked = $00000001;
remoteAppResultProtocolError = $00000002;
remoteAppResultNotInWhitelist = $00000003;
remoteAppResultNetworkPathDenied = $00000004;
remoteAppResultFileNotFound = $00000005;
remoteAppResultFailure = $00000006;
remoteAppResultHookNotLoaded = $00000007;

// Constants for enum __MIDL___MIDL_itf_mstsax_0000_0049_0002
type
__MIDL___MIDL_itf_mstsax_0000_0049_0002 = TOleEnum;
const
remoteAppWindowNone = $00000000;
remoteAppWindowDisplayed = $00000001;
remoteAppShellIconDisplayed = $00000002;

// Constants for enum __MIDL___MIDL_itf_mstsax_0000_0000_0001
type
__MIDL___MIDL_itf_mstsax_0000_0000_0001 = TOleEnum;
const
exDiscReasonNoInfo = $00000000;
exDiscReasonAPIInitiatedDisconnect = $00000001;
exDiscReasonAPIInitiatedLogoff = $00000002;
exDiscReasonServerIdleTimeout = $00000003;
exDiscReasonServerLogonTimeout = $00000004;
exDiscReasonReplacedByOtherConnection = $00000005;
exDiscReasonOutOfMemory = $00000006;
exDiscReasonServerDeniedConnection = $00000007;
exDiscReasonServerDeniedConnectionFips = $00000008;
exDiscReasonServerInsufficientPrivileges = $00000009;
exDiscReasonServerFreshCredsRequired = $0000000A;
exDiscReasonRpcInitiatedDisconnectByUser = $0000000B;
exDiscReasonLogoffByUser = $0000000C;
exDiscReasonLicenseInternal = $00000100;
exDiscReasonLicenseNoLicenseServer = $00000101;
exDiscReasonLicenseNoLicense = $00000102;
exDiscReasonLicenseErrClientMsg = $00000103;
exDiscReasonLicenseHwidDoesntMatchLicense = $00000104;
exDiscReasonLicenseErrClientLicense = $00000105;
exDiscReasonLicenseCantFinishProtocol = $00000106;
exDiscReasonLicenseClientEndedProtocol = $00000107;
exDiscReasonLicenseErrClientEncryption = $00000108;
exDiscReasonLicenseCantUpgradeLicense = $00000109;
exDiscReasonLicenseNoRemoteConnections = $0000010A;
exDiscReasonLicenseCreatingLicStoreAccDenied = $0000010B;
exDiscReasonRdpEncInvalidCredentials = $00000300;
exDiscReasonProtocolRangeStart = $00001000;
exDiscReasonProtocolRangeEnd = $00007FFF;

// Constants for enum __MIDL_IMsRdpClient_0001
type
__MIDL_IMsRdpClient_0001 = TOleEnum;
const
controlCloseCanProceed = $00000000;
controlCloseWaitForEvents = $00000001;

// Constants for enum __MIDL_IMsRdpClientNonScriptable4_0001
type
__MIDL_IMsRdpClientNonScriptable4_0001 = TOleEnum;
const
RedirectionWarningTypeDefault = $00000000;
RedirectionWarningTypeUnsigned = $00000001;
RedirectionWarningTypeUnknown = $00000002;
RedirectionWarningTypeUser = $00000003;
RedirectionWarningTypeThirdPartySigned = $00000004;
RedirectionWarningTypeTrusted = $00000005;
RedirectionWarningTypeMax = $00000005;

// Constants for enum __MIDL___MIDL_itf_mstsax_0000_0000_0004
type
__MIDL___MIDL_itf_mstsax_0000_0000_0004 = TOleEnum;
const
RemoteSessionActionCharms = $00000000;
RemoteSessionActionAppbar = $00000001;
RemoteSessionActionSnap = $00000002;
RemoteSessionActionStartScreen = $00000003;
RemoteSessionActionAppSwitch = $00000004;

// Constants for enum __MIDL___MIDL_itf_mstsax_0000_0000_0003
type
__MIDL___MIDL_itf_mstsax_0000_0000_0003 = TOleEnum;
const
FullMode = $00000000;
ThinClientMode = $00000001;
SmallCacheMode = $00000002;

// Constants for enum __MIDL_IMsRdpClient8_0001
type
__MIDL_IMsRdpClient8_0001 = TOleEnum;
const
controlReconnectStarted = $00000000;
controlReconnectBlocked = $00000001;

// Constants for enum __MIDL_IRemoteDesktopClientActions_0001
type
__MIDL_IRemoteDesktopClientActions_0001 = TOleEnum;
const
RemoteActionCharms = $00000000;
RemoteActionAppbar = $00000001;
RemoteActionSnap = $00000002;
RemoteActionStartScreen = $00000003;
RemoteActionAppSwitch = $00000004;

// Constants for enum __MIDL_IRemoteDesktopClientActions_0002
type
__MIDL_IRemoteDesktopClientActions_0002 = TOleEnum;
const
SnapshotEncodingDataUri = $00000000;

// Constants for enum __MIDL_IRemoteDesktopClientActions_0003
type
__MIDL_IRemoteDesktopClientActions_0003 = TOleEnum;
const
SnapshotFormatPng = $00000000;
SnapshotFormatJpeg = $00000001;
SnapshotFormatBmp = $00000002;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IMsTscAxEvents = dispinterface;
IMsTscAx_Redist = interface;
IMsTscAx_RedistDisp = dispinterface;
IMsTscAx = interface;
IMsTscAxDisp = dispinterface;
IMsRdpClient = interface;
IMsRdpClientDisp = dispinterface;
IMsTscNonScriptable = interface;
IMsTscSecuredSettings = interface;
IMsTscSecuredSettingsDisp = dispinterface;
IMsTscAdvancedSettings = interface;
IMsTscAdvancedSettingsDisp = dispinterface;
IMsTscDebug = interface;
IMsTscDebugDisp = dispinterface;
IMsRdpClientAdvancedSettings = interface;
IMsRdpClientAdvancedSettingsDisp = dispinterface;
IMsRdpClientSecuredSettings = interface;
IMsRdpClientSecuredSettingsDisp = dispinterface;
IMsRdpClientNonScriptable = interface;
IMsRdpClient2 = interface;
IMsRdpClient2Disp = dispinterface;
IMsRdpClientAdvancedSettings2 = interface;
IMsRdpClientAdvancedSettings2Disp = dispinterface;
IMsRdpClient3 = interface;
IMsRdpClient3Disp = dispinterface;
IMsRdpClientAdvancedSettings3 = interface;
IMsRdpClientAdvancedSettings3Disp = dispinterface;
IMsRdpClient4 = interface;
IMsRdpClient4Disp = dispinterface;
IMsRdpClientNonScriptable2 = interface;
IMsRdpClientAdvancedSettings4 = interface;
IMsRdpClientAdvancedSettings4Disp = dispinterface;
IMsRdpClient5 = interface;
IMsRdpClient5Disp = dispinterface;
IMsRdpClientNonScriptable3 = interface;
IMsRdpClientTransportSettings = interface;
IMsRdpClientTransportSettingsDisp = dispinterface;
IMsRdpClientAdvancedSettings5 = interface;
IMsRdpClientAdvancedSettings5Disp = dispinterface;
ITSRemoteProgram = interface;
ITSRemoteProgramDisp = dispinterface;
IMsRdpClientShell = interface;
IMsRdpClientShellDisp = dispinterface;
IMsRdpDeviceCollection = interface;
IMsRdpDevice = interface;
IMsRdpDriveCollection = interface;
IMsRdpDrive = interface;
IMsRdpClient6 = interface;
IMsRdpClient6Disp = dispinterface;
IMsRdpClientNonScriptable4 = interface;
IMsRdpClientAdvancedSettings6 = interface;
IMsRdpClientAdvancedSettings6Disp = dispinterface;
IMsRdpClientTransportSettings2 = interface;
IMsRdpClientTransportSettings2Disp = dispinterface;
IMsRdpClient7 = interface;
IMsRdpClient7Disp = dispinterface;
IMsRdpClientNonScriptable5 = interface;
IMsRdpClientAdvancedSettings7 = interface;
IMsRdpClientAdvancedSettings7Disp = dispinterface;
IMsRdpClientTransportSettings3 = interface;
IMsRdpClientTransportSettings3Disp = dispinterface;
IMsRdpClientSecuredSettings2 = interface;
IMsRdpClientSecuredSettings2Disp = dispinterface;
ITSRemoteProgram2 = interface;
ITSRemoteProgram2Disp = dispinterface;
IMsRdpPreferredRedirectionInfo = interface;
IMsRdpExtendedSettings = interface;
IMsRdpClient8 = interface;
IMsRdpClient8Disp = dispinterface;
IMsRdpClientAdvancedSettings8 = interface;
IMsRdpClientAdvancedSettings8Disp = dispinterface;
IMsRdpClient9 = interface;
IMsRdpClient9Disp = dispinterface;
IMsRdpClientTransportSettings4 = interface;
IMsRdpClientTransportSettings4Disp = dispinterface;
IRemoteDesktopClientEvents = dispinterface;
IRemoteDesktopClient = interface;
IRemoteDesktopClientDisp = dispinterface;
IRemoteDesktopClientSettings = interface;
IRemoteDesktopClientSettingsDisp = dispinterface;
IRemoteDesktopClientActions = interface;
IRemoteDesktopClientActionsDisp = dispinterface;
IRemoteDesktopClientTouchPointer = interface;
IRemoteDesktopClientTouchPointerDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
MsTscAxNotSafeForScripting = IMsTscAx;
MsTscAx = IMsTscAx;
MsRdpClientNotSafeForScripting = IMsRdpClient;
MsRdpClient = IMsRdpClient;
MsRdpClient2NotSafeForScripting = IMsRdpClient2;
MsRdpClient2 = IMsRdpClient2;
MsRdpClient2a = IMsRdpClient2;
MsRdpClient3NotSafeForScripting = IMsRdpClient3;
MsRdpClient3 = IMsRdpClient3;
MsRdpClient3a = IMsRdpClient3;
MsRdpClient4NotSafeForScripting = IMsRdpClient4;
MsRdpClient4 = IMsRdpClient4;
MsRdpClient4a = IMsRdpClient4;
MsRdpClient5NotSafeForScripting = IMsRdpClient5;
MsRdpClient5 = IMsRdpClient5;
MsRdpClient6NotSafeForScripting = IMsRdpClient6;
MsRdpClient6 = IMsRdpClient6;
MsRdpClient7NotSafeForScripting = IMsRdpClient7;
MsRdpClient7 = IMsRdpClient7;
MsRdpClient8NotSafeForScripting = IMsRdpClient8;
MsRdpClient8 = IMsRdpClient8;
MsRdpClient9NotSafeForScripting = IMsRdpClient9;
MsRdpClient9 = IMsRdpClient9;
RemoteDesktopClient = IRemoteDesktopClient;

// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
wireHWND = ^_RemotableHandle;
POleVariant1 = ^OleVariant; {*}
PWordBool1 = ^WordBool; {*}
PInteger1 = ^Integer; {*}

AutoReconnectContinueState = __MIDL___MIDL_itf_mstsax_0000_0037_0001;
RemoteProgramResult = __MIDL___MIDL_itf_mstsax_0000_0049_0001;

__MIDL_IWinTypes_0009 = record
case Integer of
0: (hInproc: Integer);
1: (hRemote: Integer);
end;

_RemotableHandle = record
fContext: Integer;
u: __MIDL_IWinTypes_0009;
end;

RemoteWindowDisplayedAttribute = __MIDL___MIDL_itf_mstsax_0000_0049_0002;
ExtendedDisconnectReasonCode = __MIDL___MIDL_itf_mstsax_0000_0000_0001;
ControlCloseStatus = __MIDL_IMsRdpClient_0001;
UINT_PTR = LongWord;
LONG_PTR = Integer;
RedirectionWarningType = __MIDL_IMsRdpClientNonScriptable4_0001;
RemoteSessionActionType = __MIDL___MIDL_itf_mstsax_0000_0000_0004;
ClientSpec = __MIDL___MIDL_itf_mstsax_0000_0000_0003;
ControlReconnectStatus = __MIDL_IMsRdpClient8_0001;
RemoteActionType = __MIDL_IRemoteDesktopClientActions_0001;
SnapshotEncodingType = __MIDL_IRemoteDesktopClientActions_0002;
SnapshotFormatType = __MIDL_IRemoteDesktopClientActions_0003;

// *********************************************************************//
// DispIntf: IMsTscAxEvents
// Flags: (4096) Dispatchable
// GUID: {336D5562-EFA8-482E-8CB3-C5C0FC7A7DB6}
// *********************************************************************//
IMsTscAxEvents = dispinterface
['{336D5562-EFA8-482E-8CB3-C5C0FC7A7DB6}']
procedure OnConnecting; dispid 1;
procedure OnConnected; dispid 2;
procedure OnLoginComplete; dispid 3;
procedure OnDisconnected(discReason: Integer); dispid 4;
procedure OnEnterFullScreenMode; dispid 5;
procedure OnLeaveFullScreenMode; dispid 6;
procedure OnChannelReceivedData(const chanName: WideString; const data: WideString); dispid 7;
procedure OnRequestGoFullScreen; dispid 8;
procedure OnRequestLeaveFullScreen; dispid 9;
procedure OnFatalError(errorCode: Integer); dispid 10;
procedure OnWarning(warningCode: Integer); dispid 11;
procedure OnRemoteDesktopSizeChange(width: Integer; height: Integer); dispid 12;
procedure OnIdleTimeoutNotification; dispid 13;
procedure OnRequestContainerMinimize; dispid 14;
function OnConfirmClose: WordBool; dispid 15;
function OnReceivedTSPublicKey(const publicKey: WideString): WordBool; dispid 16;
function OnAutoReconnecting(disconnectReason: Integer; attemptCount: Integer): AutoReconnectContinueState; dispid 17;
procedure OnAuthenticationWarningDisplayed; dispid 18;
procedure OnAuthenticationWarningDismissed; dispid 19;
procedure OnRemoteProgramResult(const bstrRemoteProgram: WideString;
lError: RemoteProgramResult; vbIsExecutable: WordBool); dispid 20;
procedure OnRemoteProgramDisplayed(vbDisplayed: WordBool; uDisplayInformation: LongWord); dispid 21;
procedure OnRemoteWindowDisplayed(vbDisplayed: WordBool;
var hwnd: {NOT_OLEAUTO(_RemotableHandle)}OleVariant;
windowAttribute: RemoteWindowDisplayedAttribute); dispid 29;
procedure OnLogonError(lError: Integer); dispid 22;
procedure OnFocusReleased(iDirection: SYSINT); dispid 23;
procedure OnUserNameAcquired(const bstrUserName: WideString); dispid 24;
procedure OnMouseInputModeChanged(fMouseModeRelative: WordBool); dispid 26;
procedure OnServiceMessageReceived(const serviceMessage: WideString); dispid 28;
procedure OnConnectionBarPullDown; dispid 30;
procedure OnNetworkStatusChanged(qualityLevel: LongWord; bandwidth: Integer; rtt: Integer); dispid 32;
procedure OnDevicesButtonPressed; dispid 35;
procedure OnAutoReconnected; dispid 33;
procedure OnAutoReconnecting2(disconnectReason: Integer; networkAvailable: WordBool;
attemptCount: Integer; maxAttemptCount: Integer); dispid 34;
end;

// *********************************************************************//
// Interface: IMsTscAx_Redist
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {327BB5CD-834E-4400-AEF2-B30E15E5D682}
// *********************************************************************//
IMsTscAx_Redist = interface(IDispatch)
['{327BB5CD-834E-4400-AEF2-B30E15E5D682}']
end;

// *********************************************************************//
// DispIntf: IMsTscAx_RedistDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {327BB5CD-834E-4400-AEF2-B30E15E5D682}
// *********************************************************************//
IMsTscAx_RedistDisp = dispinterface
['{327BB5CD-834E-4400-AEF2-B30E15E5D682}']
end;

// *********************************************************************//
// Interface: IMsTscAx
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {8C11EFAE-92C3-11D1-BC1E-00C04FA31489}
// *********************************************************************//
IMsTscAx = interface(IMsTscAx_Redist)
['{8C11EFAE-92C3-11D1-BC1E-00C04FA31489}']
procedure Set_Server(const pServer: WideString); safecall;
function Get_Server: WideString; safecall;
procedure Set_Domain(const pDomain: WideString); safecall;
function Get_Domain: WideString; safecall;
procedure Set_UserName(const pUserName: WideString); safecall;
function Get_UserName: WideString; safecall;
procedure Set_DisconnectedText(const pDisconnectedText: WideString); safecall;
function Get_DisconnectedText: WideString; safecall;
procedure Set_ConnectingText(const pConnectingText: WideString); safecall;
function Get_ConnectingText: WideString; safecall;
function Get_Connected: Smallint; safecall;
procedure Set_DesktopWidth(pVal: Integer); safecall;
function Get_DesktopWidth: Integer; safecall;
procedure Set_DesktopHeight(pVal: Integer); safecall;
function Get_DesktopHeight: Integer; safecall;
procedure Set_StartConnected(pfStartConnected: Integer); safecall;
function Get_StartConnected: Integer; safecall;
function Get_HorizontalScrollBarVisible: Integer; safecall;
function Get_VerticalScrollBarVisible: Integer; safecall;
procedure Set_FullScreenTitle(const Param1: WideString); safecall;
function Get_CipherStrength: Integer; safecall;
function Get_Version: WideString; safecall;
function Get_SecuredSettingsEnabled: Integer; safecall;
function Get_SecuredSettings: IMsTscSecuredSettings; safecall;
function Get_AdvancedSettings: IMsTscAdvancedSettings; safecall;
function Get_Debugger: IMsTscDebug; safecall;
procedure Connect; safecall;
procedure Disconnect; safecall;
procedure CreateVirtualChannels(const newVal: WideString); safecall;
procedure SendOnVirtualChannel(const chanName: WideString; const ChanData: WideString); safecall;
property Server: WideString read Get_Server write Set_Server;
property Domain: WideString read Get_Domain write Set_Domain;
property UserName: WideString read Get_UserName write Set_UserName;
property DisconnectedText: WideString read Get_DisconnectedText write Set_DisconnectedText;
property ConnectingText: WideString read Get_ConnectingText write Set_ConnectingText;
property Connected: Smallint read Get_Connected;
property DesktopWidth: Integer read Get_DesktopWidth write Set_DesktopWidth;
property DesktopHeight: Integer read Get_DesktopHeight write Set_DesktopHeight;
property StartConnected: Integer read Get_StartConnected write Set_StartConnected;
property HorizontalScrollBarVisible: Integer read Get_HorizontalScrollBarVisible;
property VerticalScrollBarVisible: Integer read Get_VerticalScrollBarVisible;
property FullScreenTitle: WideString write Set_FullScreenTitle;
property CipherStrength: Integer read Get_CipherStrength;
property Version: WideString read Get_Version;
property SecuredSettingsEnabled: Integer read Get_SecuredSettingsEnabled;
property SecuredSettings: IMsTscSecuredSettings read Get_SecuredSettings;
property AdvancedSettings: IMsTscAdvancedSettings read Get_AdvancedSettings;
property Debugger: IMsTscDebug read Get_Debugger;
end;

// *********************************************************************//
// DispIntf: IMsTscAxDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {8C11EFAE-92C3-11D1-BC1E-00C04FA31489}
// *********************************************************************//
IMsTscAxDisp = dispinterface
['{8C11EFAE-92C3-11D1-BC1E-00C04FA31489}']
property Server: WideString dispid 1;
property Domain: WideString dispid 2;
property UserName: WideString dispid 3;
property DisconnectedText: WideString dispid 4;
property ConnectingText: WideString dispid 5;
property Connected: Smallint readonly dispid 6;
property DesktopWidth: Integer dispid 12;
property DesktopHeight: Integer dispid 13;
property StartConnected: Integer dispid 16;
property HorizontalScrollBarVisible: Integer readonly dispid 17;
property VerticalScrollBarVisible: Integer readonly dispid 18;
property FullScreenTitle: WideString writeonly dispid 19;
property CipherStrength: Integer readonly dispid 20;
property Version: WideString readonly dispid 21;
property SecuredSettingsEnabled: Integer readonly dispid 22;
property SecuredSettings: IMsTscSecuredSettings readonly dispid 97;
property AdvancedSettings: IMsTscAdvancedSettings readonly dispid 98;
property Debugger: IMsTscDebug readonly dispid 99;
procedure Connect; dispid 30;
procedure Disconnect; dispid 31;
procedure CreateVirtualChannels(const newVal: WideString); dispid 33;
procedure SendOnVirtualChannel(const chanName: WideString; const ChanData: WideString); dispid 34;
end;

// *********************************************************************//
// Interface: IMsRdpClient
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {92B4A539-7115-4B7C-A5A9-E5D9EFC2780A}
// *********************************************************************//
IMsRdpClient = interface(IMsTscAx)
['{92B4A539-7115-4B7C-A5A9-E5D9EFC2780A}']
procedure Set_ColorDepth(pcolorDepth: Integer); safecall;
function Get_ColorDepth: Integer; safecall;
function Get_AdvancedSettings2: IMsRdpClientAdvancedSettings; safecall;
function Get_SecuredSettings2: IMsRdpClientSecuredSettings; safecall;
function Get_ExtendedDisconnectReason: ExtendedDisconnectReasonCode; safecall;
procedure Set_FullScreen(pfFullScreen: WordBool); safecall;
function Get_FullScreen: WordBool; safecall;
procedure SetVirtualChannelOptions(const chanName: WideString; chanOptions: Integer); safecall;
function GetVirtualChannelOptions(const chanName: WideString): Integer; safecall;
function RequestClose: ControlCloseStatus; safecall;
property ColorDepth: Integer read Get_ColorDepth write Set_ColorDepth;
property AdvancedSettings2: IMsRdpClientAdvancedSettings read Get_AdvancedSettings2;
property SecuredSettings2: IMsRdpClientSecuredSettings read Get_SecuredSettings2;
property ExtendedDisconnectReason: ExtendedDisconnectReasonCode read Get_ExtendedDisconnectReason;
property FullScreen: WordBool read Get_FullScreen write Set_FullScreen;
end;

// *********************************************************************//
// DispIntf: IMsRdpClientDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {92B4A539-7115-4B7C-A5A9-E5D9EFC2780A}
// *********************************************************************//
IMsRdpClientDisp = dispinterface
['{92B4A539-7115-4B7C-A5A9-E5D9EFC2780A}']
property ColorDepth: Integer dispid 100;
property AdvancedSettings2: IMsRdpClientAdvancedSettings readonly dispid 101;
property SecuredSettings2: IMsRdpClientSecuredSettings readonly dispid 102;
property ExtendedDisconnectReason: ExtendedDisconnectReasonCode readonly dispid 103;
property FullScreen: WordBool dispid 104;
procedure SetVirtualChannelOptions(const chanName: WideString; chanOptions: Integer); dispid 35;
function GetVirtualChannelOptions(const chanName: WideString): Integer; dispid 36;
function RequestClose: ControlCloseStatus; dispid 37;
property Server: WideString dispid 1;
property Domain: WideString dispid 2;
property UserName: WideString dispid 3;
property DisconnectedText: WideString dispid 4;
property ConnectingText: WideString dispid 5;
property Connected: Smallint readonly dispid 6;
property DesktopWidth: Integer dispid 12;
property DesktopHeight: Integer dispid 13;
property StartConnected: Integer dispid 16;
property HorizontalScrollBarVisible: Integer readonly dispid 17;
property VerticalScrollBarVisible: Integer readonly dispid 18;
property FullScreenTitle: WideString writeonly dispid 19;
property CipherStrength: Integer readonly dispid 20;
property Version: WideString readonly dispid 21;
property SecuredSettingsEnabled: Integer readonly dispid 22;
property SecuredSettings: IMsTscSecuredSettings readonly dispid 97;
property AdvancedSettings: IMsTscAdvancedSettings readonly dispid 98;
property Debugger: IMsTscDebug readonly dispid 99;
procedure Connect; dispid 30;
procedure Disconnect; dispid 31;
procedure CreateVirtualChannels(const newVal: WideString); dispid 33;
procedure SendOnVirtualChannel(const chanName: WideString; const ChanData: WideString); dispid 34;
end;

// *********************************************************************//
// Interface: IMsTscNonScriptable
// Flags: (0)
// GUID: {C1E6743A-41C1-4A74-832A-0DD06C1C7A0E}
// *********************************************************************//
IMsTscNonScriptable = interface(IUnknown)
['{C1E6743A-41C1-4A74-832A-0DD06C1C7A0E}']
function Set_ClearTextPassword(const Param1: WideString): HResult; stdcall;
function Set_PortablePassword(const pPortablePass: WideString): HResult; stdcall;
function Get_PortablePassword(out pPortablePass: WideString): HResult; stdcall;
function Set_PortableSalt(const pPortableSalt: WideString): HResult; stdcall;
function Get_PortableSalt(out pPortableSalt: WideString): HResult; stdcall;
function Set_BinaryPassword(const pBinaryPassword: WideString): HResult; stdcall;
function Get_BinaryPassword(out pBinaryPassword: WideString): HResult; stdcall;
function Set_BinarySalt(const pSalt: WideString): HResult; stdcall;
function Get_BinarySalt(out pSalt: WideString): HResult; stdcall;
function ResetPassword: HResult; stdcall;
end;

// *********************************************************************//
// Interface: IMsTscSecuredSettings
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {C9D65442-A0F9-45B2-8F73-D61D2DB8CBB6}
// *********************************************************************//
IMsTscSecuredSettings = interface(IDispatch)
['{C9D65442-A0F9-45B2-8F73-D61D2DB8CBB6}']
procedure Set_StartProgram(const pStartProgram: WideString); safecall;
function Get_StartProgram: WideString; safecall;
procedure Set_WorkDir(const pWorkDir: WideString); safecall;
function Get_WorkDir: WideString; safecall;
procedure Set_FullScreen(pfFullScreen: Integer); safecall;
function Get_FullScreen: Integer; safecall;
property StartProgram: WideString read Get_StartProgram write Set_StartProgram;
property WorkDir: WideString read Get_WorkDir write Set_WorkDir;
property FullScreen: Integer read Get_FullScreen write Set_FullScreen;
end;

// *********************************************************************//
// DispIntf: IMsTscSecuredSettingsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {C9D65442-A0F9-45B2-8F73-D61D2DB8CBB6}
// *********************************************************************//
IMsTscSecuredSettingsDisp = dispinterface
['{C9D65442-A0F9-45B2-8F73-D61D2DB8CBB6}']
property StartProgram: WideString dispid 1;
property WorkDir: WideString dispid 2;
property FullScreen: Integer dispid 3;
end;

// *********************************************************************//
// Interface: IMsTscAdvancedSettings
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {809945CC-4B3B-4A92-A6B0-DBF9B5F2EF2D}
// *********************************************************************//
IMsTscAdvancedSettings = interface(IDispatch)
['{809945CC-4B3B-4A92-A6B0-DBF9B5F2EF2D}']
procedure Set_Compress(pcompress: Integer); safecall;
function Get_Compress: Integer; safecall;
procedure Set_BitmapPeristence(pbitmapPeristence: Integer); safecall;
function Get_BitmapPeristence: Integer; safecall;
procedure Set_allowBackgroundInput(pallowBackgroundInput: Integer); safecall;
function Get_allowBackgroundInput: Integer; safecall;
procedure Set_KeyBoardLayoutStr(const Param1: WideString); safecall;
procedure Set_PluginDlls(const Param1: WideString); safecall;
procedure Set_IconFile(const Param1: WideString); safecall;
procedure Set_IconIndex(Param1: Integer); safecall;
procedure Set_ContainerHandledFullScreen(pContainerHandledFullScreen: Integer); safecall;
function Get_ContainerHandledFullScreen: Integer; safecall;
procedure Set_DisableRdpdr(pDisableRdpdr: Integer); safecall;
function Get_DisableRdpdr: Integer; safecall;
property Compress: Integer read Get_Compress write Set_Compress;
property BitmapPeristence: Integer read Get_BitmapPeristence write Set_BitmapPeristence;
property allowBackgroundInput: Integer read Get_allowBackgroundInput write Set_allowBackgroundInput;
property KeyBoardLayoutStr: WideString write Set_KeyBoardLayoutStr;
property PluginDlls: WideString write Set_PluginDlls;
property IconFile: WideString write Set_IconFile;
property IconIndex: Integer write Set_IconIndex;
property ContainerHandledFullScreen: Integer read Get_ContainerHandledFullScreen write Set_ContainerHandledFullScreen;
property DisableRdpdr: Integer read Get_DisableRdpdr write Set_DisableRdpdr;
end;

// *********************************************************************//
// DispIntf: IMsTscAdvancedSettingsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {809945CC-4B3B-4A92-A6B0-DBF9B5F2EF2D}
// *********************************************************************//
IMsTscAdvancedSettingsDisp = dispinterface
['{809945CC-4B3B-4A92-A6B0-DBF9B5F2EF2D}']
property Compress: Integer dispid 121;
property BitmapPeristence: Integer dispid 122;
property allowBackgroundInput: Integer dispid 161;
property KeyBoardLayoutStr: WideString writeonly dispid 162;
property PluginDlls: WideString writeonly dispid 170;
property IconFile: WideString writeonly dispid 171;
property IconIndex: Integer writeonly dispid 172;
property ContainerHandledFullScreen: Integer dispid 173;
property DisableRdpdr: Integer dispid 174;
end;

// *********************************************************************//
// Interface: IMsTscDebug
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {209D0EB9-6254-47B1-9033-A98DAE55BB27}
// *********************************************************************//
IMsTscDebug = interface(IDispatch)
['{209D0EB9-6254-47B1-9033-A98DAE55BB27}']
procedure Set_HatchBitmapPDU(phatchBitmapPDU: Integer); safecall;
function Get_HatchBitmapPDU: Integer; safecall;
procedure Set_HatchSSBOrder(phatchSSBOrder: Integer); safecall;
function Get_HatchSSBOrder: Integer; safecall;
procedure Set_HatchMembltOrder(phatchMembltOrder: Integer); safecall;
function Get_HatchMembltOrder: Integer; safecall;
procedure Set_HatchIndexPDU(phatchIndexPDU: Integer); safecall;
function Get_HatchIndexPDU: Integer; safecall;
procedure Set_LabelMemblt(plabelMemblt: Integer); safecall;
function Get_LabelMemblt: Integer; safecall;
procedure Set_BitmapCacheMonitor(pbitmapCacheMonitor: Integer); safecall;
function Get_BitmapCacheMonitor: Integer; safecall;
procedure Set_MallocFailuresPercent(pmallocFailuresPercent: Integer); safecall;
function Get_MallocFailuresPercent: Integer; safecall;
procedure Set_MallocHugeFailuresPercent(pmallocHugeFailuresPercent: Integer); safecall;
function Get_MallocHugeFailuresPercent: Integer; safecall;
procedure Set_NetThroughput(NetThroughput: Integer); safecall;
function Get_NetThroughput: Integer; safecall;
procedure Set_CLXCmdLine(const pCLXCmdLine: WideString); safecall;
function Get_CLXCmdLine: WideString; safecall;
procedure Set_CLXDll(const pCLXDll: WideString); safecall;
function Get_CLXDll: WideString; safecall;
procedure Set_RemoteProgramsHatchVisibleRegion(pcbHatch: Integer); safecall;
function Get_RemoteProgramsHatchVisibleRegion: Integer; safecall;
procedure Set_RemoteProgramsHatchVisibleNoDataRegion(pcbHatch: Integer); safecall;
function Get_RemoteProgramsHatchVisibleNoDataRegion: Integer; safecall;
procedure Set_RemoteProgramsHatchNonVisibleRegion(pcbHatch: Integer); safecall;
function Get_RemoteProgramsHatchNonVisibleRegion: Integer; safecall;
procedure Set_RemoteProgramsHatchWindow(pcbHatch: Integer); safecall;
function Get_RemoteProgramsHatchWindow: Integer; safecall;
procedure Set_RemoteProgramsStayConnectOnBadCaps(pcbStayConnected: Integer); safecall;
function Get_RemoteProgramsStayConnectOnBadCaps: Integer; safecall;
function Get_ControlType: SYSUINT; safecall;
procedure Set_DecodeGfx(Param1: WordBool); safecall;
property HatchBitmapPDU: Integer read Get_HatchBitmapPDU write Set_HatchBitmapPDU;
property HatchSSBOrder: Integer read Get_HatchSSBOrder write Set_HatchSSBOrder;
property HatchMembltOrder: Integer read Get_HatchMembltOrder write Set_HatchMembltOrder;
property HatchIndexPDU: Integer read Get_HatchIndexPDU write Set_HatchIndexPDU;
property LabelMemblt: Integer read Get_LabelMemblt write Set_LabelMemblt;
property BitmapCacheMonitor: Integer read Get_BitmapCacheMonitor write Set_BitmapCacheMonitor;
property MallocFailuresPercent: Integer read Get_MallocFailuresPercent write Set_MallocFailuresPercent;
property MallocHugeFailuresPercent: Integer read Get_MallocHugeFailuresPercent write Set_MallocHugeFailuresPercent;
property NetThroughput: Integer read Get_NetThroughput write Set_NetThroughput;
property CLXCmdLine: WideString read Get_CLXCmdLine write Set_CLXCmdLine;
property CLXDll: WideString read Get_CLXDll write Set_CLXDll;
property RemoteProgramsHatchVisibleRegion: Integer read Get_RemoteProgramsHatchVisibleRegion write Set_RemoteProgramsHatchVisibleRegion;
property RemoteProgramsHatchVisibleNoDataRegion: Integer read Get_RemoteProgramsHatchVisibleNoDataRegion write Set_RemoteProgramsHatchVisibleNoDataRegion;
property RemoteProgramsHatchNonVisibleRegion: Integer read Get_RemoteProgramsHatchNonVisibleRegion write Set_RemoteProgramsHatchNonVisibleRegion;
property RemoteProgramsHatchWindow: Integer read Get_RemoteProgramsHatchWindow write Set_RemoteProgramsHatchWindow;
property RemoteProgramsStayConnectOnBadCaps: Integer read Get_RemoteProgramsStayConnectOnBadCaps write Set_RemoteProgramsStayConnectOnBadCaps;
property ControlType: SYSUINT read Get_ControlType;
property DecodeGfx: WordBool write Set_DecodeGfx;
end;

// *********************************************************************//
// DispIntf: IMsTscDebugDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {209D0EB9-6254-47B1-9033-A98DAE55BB27}
// *********************************************************************//
IMsTscDebugDisp = dispinterface
['{209D0EB9-6254-47B1-9033-A98DAE55BB27}']
property HatchBitmapPDU: Integer dispid 200;
property HatchSSBOrder: Integer dispid 201;
property HatchMembltOrder: Integer dispid 202;
property HatchIndexPDU: Integer dispid 203;
property LabelMemblt: Integer dispid 204;
property BitmapCacheMonitor: Integer dispid 205;
property MallocFailuresPercent: Integer dispid 206;
property MallocHugeFailuresPercent: Integer dispid 207;
property NetThroughput: Integer dispid 208;
property CLXCmdLine: WideString dispid 209;
property CLXDll: WideString dispid 210;
property RemoteProgramsHatchVisibleRegion: Integer dispid 211;
property RemoteProgramsHatchVisibleNoDataRegion: Integer dispid 212;
property RemoteProgramsHatchNonVisibleRegion: Integer dispid 213;
property RemoteProgramsHatchWindow: Integer dispid 214;
property RemoteProgramsStayConnectOnBadCaps: Integer dispid 215;
property ControlType: SYSUINT readonly dispid 216;
property DecodeGfx: WordBool writeonly dispid 217;
end;

// *********************************************************************//
// Interface: IMsRdpClientAdvancedSettings
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {3C65B4AB-12B3-465B-ACD4-B8DAD3BFF9E2}
// *********************************************************************//
IMsRdpClientAdvancedSettings = interface(IMsTscAdvancedSettings)
['{3C65B4AB-12B3-465B-ACD4-B8DAD3BFF9E2}']
procedure Set_SmoothScroll(psmoothScroll: Integer); safecall;
function Get_SmoothScroll: Integer; safecall;
procedure Set_AcceleratorPassthrough(pacceleratorPassthrough: Integer); safecall;
function Get_AcceleratorPassthrough: Integer; safecall;
procedure Set_ShadowBitmap(pshadowBitmap: Integer); safecall;
function Get_ShadowBitmap: Integer; safecall;
procedure Set_TransportType(ptransportType: Integer); safecall;
function Get_TransportType: Integer; safecall;
procedure Set_SasSequence(psasSequence: Integer); safecall;
function Get_SasSequence: Integer; safecall;
procedure Set_EncryptionEnabled(pencryptionEnabled: Integer); safecall;
function Get_EncryptionEnabled: Integer; safecall;
procedure Set_DedicatedTerminal(pdedicatedTerminal: Integer); safecall;
function Get_DedicatedTerminal: Integer; safecall;
procedure Set_RDPPort(prdpPort: Integer); safecall;
function Get_RDPPort: Integer; safecall;
procedure Set_EnableMouse(penableMouse: Integer); safecall;
function Get_EnableMouse: Integer; safecall;
procedure Set_DisableCtrlAltDel(pdisableCtrlAltDel: Integer); safecall;
function Get_DisableCtrlAltDel: Integer; safecall;
procedure Set_EnableWindowsKey(penableWindowsKey: Integer); safecall;
function Get_EnableWindowsKey: Integer; safecall;
procedure Set_DoubleClickDetect(pdoubleClickDetect: Integer); safecall;
function Get_DoubleClickDetect: Integer; safecall;
procedure Set_MaximizeShell(pmaximizeShell: Integer); safecall;
function Get_MaximizeShell: Integer; safecall;
procedure Set_HotKeyFullScreen(photKeyFullScreen: Integer); safecall;
function Get_HotKeyFullScreen: Integer; safecall;
procedure Set_HotKeyCtrlEsc(photKeyCtrlEsc: Integer); safecall;
function Get_HotKeyCtrlEsc: Integer; safecall;
procedure Set_HotKeyAltEsc(photKeyAltEsc: Integer); safecall;
function Get_HotKeyAltEsc: Integer; safecall;
procedure Set_HotKeyAltTab(photKeyAltTab: Integer); safecall;
function Get_HotKeyAltTab: Integer; safecall;
procedure Set_HotKeyAltShiftTab(photKeyAltShiftTab: Integer); safecall;
function Get_HotKeyAltShiftTab: Integer; safecall;
procedure Set_HotKeyAltSpace(photKeyAltSpace: Integer); safecall;
function Get_HotKeyAltSpace: Integer; safecall;
procedure Set_HotKeyCtrlAltDel(photKeyCtrlAltDel: Integer); safecall;
function Get_HotKeyCtrlAltDel: Integer; safecall;
procedure Set_orderDrawThreshold(porderDrawThreshold: Integer); safecall;
function Get_orderDrawThreshold: Integer; safecall;
procedure Set_BitmapCacheSize(pbitmapCacheSize: Integer); safecall;
function Get_BitmapCacheSize: Integer; safecall;
procedure Set_BitmapVirtualCacheSize(pbitmapVirtualCacheSize: Integer); safecall;
function Get_BitmapVirtualCacheSize: Integer; safecall;
procedure Set_ScaleBitmapCachesByBPP(pbScale: Integer); safecall;
function Get_ScaleBitmapCachesByBPP: Integer; safecall;
procedure Set_NumBitmapCaches(pnumBitmapCaches: Integer); safecall;
function Get_NumBitmapCaches: Integer; safecall;
procedure Set_CachePersistenceActive(pcachePersistenceActive: Integer); safecall;
function Get_CachePersistenceActive: Integer; safecall;
procedure Set_PersistCacheDirectory(const Param1: WideString); safecall;
procedure Set_brushSupportLevel(pbrushSupportLevel: Integer); safecall;
function Get_brushSupportLevel: Integer; safecall;
procedure Set_minInputSendInterval(pminInputSendInterval: Integer); safecall;
function Get_minInputSendInterval: Integer; safecall;
procedure Set_InputEventsAtOnce(pinputEventsAtOnce: Integer); safecall;
function Get_InputEventsAtOnce: Integer; safecall;
procedure Set_maxEventCount(pmaxEventCount: Integer); safecall;
function Get_maxEventCount: Integer; safecall;
procedure Set_keepAliveInterval(pkeepAliveInterval: Integer); safecall;
function Get_keepAliveInterval: Integer; safecall;
procedure Set_shutdownTimeout(pshutdownTimeout: Integer); safecall;
function Get_shutdownTimeout: Integer; safecall;
procedure Set_overallConnectionTimeout(poverallConnectionTimeout: Integer); safecall;
function Get_overallConnectionTimeout: Integer; safecall;
procedure Set_singleConnectionTimeout(psingleConnectionTimeout: Integer); safecall;
function Get_singleConnectionTimeout: Integer; safecall;
procedure Set_KeyboardType(pkeyboardType: Integer); safecall;
function Get_KeyboardType: Integer; safecall;
procedure Set_KeyboardSubType(pkeyboardSubType: Integer); safecall;
function Get_KeyboardSubType: Integer; safecall;
procedure Set_KeyboardFunctionKey(pkeyboardFunctionKey: Integer); safecall;
function Get_KeyboardFunctionKey: Integer; safecall;
procedure Set_WinceFixedPalette(pwinceFixedPalette: Integer); safecall;
function Get_WinceFixedPalette: Integer; safecall;
procedure Set_ConnectToServerConsole(pConnectToConsole: WordBool); safecall;
function Get_ConnectToServerConsole: WordBool; safecall;
procedure Set_BitmapPersistence(pbitmapPersistence: Integer); safecall;
function Get_BitmapPersistence: Integer; safecall;
procedure Set_MinutesToIdleTimeout(pminutesToIdleTimeout: Integer); safecall;
function Get_MinutesToIdleTimeout: Integer; safecall;
procedure Set_SmartSizing(pfSmartSizing: WordBool); safecall;
function Get_SmartSizing: WordBool; safecall;
procedure Set_RdpdrLocalPrintingDocName(const pLocalPrintingDocName: WideString); safecall;
function Get_RdpdrLocalPrintingDocName: WideString; safecall;
procedure Set_RdpdrClipCleanTempDirString(const clipCleanTempDirString: WideString); safecall;
function Get_RdpdrClipCleanTempDirString: WideString; safecall;
procedure Set_RdpdrClipPasteInfoString(const clipPasteInfoString: WideString); safecall;
function Get_RdpdrClipPasteInfoString: WideString; safecall;
procedure Set_ClearTextPassword(const Param1: WideString); safecall;
procedure Set_DisplayConnectionBar(pDisplayConnectionBar: WordBool); safecall;
function Get_DisplayConnectionBar: WordBool; safecall;
procedure Set_PinConnectionBar(pPinConnectionBar: WordBool); safecall;
function Get_PinConnectionBar: WordBool; safecall;
procedure Set_GrabFocusOnConnect(pfGrabFocusOnConnect: WordBool); safecall;
function Get_GrabFocusOnConnect: WordBool; safecall;
procedure Set_LoadBalanceInfo(const pLBInfo: WideString); safecall;
function Get_LoadBalanceInfo: WideString; safecall;
procedure Set_RedirectDrives(pRedirectDrives: WordBool); safecall;
function Get_RedirectDrives: WordBool; safecall;
procedure Set_RedirectPrinters(pRedirectPrinters: WordBool); safecall;
function Get_RedirectPrinters: WordBool; safecall;
procedure Set_RedirectPorts(pRedirectPorts: WordBool); safecall;
function Get_RedirectPorts: WordBool; safecall;
procedure Set_RedirectSmartCards(pRedirectSmartCards: WordBool); safecall;
function Get_RedirectSmartCards: WordBool; safecall;
procedure Set_BitmapVirtualCache16BppSize(pBitmapVirtualCache16BppSize: Integer); safecall;
function Get_BitmapVirtualCache16BppSize: Integer; safecall;
procedure Set_BitmapVirtualCache24BppSize(pBitmapVirtualCache24BppSize: Integer); safecall;
function Get_BitmapVirtualCache24BppSize: Integer; safecall;
procedure Set_PerformanceFlags(pDisableList: Integer); safecall;
function Get_PerformanceFlags: Integer; safecall;
procedure Set_ConnectWithEndpoint(const Param1: OleVariant); safecall;
procedure Set_NotifyTSPublicKey(pfNotify: WordBool); safecall;
function Get_NotifyTSPublicKey: WordBool; safecall;
property SmoothScroll: Integer read Get_SmoothScroll write Set_SmoothScroll;
property AcceleratorPassthrough: Integer read Get_AcceleratorPassthrough write Set_AcceleratorPassthrough;
property ShadowBitmap: Integer read Get_ShadowBitmap write Set_ShadowBitmap;
property TransportType: Integer read Get_TransportType write Set_TransportType;
property SasSequence: Integer read Get_SasSequence write Set_SasSequence;
property EncryptionEnabled: Integer read Get_EncryptionEnabled write Set_EncryptionEnabled;
property DedicatedTerminal: Integer read Get_DedicatedTerminal write Set_DedicatedTerminal;
property RDPPort: Integer read Get_RDPPort write Set_RDPPort;
property EnableMouse: Integer read Get_EnableMouse write Set_EnableMouse;
property DisableCtrlAltDel: Integer read Get_DisableCtrlAltDel write Set_DisableCtrlAltDel;
property EnableWindowsKey: Integer read Get_EnableWindowsKey write Set_EnableWindowsKey;
property DoubleClickDetect: Integer read Get_DoubleClickDetect write Set_DoubleClickDetect;
property MaximizeShell: Integer read Get_MaximizeShell write Set_MaximizeShell;
property HotKeyFullScreen: Integer read Get_HotKeyFullScreen write Set_HotKeyFullScreen;
property HotKeyCtrlEsc: Integer read Get_HotKeyCtrlEsc write Set_HotKeyCtrlEsc;
property HotKeyAltEsc: Integer read Get_HotKeyAltEsc write Set_HotKeyAltEsc;
property HotKeyAltTab: Integer read Get_HotKeyAltTab write Set_HotKeyAltTab;
property HotKeyAltShiftTab: Integer read Get_HotKeyAltShiftTab write Set_HotKeyAltShiftTab;
property HotKeyAltSpace: Integer read Get_HotKeyAltSpace write Set_HotKeyAltSpace;
property HotKeyCtrlAltDel: Integer read Get_HotKeyCtrlAltDel write Set_HotKeyCtrlAltDel;
property orderDrawThreshold: Integer read Get_orderDrawThreshold write Set_orderDrawThreshold;
property BitmapCacheSize: Integer read Get_BitmapCacheSize write Set_BitmapCacheSize;
property BitmapVirtualCacheSize: Integer read Get_BitmapVirtualCacheSize write Set_BitmapVirtualCacheSize;
property ScaleBitmapCachesByBPP: Integer read Get_ScaleBitmapCachesByBPP write Set_ScaleBitmapCachesByBPP;
property NumBitmapCaches: Integer read Get_NumBitmapCaches write Set_NumBitmapCaches;
property CachePersistenceActive: Integer read Get_CachePersistenceActive write Set_CachePersistenceActive;
property PersistCacheDirectory: WideString write Set_PersistCacheDirectory;
property brushSupportLevel: Integer read Get_brushSupportLevel write Set_brushSupportLevel;
property minInputSendInterval: Integer read Get_minInputSendInterval write Set_minInputSendInterval;
property InputEventsAtOnce: Integer read Get_InputEventsAtOnce write Set_InputEventsAtOnce;
property maxEventCount: Integer read Get_maxEventCount write Set_maxEventCount;
property keepAliveInterval: Integer read Get_keepAliveInterval write Set_keepAliveInterval;
property shutdownTimeout: Integer read Get_shutdownTimeout write Set_shutdownTimeout;
property overallConnectionTimeout: Integer read Get_overallConnectionTimeout write Set_overallConnectionTimeout;
property singleConnectionTimeout: Integer read Get_singleConnectionTimeout write Set_singleConnectionTimeout;
property KeyboardType: Integer read Get_KeyboardType write Set_KeyboardType;
property KeyboardSubType: Integer read Get_KeyboardSubType write Set_KeyboardSubType;
property KeyboardFunctionKey: Integer read Get_KeyboardFunctionKey write Set_KeyboardFunctionKey;
property WinceFixedPalette: Integer read Get_WinceFixedPalette write Set_WinceFixedPalette;
property ConnectToServerConsole: WordBool read Get_ConnectToServerConsole write Set_ConnectToServerConsole;
property BitmapPersistence: Integer read Get_BitmapPersistence write Set_BitmapPersistence;
property MinutesToIdleTimeout: Integer read Get_MinutesToIdleTimeout write Set_MinutesToIdleTimeout;
property SmartSizing: WordBool read Get_SmartSizing write Set_SmartSizing;
property RdpdrLocalPrintingDocName: WideString read Get_RdpdrLocalPrintingDocName write Set_RdpdrLocalPrintingDocName;
property RdpdrClipCleanTempDirString: WideString read Get_RdpdrClipCleanTempDirString write Set_RdpdrClipCleanTempDirString;
property RdpdrClipPasteInfoString: WideString read Get_RdpdrClipPasteInfoString write Set_RdpdrClipPasteInfoString;
property ClearTextPassword: WideString write Set_ClearTextPassword;
property DisplayConnectionBar: WordBool read Get_DisplayConnectionBar write Set_DisplayConnectionBar;
property PinConnectionBar: WordBool read Get_PinConnectionBar write Set_PinConnectionBar;
property GrabFocusOnConnect: WordBool read Get_GrabFocusOnConnect write Set_GrabFocusOnConnect;
property LoadBalanceInfo: WideString read Get_LoadBalanceInfo write Set_LoadBalanceInfo;
property RedirectDrives: WordBool read Get_RedirectDrives write Set_RedirectDrives;
property RedirectPrinters: WordBool read Get_RedirectPrinters write Set_RedirectPrinters;
property RedirectPorts: WordBool read Get_RedirectPorts write Set_RedirectPorts;
property RedirectSmartCards: WordBool read Get_RedirectSmartCards write Set_RedirectSmartCards;
property BitmapVirtualCache16BppSize: Integer read Get_BitmapVirtualCache16BppSize write Set_BitmapVirtualCache16BppSize;
property BitmapVirtualCache24BppSize: Integer read Get_BitmapVirtualCache24BppSize write Set_BitmapVirtualCache24BppSize;
property PerformanceFlags: Integer read Get_PerformanceFlags write Set_PerformanceFlags;
property ConnectWithEndpoint: OleVariant write Set_ConnectWithEndpoint;
property NotifyTSPublicKey: WordBool read Get_NotifyTSPublicKey write Set_NotifyTSPublicKey;
end;

// *********************************************************************//
// DispIntf: IMsRdpClientAdvancedSettingsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {3C65B4AB-12B3-465B-ACD4-B8DAD3BFF9E2}
// *********************************************************************//
IMsRdpClientAdvancedSettingsDisp = dispinterface
['{3C65B4AB-12B3-465B-ACD4-B8DAD3BFF9E2}']
property SmoothScroll: Integer dispid 101;
property AcceleratorPassthrough: Integer dispid 102;
property ShadowBitmap: Integer dispid 103;
property TransportType: Integer dispid 104;
property SasSequence: Integer dispid 105;
property EncryptionEnabled: Integer dispid 106;
property DedicatedTerminal: Integer dispid 107;
property RDPPort: Integer dispid 108;
property EnableMouse: Integer dispid 109;
property DisableCtrlAltDel: Integer dispid 110;
property EnableWindowsKey: Integer dispid 111;
property DoubleClickDetect: Integer dispid 112;
property MaximizeShell: Integer dispid 113;
property HotKeyFullScreen: Integer dispid 114;
property HotKeyCtrlEsc: Integer dispid 115;
property HotKeyAltEsc: Integer dispid 116;
property HotKeyAltTab: Integer dispid 117;
property HotKeyAltShiftTab: Integer dispid 118;
property HotKeyAltSpace: Integer dispid 119;
property HotKeyCtrlAltDel: Integer dispid 120;
property orderDrawThreshold: Integer dispid 123;
property BitmapCacheSize: Integer dispid 124;
property BitmapVirtualCacheSize: Integer dispid 125;
property ScaleBitmapCachesByBPP: Integer dispid 175;
property NumBitmapCaches: Integer dispid 126;
property CachePersistenceActive: Integer dispid 127;
property PersistCacheDirectory: WideString writeonly dispid 138;
property brushSupportLevel: Integer dispid 156;
property minInputSendInterval: Integer dispid 157;
property InputEventsAtOnce: Integer dispid 158;
property maxEventCount: Integer dispid 159;
property keepAliveInterval: Integer dispid 160;
property shutdownTimeout: Integer dispid 163;
property overallConnectionTimeout: Integer dispid 164;
property singleConnectionTimeout: Integer dispid 165;
property KeyboardType: Integer dispid 166;
property KeyboardSubType: Integer dispid 167;
property KeyboardFunctionKey: Integer dispid 168;
property WinceFixedPalette: Integer dispid 169;
property ConnectToServerConsole: WordBool dispid 178;
property BitmapPersistence: Integer dispid 182;
property MinutesToIdleTimeout: Integer dispid 183;
property SmartSizing: WordBool dispid 184;
property RdpdrLocalPrintingDocName: WideString dispid 185;
property RdpdrClipCleanTempDirString: WideString dispid 201;
property RdpdrClipPasteInfoString: WideString dispid 202;
property ClearTextPassword: WideString writeonly dispid 186;
property DisplayConnectionBar: WordBool dispid 187;
property PinConnectionBar: WordBool dispid 188;
property GrabFocusOnConnect: WordBool dispid 189;
property LoadBalanceInfo: WideString dispid 190;
property RedirectDr

Мини-форум вопроса

30 июня 2016, 10:59: Статус вопроса изменён на решённый (изменил автор вопроса — Aндрей)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 6 633

Мини-форум вопроса

Экспертная система Delphi.int.ru

Сообщество программистовОбщение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 6 633

Мини-форум вопроса

Сообщество программистов
Общение, помощь, обмен опытом