github/rdpwrap
1
0
Fork 0
mirror of https://github.com/stascorp/rdpwrap.git synced 2025-08-20 21:33:42 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update apps

Browse source
This commit is contained in:
binarymaster 2015-07-16 23:17:41 +03:00
commit adabe322c3
6 changed files with 52 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src-rdpconfig/MainUnit.dfm
View file

@ -3,7 +3,7 @@ object MainForm: TMainForm
Top = 0
BorderStyle = bsDialog
Caption = 'RDP Wrapper Configuration'
ClientHeight = 326
ClientHeight = 352
ClientWidth = 351
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
@ -27,7 +27,7 @@ object MainForm: TMainForm
end
object bOK: TButton
Left = 10
Top = 293
Top = 319
Width = 75
Height = 25
Caption = 'OK'
@ -37,7 +37,7 @@ object MainForm: TMainForm
end
object bCancel: TButton
Left = 91
Top = 293
Top = 319
Width = 75
Height = 25
Caption = 'Cancel'
@ -47,7 +47,7 @@ object MainForm: TMainForm
end
object bApply: TButton
Left = 172
Top = 293
Top = 319
Width = 75
Height = 25
Caption = 'Apply'
@ -66,7 +66,7 @@ object MainForm: TMainForm
end
object rgNLA: TRadioGroup
Left = 8
Top = 135
Top = 132
Width = 335
Height = 73
Caption = 'Security Mode'
@ -88,14 +88,16 @@ object MainForm: TMainForm
end
object rgShadow: TRadioGroup
Left = 8
Top = 214
Top = 208
Width = 335
Height = 73
Height = 105
Caption = 'Session Shadowing Mode'
Items.Strings = (
'Disable Shadowing'
'Shadowing will request user'#39's permission'
'Shadow sessions immediately')
'Full access with user'#39's permission'
'Full access without permission'
'View only with user'#39's permission'
'View only without permission')
TabOrder = 6
OnClick = cbAllowTSConnectionsClick
end
@ -112,7 +114,7 @@ object MainForm: TMainForm
end
object bLicense: TButton
Left = 253
Top = 293
Top = 319
Width = 87
Height = 25
Caption = 'View license...'

11
src-rdpconfig/MainUnit.pas
View file

@ -1,5 +1,5 @@
{
Copyright 2014 Stas'M Corp.
Copyright 2015 Stas'M Corp.
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
@ -439,6 +439,15 @@ begin
end;
end;
Reg.CloseKey;
Reg.OpenKey('\SOFTWARE\Policies\Microsoft\Windows NT\Terminal Services', True);
if rgShadow.ItemIndex >= 0 then begin
try
Reg.WriteInteger('Shadow', rgShadow.ItemIndex);
except
end;
end;
Reg.CloseKey;
Reg.Free;
end;