diff options
author | binarymaster <x86corez@gmail.com> | 2014-11-20 16:36:04 +0300 |
---|---|---|
committer | binarymaster <x86corez@gmail.com> | 2014-11-20 16:36:04 +0300 |
commit | 64b3bf8bc1f8bbb7787354c77d12240a9501fb90 (patch) | |
tree | 80d6a35ba07aa41d1a20aa75f1c738fa75d4b678 /src-installer | |
parent | 6b4dadcde5293837a71f5f29492a4ae06823d67d (diff) |
Added license info
Now license can be viewed in applications
Diffstat (limited to 'src-installer')
-rw-r--r-- | src-installer/RDPWInst.dpr | 36 | ||||
-rw-r--r-- | src-installer/RDPWInst.dproj.local | 8 | ||||
-rw-r--r-- | src-installer/RDPWInst.identcache | bin | 114 -> 0 bytes | |||
-rw-r--r-- | src-installer/resource.res | bin | 342528 -> 353628 bytes |
4 files changed, 34 insertions, 10 deletions
diff --git a/src-installer/RDPWInst.dpr b/src-installer/RDPWInst.dpr index 4ae678c..3d4527c 100644 --- a/src-installer/RDPWInst.dpr +++ b/src-installer/RDPWInst.dpr @@ -573,6 +573,23 @@ begin ResStream.Free; end; +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 ExtractFiles; begin if not DirectoryExists(ExtractFilePath(ExpandPath(WrapPath))) then @@ -904,14 +921,16 @@ begin if (ParamCount < 1) or ( - (ParamStr(1) <> '-i') + (ParamStr(1) <> '-l') + and (ParamStr(1) <> '-i') and (ParamStr(1) <> '-u') and (ParamStr(1) <> '-r') ) then begin Writeln('USAGE:'); - Writeln('RDPWInst.exe [-i[-s]|-u|-r]'); + Writeln('RDPWInst.exe [-l|-i[-s]|-u|-r]'); Writeln(''); + Writeln('-l display the license agreement'); Writeln('-i install wrapper to Program Files folder (default)'); Writeln('-i -s install wrapper to System32 folder'); Writeln('-u uninstall wrapper'); @@ -919,6 +938,12 @@ begin Exit; end; + if ParamStr(1) = '-l' then + begin + Writeln(ExtractResText('LICENSE')); + Exit; + end; + if not SupportedArchitecture then begin Writeln('[-] Unsupported processor architecture.'); @@ -934,6 +959,13 @@ begin Writeln('[*] RDP Wrapper Library is already installed.'); Halt(ERROR_INVALID_FUNCTION); end; + Writeln('[*] Notice to user:'); + Writeln(' - By using all or any portion of this software, you are agreeing'); + Writeln(' to be bound by all the terms and conditions of the license agreement.'); + Writeln(' - To read the license agreement, run the installer with -l parameter.'); + Writeln(' - If you do not agree to any terms of the license agreement,'); + Writeln(' do not use the software.'); + Writeln('[*] Installing...'); if ParamStr(2) = '-s' then WrapPath := '%SystemRoot%\system32\rdpwrap.dll' diff --git a/src-installer/RDPWInst.dproj.local b/src-installer/RDPWInst.dproj.local deleted file mode 100644 index 673bb99..0000000 --- a/src-installer/RDPWInst.dproj.local +++ /dev/null @@ -1,8 +0,0 @@ -<?xml version="1.0" encoding="utf-8"?> -<BorlandProject> - <Transactions> - <Transaction>2013.12.07 17:17:05.152.dproj,C:\Users\user\Documents\RAD Studio\Projects\Project1.dproj=C:\Users\user\Documents\Delphi Projects (local)\RDPWrapInst\RDPInstall.dproj</Transaction> - <Transaction>2013.12.07 19:48:57.905.dproj,C:\Users\user\Documents\Delphi Projects (local)\RDPWrapInst\RDPInstall.dproj=C:\Users\user\Documents\Delphi Projects (local)\RDPWrapInst\RDPWInst.dproj</Transaction> - <Transaction>2013.12.08 01:45:08.501.dproj,C:\Users\user\Documents\Delphi Projects (local)\RDPWrapInst\RDPWInst.dproj=C:\Users\user\Documents\Delphi Projects (local)\RDPWrap\devel\installer2.0-binarymaster\RDPWInst.dproj</Transaction> - </Transactions> -</BorlandProject> diff --git a/src-installer/RDPWInst.identcache b/src-installer/RDPWInst.identcache Binary files differdeleted file mode 100644 index 2ed9853..0000000 --- a/src-installer/RDPWInst.identcache +++ /dev/null diff --git a/src-installer/resource.res b/src-installer/resource.res Binary files differindex f0f95de..5f44448 100644 --- a/src-installer/resource.res +++ b/src-installer/resource.res |