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

Added license info

Browse source 
Now license can be viewed in applications
This commit is contained in:
binarymaster 2014-11-20 16:36:04 +03:00
commit 64b3bf8bc1
14 changed files with 172 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

31
src-rdpconfig/MainUnit.pas
View file

@ -33,6 +33,7 @@ type
rgShadow: TRadioGroup;
seRDPPort: TSpinEdit;
lRDPPort: TLabel;
bLicense: TButton;
procedure FormCreate(Sender: TObject);
procedure cbAllowTSConnectionsClick(Sender: TObject);
procedure seRDPPortChange(Sender: TObject);
@ -40,6 +41,7 @@ type
procedure bCancelClick(Sender: TObject);
procedure bOKClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure bLicenseClick(Sender: TObject);
private
{ Private declarations }
public
@ -55,7 +57,27 @@ var
implementation
{$R *.dfm}
{$R manifest.res}
{$R resource.res}
uses
LicenseUnit;
function ExtractResText(ResName: String): String;
var
ResStream: TResourceStream;
Str: TStringList;
begin
ResStream := TResourceStream.Create(HInstance, ResName, RT_RCDATA);
Str := TStringList.Create;
try
Str.LoadFromStream(ResStream);
except
end;
ResStream.Free;
Result := Str.Text;
Str.Free;
end;
procedure TMainForm.ReadSettings;
var
@ -170,6 +192,13 @@ begin
Reg.Free;
end;
procedure TMainForm.bLicenseClick(Sender: TObject);
begin
LicenseForm.mText.Text := ExtractResText('LICENSE');
if LicenseForm.ShowModal <> mrOk then
Halt(0);
end;
procedure TMainForm.cbAllowTSConnectionsClick(Sender: TObject);
begin
if Ready then