Mirrored_Repos/rdpwrap
1
0
Fork 0
mirror of https://github.com/stascorp/rdpwrap.git synced 2025-12-23 21:20:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

RDPConf: Add feature to hide users on logon

Browse Source
This commit is contained in:
binarymaster
2016-07-23 22:08:44 +03:00
parent 2d482b29be
commit 3edd0e5300
2 changed files with 105 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src-rdpconfig/MainUnit.pas
View File

@@ -47,6 +47,8 @@ type
bLicense: TButton;
gbDiag: TGroupBox;
lsSuppVer: TLabel;
cbHideUsers: TCheckBox;
gbGeneral: TGroupBox;
procedure FormCreate(Sender: TObject);
procedure cbAllowTSConnectionsClick(Sender: TObject);
procedure seRDPPortChange(Sender: TObject);
@@ -400,6 +402,13 @@ begin
rgShadow.ItemIndex := Reg.ReadInteger('Shadow');
except
end;
Reg.CloseKey;
Reg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System');
try
cbHideUsers.Checked := Reg.ReadBool('dontdisplaylastusername');
except
end;
Reg.CloseKey;
Reg.Free;
@@ -477,6 +486,13 @@ begin
except
end;
end;
Reg.CloseKey;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System', True);
try
Reg.WriteBool('dontdisplaylastusername', cbHideUsers.Checked);
except
end;
Reg.CloseKey;
Reg.Free;