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

RDPConf: Add feature to hide users on logon

Browse source
This commit is contained in:
binarymaster 2016-07-23 22:08:44 +03:00
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;