From 5976db569232cc4d3e0ed917fdc66b12952bdab1 Mon Sep 17 00:00:00 2001 From: Jonathan Dionne Date: Fri, 26 Jun 2020 06:25:47 -0400 Subject: [PATCH 1/2] Remove ActiveX Warning --- src-rdpcheck/MainUnit.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src-rdpcheck/MainUnit.pas b/src-rdpcheck/MainUnit.pas index 3c4655f..887467b 100644 --- a/src-rdpcheck/MainUnit.pas +++ b/src-rdpcheck/MainUnit.pas @@ -24,7 +24,7 @@ uses type TFrm = class(TForm) - RDP: TMsRdpClient2; + RDP: TMsRdpClient2NotSafeForScripting; procedure RDPDisconnected(ASender: TObject; discReason: Integer); procedure FormCreate(Sender: TObject); private From ea376cc43c93588a06dce0e7d0a1e36487c6c956 Mon Sep 17 00:00:00 2001 From: Jonathan Dionne Date: Fri, 26 Jun 2020 06:30:08 -0400 Subject: [PATCH 2/2] Update MainUnit.dfm --- src-rdpcheck/MainUnit.dfm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src-rdpcheck/MainUnit.dfm b/src-rdpcheck/MainUnit.dfm index 2533973..1a2e133 100644 --- a/src-rdpcheck/MainUnit.dfm +++ b/src-rdpcheck/MainUnit.dfm @@ -17,11 +17,12 @@ object Frm: TFrm OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 - object RDP: TMsRdpClient2 + object RDP: TMsRdpClient2NotSafeForScripting Left = 0 Top = 0 Width = 640 Height = 480 + Align = alClient TabOrder = 0 OnDisconnected = RDPDisconnected ControlData = {0003000008000200000000000B0000000B000000}