Skip to content

Commit b17ddaf

Browse files
binarymasterbinarymaster
committed
Main commit
1 parent 5a17be5 commit b17ddaf

File tree

10 files changed

+1484
-0
lines changed

10 files changed

+1484
-0
lines changed

‎.gitignore‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
# Unnecessary files
2+
3+
*.~pas
4+
*.dproj.local
5+
*.identcache
6+
*.dcu

‎res/devcon.exe‎

54.6 KB
Binary file not shown.

‎res/tscc.ico‎

2.67 KB
Binary file not shown.

‎res/watermark.png‎

11.5 KB
Loading

‎src/MainUnit.dfm‎

Lines changed: 164 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,164 @@
1+
object TSPatcher: TTSPatcher
2+
Left = 0
3+
Top = 0
4+
BorderIcons = [biSystemMenu]
5+
BorderStyle = bsDialog
6+
Caption = 'Windows XP (x86) Terminal Services Realtime Patch by Stas'#39'M'
7+
ClientHeight = 300
8+
ClientWidth = 406
9+
Color = clBtnFace
10+
Font.Charset = DEFAULT_CHARSET
11+
Font.Color = clWindowText
12+
Font.Height = -11
13+
Font.Name = 'Tahoma'
14+
Font.Style = []
15+
OldCreateOrder = False
16+
Position = poScreenCenter
17+
OnActivate = FormActivate
18+
OnCreate = FormCreate
19+
OnDestroy = FormDestroy
20+
PixelsPerInch = 96
21+
TextHeight = 13
22+
object Log: TMemo
23+
Left = 0
24+
Top = 0
25+
Width = 406
26+
Height = 215
27+
Align = alClient
28+
Color = clBlack
29+
Font.Charset = DEFAULT_CHARSET
30+
Font.Color = clSilver
31+
Font.Height = -11
32+
Font.Name = 'Courier New'
33+
Font.Style = []
34+
Lines.Strings = (
35+
'Terminal Services Realtime Patch by Stas'#39'M'
36+
'Copyright '#169' Stas'#39'M Corp. 2012'
37+
'http://stascorp.com'
38+
'______________________________________________________'
39+
''
40+
'*** Licensed under the Apache License, Version 2.0,'
41+
'*** see LICENSE file in the project root folder.'
42+
'______________________________________________________'
43+
'')
44+
ParentFont = False
45+
ReadOnly = True
46+
ScrollBars = ssVertical
47+
TabOrder = 0
48+
OnChange = LogChange
49+
OnClick = LogChange
50+
OnDblClick = LogChange
51+
OnEnter = LogChange
52+
OnExit = LogChange
53+
OnGesture = LogGesture
54+
OnKeyDown = LogKeyDown
55+
OnKeyPress = LogKeyPress
56+
OnKeyUp = LogKeyDown
57+
OnMouseActivate = LogMouseActivate
58+
OnMouseDown = LogMouseDown
59+
OnMouseEnter = LogChange
60+
OnMouseLeave = LogChange
61+
OnMouseMove = LogMouseMove
62+
OnMouseUp = LogMouseDown
63+
end
64+
object MainPanel: TPanel
65+
Left = 0
66+
Top = 215
67+
Width = 406
68+
Height = 85
69+
Align = alBottom
70+
BevelOuter = bvNone
71+
TabOrder = 1
72+
object cConcur: TCheckBox
73+
Left = 8
74+
Top = 23
75+
Width = 145
76+
Height = 17
77+
Caption = 'Allow concurrent &sessions'
78+
Enabled = False
79+
TabOrder = 0
80+
end
81+
object cHome: TCheckBox
82+
Left = 163
83+
Top = 40
84+
Width = 163
85+
Height = 17
86+
Caption = 'Turn on &Home Edition support'
87+
Enabled = False
88+
TabOrder = 1
89+
OnClick = cHomeClick
90+
end
91+
object cBlank: TCheckBox
92+
Left = 8
93+
Top = 40
94+
Width = 136
95+
Height = 17
96+
Caption = 'Enable &blank passwords'
97+
Enabled = False
98+
TabOrder = 2
99+
end
100+
object cVPN: TCheckBox
101+
Left = 163
102+
Top = 6
103+
Width = 181
104+
Height = 17
105+
Caption = 'Keep alive &VPN (RAS) connections'
106+
Enabled = False
107+
TabOrder = 3
108+
end
109+
object bApply: TButton
110+
Left = 8
111+
Top = 58
112+
Width = 70
113+
Height = 20
114+
Caption = '&Apply'
115+
Enabled = False
116+
TabOrder = 4
117+
OnClick = bApplyClick
118+
end
119+
object bClose: TButton
120+
Left = 84
121+
Top = 58
122+
Width = 69
123+
Height = 20
124+
Caption = '&Close'
125+
TabOrder = 5
126+
OnClick = bCloseClick
127+
end
128+
object cDriver: TCheckBox
129+
Left = 163
130+
Top = 57
131+
Width = 191
132+
Height = 17
133+
Caption = 'Install &RDP display redirector driver'
134+
Enabled = False
135+
TabOrder = 6
136+
Visible = False
137+
end
138+
object cEnableTS: TCheckBox
139+
Left = 8
140+
Top = 6
141+
Width = 132
142+
Height = 17
143+
Caption = 'Enable remote &desktop'
144+
Enabled = False
145+
TabOrder = 7
146+
end
147+
object cSingle: TCheckBox
148+
Left = 163
149+
Top = 23
150+
Width = 132
151+
Height = 17
152+
Caption = 'Single session per &user'
153+
Enabled = False
154+
TabOrder = 8
155+
end
156+
end
157+
object Evnt: TTimer
158+
Enabled = False
159+
Interval = 100
160+
OnTimer = EvntTimer
161+
Left = 336
162+
Top = 8
163+
end
164+
end

0 commit comments

Comments
 (0)