Mirrored_Repos/rdpwrap
1
0
Fork 0
mirror of https://github.com/stascorp/rdpwrap.git synced 2024-11-23 14:07:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

Updated installer

Browse Source
This commit is contained in:
binarymaster 2014-11-14 02:03:31 +03:00
parent bca7e90e48
commit c146bb8838
3 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/RDPWInst.exe
View File

Binary file not shown.

17
src-installer/RDPWInst.dpr
View File

@ -688,6 +688,10 @@ begin
SuppLvl := 2; SuppLvl := 2;
if (FV.Release = 6002) and (FV.Build = 18005) then if (FV.Release = 6002) and (FV.Build = 18005) then
SuppLvl := 2; SuppLvl := 2;
if (FV.Release = 6002) and (FV.Build = 19214) then
SuppLvl := 2;
if (FV.Release = 6002) and (FV.Build = 23521) then
SuppLvl := 2;
end; end;
if (FV.Version.w.Major = 6) and (FV.Version.w.Minor = 1) then begin if (FV.Version.w.Major = 6) and (FV.Version.w.Minor = 1) then begin
SuppLvl := 1; SuppLvl := 1;
@ -699,6 +703,10 @@ begin
SuppLvl := 2; SuppLvl := 2;
if (FV.Release = 7601) and (FV.Build = 22750) then if (FV.Release = 7601) and (FV.Build = 22750) then
SuppLvl := 2; SuppLvl := 2;
if (FV.Release = 7601) and (FV.Build = 18637) then
SuppLvl := 2;
if (FV.Release = 7601) and (FV.Build = 22843) then
SuppLvl := 2;
end; end;
if (FV.Version.w.Major = 6) and (FV.Version.w.Minor = 2) then begin if (FV.Version.w.Major = 6) and (FV.Version.w.Minor = 2) then begin
if (FV.Release = 8102) and (FV.Build = 0) then if (FV.Release = 8102) and (FV.Build = 0) then
@ -725,10 +733,12 @@ begin
if (FV.Version.w.Major = 6) and (FV.Version.w.Minor = 4) then begin if (FV.Version.w.Major = 6) and (FV.Version.w.Minor = 4) then begin
if (FV.Release = 9841) and (FV.Build = 0) then if (FV.Release = 9841) and (FV.Build = 0) then
SuppLvl := 2; SuppLvl := 2;
if (FV.Release = 9860) and (FV.Build = 0) then
SuppLvl := 2;
end; end;
case SuppLvl of case SuppLvl of
0: begin 0: begin
Writeln('[!] This version of Terminal Services is not supported.'); Writeln('[-] This version of Terminal Services is not supported.');
Writeln('Send your termsrv.dll to project developer for support.'); Writeln('Send your termsrv.dll to project developer for support.');
end; end;
1: begin 1: begin
@ -736,6 +746,9 @@ begin
Writeln('It means you may have some limitations such as only 2 concurrent sessions.'); Writeln('It means you may have some limitations such as only 2 concurrent sessions.');
Writeln('Send your termsrv.dll to project developer for adding full support.'); Writeln('Send your termsrv.dll to project developer for adding full support.');
end; end;
2: begin
Writeln('[+] This version of Terminal Services is fully supported.');
end;
end; end;
end; end;
@ -868,7 +881,7 @@ end;
var var
I: Integer; I: Integer;
begin begin
Writeln('RDP Wrapper Library v1.3'); Writeln('RDP Wrapper Library v1.4');
Writeln('Installer v2.2'); Writeln('Installer v2.2');
Writeln('Copyright (C) Stas''M Corp. 2014'); Writeln('Copyright (C) Stas''M Corp. 2014');
Writeln(''); Writeln('');

BIN
src-installer/resource.res
View File

Binary file not shown.