You've already forked lazarus-ccr
- fixed obsolete TextHeight properties from lfm resources
- initial support for InvalidCount , which allow to run program even if trial rules are broken (but only exactly set count) - IDE serial number used instead of volume serial git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@921 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
brandysb
@ -1,2 +1,2 @@
|
||||
[Keys]
|
||||
Flamenco=$E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4
|
||||
OnGuard demo=$E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4
|
||||
|
||||
@ -2,15 +2,15 @@
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="6"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value=".\"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -34,42 +34,44 @@
|
||||
<MinVersion Valid="True"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="14">
|
||||
<Units Count="22">
|
||||
<Unit0>
|
||||
<Filename Value="codegen.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="73" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="24"/>
|
||||
<UsageCount Value="26"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="codegenu.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="CodeGenFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="codegenu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="CODEGENU"/>
|
||||
<CursorPos X="38" Y="49"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="24"/>
|
||||
<CursorPos X="59" Y="39"/>
|
||||
<TopLine Value="26"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="26"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="..\..\source\qonguard3.pas"/>
|
||||
<ComponentName Value="KeyMaintFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qonguard3.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard3"/>
|
||||
<CursorPos X="17" Y="169"/>
|
||||
<TopLine Value="164"/>
|
||||
<CursorPos X="15" Y="173"/>
|
||||
<TopLine Value="265"/>
|
||||
<UsageCount Value="12"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="..\..\source\ogconst.pas"/>
|
||||
<UnitName Value="ogconst"/>
|
||||
<CursorPos X="3" Y="62"/>
|
||||
<TopLine Value="34"/>
|
||||
<TopLine Value="42"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
@ -92,7 +94,7 @@
|
||||
<UsageCount Value="10"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="\usr\share\fpcsrc\fcl\inc\inifiles.pp"/>
|
||||
<Filename Value="usr\share\fpcsrc\fcl\inc\inifiles.pp"/>
|
||||
<UnitName Value="IniFiles"/>
|
||||
<CursorPos X="3" Y="598"/>
|
||||
<TopLine Value="593"/>
|
||||
@ -102,43 +104,43 @@
|
||||
<Filename Value="..\..\source\qonguard5.pas"/>
|
||||
<UnitName Value="qonguard5"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<TopLine Value="72"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="..\..\source\qonguard2.pas"/>
|
||||
<ComponentName Value="CodeGenerateFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qonguard2.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard2"/>
|
||||
<CursorPos X="30" Y="209"/>
|
||||
<TopLine Value="184"/>
|
||||
<UsageCount Value="10"/>
|
||||
<CursorPos X="18" Y="425"/>
|
||||
<TopLine Value="422"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="25" Y="57"/>
|
||||
<TopLine Value="32"/>
|
||||
<CursorPos X="19" Y="1186"/>
|
||||
<TopLine Value="1170"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="..\..\source\qonguard1.pas"/>
|
||||
<ComponentName Value="KeyGenerateFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qonguard1.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard1"/>
|
||||
<CursorPos X="18" Y="9"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="56" Y="7"/>
|
||||
<TopLine Value="76"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="..\..\source\qonguard4.pas"/>
|
||||
<ComponentName Value="EditProductFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qonguard4.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard4"/>
|
||||
<CursorPos X="17" Y="36"/>
|
||||
<CursorPos X="20" Y="37"/>
|
||||
<TopLine Value="31"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit12>
|
||||
@ -149,11 +151,72 @@
|
||||
<TopLine Value="714"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
<Filename Value="codegenu.lfm"/>
|
||||
<CursorPos X="18" Y="12"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="..\..\source\qogabout0.pas"/>
|
||||
<ComponentName Value="OgAboutForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qogabout0"/>
|
||||
<CursorPos X="42" Y="25"/>
|
||||
<TopLine Value="12"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="..\..\source\qogabout0.lfm"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="..\..\source\qonguard6.pas"/>
|
||||
<ComponentName Value="ModifierFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard6"/>
|
||||
<CursorPos X="50" Y="7"/>
|
||||
<TopLine Value="75"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="..\..\source\qonguard6.lfm"/>
|
||||
<CursorPos X="28" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="..\..\source\qonguard7.pas"/>
|
||||
<UnitName Value="qonguard7"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="72"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<Filename Value="..\..\source\idesn.pas"/>
|
||||
<UnitName Value="idesn"/>
|
||||
<CursorPos X="1" Y="23"/>
|
||||
<TopLine Value="37"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<Filename Value="..\..\..\..\..\..\temp\fpc\rtl\inc\systemh.inc"/>
|
||||
<CursorPos X="11" Y="571"/>
|
||||
<TopLine Value="556"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit21>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
@ -167,12 +230,13 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
@ -189,8 +253,8 @@
|
||||
<Line Value="212"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Source Value="..\..\source\qonguard3.pas"/>
|
||||
<Line Value="186"/>
|
||||
<Source Value="..\..\source\qonguard2.pas"/>
|
||||
<Line Value="236"/>
|
||||
</Item3>
|
||||
</BreakPoints>
|
||||
<Watches Count="1">
|
||||
|
||||
@ -1,4 +1,8 @@
|
||||
object CodeGenFrm: TCodeGenFrm
|
||||
Left = 315
|
||||
Height = 85
|
||||
Top = 230
|
||||
Width = 273
|
||||
ActiveControl = GenerateBtn
|
||||
Caption = 'Example Code Generator'
|
||||
ClientHeight = 85
|
||||
@ -7,19 +11,15 @@ object CodeGenFrm: TCodeGenFrm
|
||||
Font.Height = 11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Pitch = fpVariable
|
||||
PixelsPerInch = 96
|
||||
Position = poScreenCenter
|
||||
ShowHint = True
|
||||
TextHeight = 18
|
||||
HorzScrollBar.Page = 272
|
||||
HorzScrollBar.Range = 267
|
||||
VertScrollBar.Page = 84
|
||||
VertScrollBar.Range = 76
|
||||
Left = 315
|
||||
Height = 85
|
||||
Top = 230
|
||||
Width = 273
|
||||
LCLVersion = '0.9.27'
|
||||
object CopySb: TSpeedButton
|
||||
Left = 244
|
||||
Height = 22
|
||||
Hint = 'Copy code to clipboard'
|
||||
Top = 21
|
||||
Width = 23
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
42010000424D4201000000000000760000002800000011000000110000000100
|
||||
@ -36,54 +36,48 @@ object CodeGenFrm: TCodeGenFrm
|
||||
}
|
||||
NumGlyphs = 0
|
||||
OnClick = CopySbClick
|
||||
Left = 244
|
||||
Height = 22
|
||||
Hint = 'Copy code to clipboard'
|
||||
Top = 21
|
||||
Width = 23
|
||||
end
|
||||
object Label2: TLabel
|
||||
Caption = 'Code'
|
||||
Color = clNone
|
||||
FocusControl = CodeEd
|
||||
ParentColor = False
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 3
|
||||
Width = 26
|
||||
Caption = 'Code'
|
||||
FocusControl = CodeEd
|
||||
ParentColor = False
|
||||
end
|
||||
object GenerateBtn: TButton
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Generate Code'
|
||||
OnClick = GenerateBtnClick
|
||||
TabOrder = 0
|
||||
Left = 8
|
||||
Height = 25
|
||||
Hint = 'Display code generation dialog'
|
||||
Top = 51
|
||||
Width = 105
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Generate Code'
|
||||
OnClick = GenerateBtnClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object CodeEd: TEdit
|
||||
ReadOnly = True
|
||||
TabOrder = 1
|
||||
Left = 8
|
||||
Height = 24
|
||||
Height = 23
|
||||
Top = 19
|
||||
Width = 233
|
||||
ReadOnly = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object CloseBtn: TBitBtn
|
||||
Kind = bkClose
|
||||
NumGlyphs = 0
|
||||
TabOrder = 2
|
||||
Left = 192
|
||||
Height = 25
|
||||
Top = 51
|
||||
Width = 75
|
||||
Kind = bkClose
|
||||
NumGlyphs = 0
|
||||
TabOrder = 2
|
||||
end
|
||||
object OgMakeCodes1: TOgMakeCodes
|
||||
KeyFileName = 'ONGUARD.INI'
|
||||
ShowHints = True
|
||||
left = 56
|
||||
top = 152
|
||||
left = 64
|
||||
top = 56
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,37 +1,35 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
|
||||
LazarusResources.Add('TCodeGenFrm','FORMDATA',[
|
||||
'TPF0'#11'TCodeGenFrm'#10'CodeGenFrm'#13'ActiveControl'#7#11'GenerateBtn'#7'C'
|
||||
+'aption'#6#22'Example Code Generator'#12'ClientHeight'#2'U'#11'ClientWidth'#3
|
||||
+#17#1#10'Font.Color'#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS S'
|
||||
+'ans Serif'#10'Font.Pitch'#7#10'fpVariable'#13'PixelsPerInch'#2'`'#8'Positio'
|
||||
+'n'#7#14'poScreenCenter'#8'ShowHint'#9#10'TextHeight'#2#18#18'HorzScrollBar.'
|
||||
+'Page'#3#16#1#19'HorzScrollBar.Range'#3#11#1#18'VertScrollBar.Page'#2'T'#19
|
||||
+'VertScrollBar.Range'#2'L'#4'Left'#3';'#1#6'Height'#2'U'#3'Top'#3#230#0#5'Wi'
|
||||
+'dth'#3#17#1#0#12'TSpeedButton'#6'CopySb'#5'Color'#7#9'clBtnFace'#10'Glyph.D'
|
||||
+'ata'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0
|
||||
+#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||
+#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0
|
||||
+#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255
|
||||
+#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136
|
||||
+#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0#0#0#136#136#136#132
|
||||
+#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0#244#128#0#0#0#128#0#0#4
|
||||
+#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0#244#128#0#0#0#128#240#0#4
|
||||
+#255#255#255#244#128#0#0#0#128#255#255#244#240#15'DD'#128#0#0#0#128#240#0#4
|
||||
+#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'#136#128#0#0#0#128#240#15#4
|
||||
+'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136#128#0#0#0#128#255#255#0#136
|
||||
+#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0#0#0#136#136#136#136
|
||||
+#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#9'NumGl'
|
||||
+'yphs'#2#0#7'OnClick'#7#11'CopySbClick'#4'Left'#3#244#0#6'Height'#2#22#4'Hin'
|
||||
+'t'#6#22'Copy code to clipboard'#3'Top'#2#21#5'Width'#2#23#0#0#6'TLabel'#6'L'
|
||||
+'abel2'#7'Caption'#6#4'Code'#5'Color'#7#6'clNone'#12'FocusControl'#7#6'CodeE'
|
||||
+'d'#11'ParentColor'#8#4'Left'#2#8#6'Height'#2#14#3'Top'#2#3#5'Width'#2#26#0#0
|
||||
+#7'TButton'#11'GenerateBtn'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13
|
||||
+'Generate Code'#7'OnClick'#7#16'GenerateBtnClick'#8'TabOrder'#2#0#4'Left'#2#8
|
||||
+#6'Height'#2#25#4'Hint'#6#30'Display code generation dialog'#3'Top'#2'3'#5'W'
|
||||
+'idth'#2'i'#0#0#5'TEdit'#6'CodeEd'#8'ReadOnly'#9#8'TabOrder'#2#1#4'Left'#2#8
|
||||
+#6'Height'#2#24#3'Top'#2#19#5'Width'#3#233#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Ki'
|
||||
+'nd'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#4'Left'#3#192#0#6'Height'
|
||||
+#2#25#3'Top'#2'3'#5'Width'#2'K'#0#0#12'TOgMakeCodes'#12'OgMakeCodes1'#11'Key'
|
||||
+'FileName'#6#11'ONGUARD.INI'#9'ShowHints'#9#4'left'#2'8'#3'top'#3#152#0#0#0#0
|
||||
'TPF0'#11'TCodeGenFrm'#10'CodeGenFrm'#4'Left'#3';'#1#6'Height'#2'U'#3'Top'#3
|
||||
+#230#0#5'Width'#3#17#1#13'ActiveControl'#7#11'GenerateBtn'#7'Caption'#6#22'E'
|
||||
+'xample Code Generator'#12'ClientHeight'#2'U'#11'ClientWidth'#3#17#1#10'Font'
|
||||
+'.Color'#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10
|
||||
+'Font.Pitch'#7#10'fpVariable'#8'Position'#7#14'poScreenCenter'#8'ShowHint'#9
|
||||
+#10'LCLVersion'#6#6'0.9.27'#0#12'TSpeedButton'#6'CopySb'#4'Left'#3#244#0#6'H'
|
||||
+'eight'#2#22#4'Hint'#6#22'Copy code to clipboard'#3'Top'#2#21#5'Width'#2#23#5
|
||||
+'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0
|
||||
+'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0
|
||||
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0
|
||||
+#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255
|
||||
+#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136
|
||||
+#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132
|
||||
+'DDDD'#128#0#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132
|
||||
+#240#0#0#244#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244
|
||||
+#240#0#0#244#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244
|
||||
+#240#15'DD'#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255
|
||||
+#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136
|
||||
+#136#136#128#0#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136
|
||||
+#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136
|
||||
+#136#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#11'CopySbClick'#0#0
|
||||
+#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#3#5'Width'#2#26#7'C'
|
||||
+'aption'#6#4'Code'#12'FocusControl'#7#6'CodeEd'#11'ParentColor'#8#0#0#7'TBut'
|
||||
+'ton'#11'GenerateBtn'#4'Left'#2#8#6'Height'#2#25#4'Hint'#6#30'Display code g'
|
||||
+'eneration dialog'#3'Top'#2'3'#5'Width'#2'i'#25'BorderSpacing.InnerBorder'#2
|
||||
+#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7#16'GenerateBtnClick'#8'TabOrd'
|
||||
+'er'#2#0#0#0#5'TEdit'#6'CodeEd'#4'Left'#2#8#6'Height'#2#23#3'Top'#2#19#5'Wid'
|
||||
+'th'#3#233#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'
|
||||
+#3#192#0#6'Height'#2#25#3'Top'#2'3'#5'Width'#2'K'#4'Kind'#7#7'bkClose'#9'Num'
|
||||
+'Glyphs'#2#0#8'TabOrder'#2#2#0#0#12'TOgMakeCodes'#12'OgMakeCodes1'#11'KeyFil'
|
||||
+'eName'#6#11'ONGUARD.INI'#9'ShowHints'#9#4'left'#2'@'#3'top'#2'8'#0#0#0
|
||||
]);
|
||||
|
||||
@ -2,15 +2,15 @@
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="6"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value=".\"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="2"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -31,65 +31,65 @@
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="9">
|
||||
<Units Count="14">
|
||||
<Unit0>
|
||||
<Filename Value="exdmod.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="53" Y="8"/>
|
||||
<CursorPos X="76" Y="14"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="25"/>
|
||||
<UsageCount Value="26"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmMain"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exdmodu2.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exdmodu1"/>
|
||||
<CursorPos X="1" Y="84"/>
|
||||
<TopLine Value="82"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="12"/>
|
||||
<CursorPos X="3" Y="212"/>
|
||||
<TopLine Value="206"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="21"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="exdmodu2.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="SNEntryDlg"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exdmodu2.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exdmodu2"/>
|
||||
<CursorPos X="26" Y="10"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="12"/>
|
||||
<CursorPos X="67" Y="49"/>
|
||||
<TopLine Value="19"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="21"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="1" Y="1369"/>
|
||||
<TopLine Value="1355"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<CursorPos X="1" Y="2088"/>
|
||||
<TopLine Value="2067"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<UnitName Value="ogutil"/>
|
||||
<CursorPos X="1" Y="875"/>
|
||||
<TopLine Value="858"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<CursorPos X="1" Y="522"/>
|
||||
<TopLine Value="495"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="..\..\source\onguard.inc"/>
|
||||
<CursorPos X="51" Y="35"/>
|
||||
<TopLine Value="6"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<CursorPos X="1" Y="67"/>
|
||||
<TopLine Value="47"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="usr\share\fpcsrc\rtl\inc\systemh.inc"/>
|
||||
@ -109,20 +109,178 @@
|
||||
<TopLine Value="346"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="exdmodu2.lfm"/>
|
||||
<CursorPos X="28" Y="11"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="exdmodu1.lfm"/>
|
||||
<CursorPos X="28" Y="11"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="..\..\source\qonguard2.pas"/>
|
||||
<ComponentName Value="CodeGenerateFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard2"/>
|
||||
<CursorPos X="17" Y="11"/>
|
||||
<TopLine Value="61"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="..\..\source\qonguard3.pas"/>
|
||||
<ComponentName Value="KeyMaintFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard3"/>
|
||||
<CursorPos X="13" Y="4"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="..\..\source\qonguard6.pas"/>
|
||||
<ComponentName Value="ModifierFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qonguard6"/>
|
||||
<CursorPos X="49" Y="61"/>
|
||||
<TopLine Value="42"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit13>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" Column="1" TopLine="489"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="509" Column="1" TopLine="488"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" Column="1" TopLine="489"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="509" Column="1" TopLine="488"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" Column="1" TopLine="489"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="509" Column="1" TopLine="488"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" Column="1" TopLine="489"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="509" Column="1" TopLine="488"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="510" Column="1" TopLine="489"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="512" Column="1" TopLine="491"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="515" Column="1" TopLine="494"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="516" Column="1" TopLine="495"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="522" Column="1" TopLine="495"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="517" Column="1" TopLine="496"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="516" Column="1" TopLine="495"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="..\..\source\ogutil.pas"/>
|
||||
<Caret Line="522" Column="1" TopLine="495"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="176" Column="1" TopLine="155"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="177" Column="1" TopLine="156"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="179" Column="1" TopLine="158"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="167" Column="37" TopLine="160"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="182" Column="1" TopLine="161"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1179" Column="1" TopLine="1158"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1180" Column="1" TopLine="1159"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1181" Column="1" TopLine="1160"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="184" Column="1" TopLine="163"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2085" Column="1" TopLine="2064"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2086" Column="1" TopLine="2065"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2087" Column="40" TopLine="2066"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="2088" Column="1" TopLine="2067"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="exdmodu1.pas"/>
|
||||
<Caret Line="188" Column="1" TopLine="137"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<PathDelim Value="\"/>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseLineInfoUnit Value="False"/>
|
||||
<StripSymbols Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
@ -134,15 +292,11 @@
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="2">
|
||||
<BreakPoints Count="1">
|
||||
<Item1>
|
||||
<Source Value="exdmodu1.pas"/>
|
||||
<Line Value="220"/>
|
||||
<Line Value="176"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Source Value="exdmodu1.pas"/>
|
||||
<Line Value="84"/>
|
||||
</Item2>
|
||||
</BreakPoints>
|
||||
<Exceptions Count="2">
|
||||
<Item1>
|
||||
|
||||
@ -5,10 +5,10 @@ uses
|
||||
Interfaces,
|
||||
Forms,
|
||||
Exdmodu1 in 'EXDMODU1.PAS' {Form1},
|
||||
Exdmodu2 in 'EXDMODU2.PAS' {SNEntryDlg}, tponguard;
|
||||
Exdmodu2 in 'EXDMODU2.PAS' {SNEntryDlg};
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.CreateForm(TfrmMain, frmMain);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
@ -1,4 +1,8 @@
|
||||
object Form1: TForm1
|
||||
object frmMain: TfrmMain
|
||||
Left = 372
|
||||
Height = 186
|
||||
Top = 223
|
||||
Width = 240
|
||||
ActiveControl = Memo1
|
||||
Caption = 'Serial Number Example'
|
||||
ClientHeight = 186
|
||||
@ -7,52 +11,44 @@ object Form1: TForm1
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnActivate = FormActivate
|
||||
PixelsPerInch = 83
|
||||
Position = poScreenCenter
|
||||
TextHeight = 13
|
||||
HorzScrollBar.Page = 239
|
||||
VertScrollBar.Page = 185
|
||||
Left = 372
|
||||
Height = 186
|
||||
Top = 223
|
||||
Width = 240
|
||||
LCLVersion = '0.9.27'
|
||||
object Label1: TLabel
|
||||
Left = 38
|
||||
Height = 14
|
||||
Top = 96
|
||||
Width = 43
|
||||
Alignment = taCenter
|
||||
Caption = 'Serial #: '
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
Left = 38
|
||||
Height = 13
|
||||
Top = 96
|
||||
Width = 51
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Left = 3
|
||||
Height = 79
|
||||
Top = 4
|
||||
Width = 223
|
||||
Lines.Strings = (
|
||||
'If you can edit this, then your program was '
|
||||
'allowed to run'
|
||||
)
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
Left = 3
|
||||
Height = 79
|
||||
Top = 4
|
||||
Width = 223
|
||||
end
|
||||
object CloseBtn: TBitBtn
|
||||
Kind = bkClose
|
||||
NumGlyphs = 0
|
||||
TabOrder = 1
|
||||
Left = 72
|
||||
Height = 33
|
||||
Top = 114
|
||||
Width = 89
|
||||
Kind = bkClose
|
||||
NumGlyphs = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
object OgSerialNumberCode1: TOgSerialNumberCode
|
||||
OnChecked = OgSerialNumberCode1Checked
|
||||
OnGetKey = OgSerialNumberCode1GetKey
|
||||
OnGetCode = OgSerialNumberCode1GetCode
|
||||
OnGetModifier = OgSerialNumberCode1GetModifier
|
||||
left = 172
|
||||
top = 88
|
||||
left = 184
|
||||
top = 96
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,21 +1,20 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial'
|
||||
+' Number Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10'Font.C'
|
||||
+'olor'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#13
|
||||
+'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10'TextHeight'#2#13#18
|
||||
+'HorzScrollBar.Page'#3#239#0#18'VertScrollBar.Page'#3#185#0#4'Left'#3't'#1#6
|
||||
+'Height'#3#186#0#3'Top'#3#223#0#5'Width'#3#240#0#0#6'TLabel'#6'Label1'#9'Ali'
|
||||
+'gnment'#7#8'taCenter'#7'Caption'#6#10'Serial #: '#5'Color'#7#6'clNone'#11'P'
|
||||
+'arentColor'#8#4'Left'#2'&'#6'Height'#2#14#3'Top'#2'`'#5'Width'#2'-'#0#0#5'T'
|
||||
+'Memo'#5'Memo1'#13'Lines.Strings'#1#6',If you can edit this, then your progr'
|
||||
+'am was '#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'
|
||||
+#2#0#4'Left'#2#3#6'Height'#2'O'#3'Top'#2#4#5'Width'#3#223#0#0#0#7'TBitBtn'#8
|
||||
+'CloseBtn'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#4'Left'#2'H'
|
||||
+#6'Height'#2'!'#3'Top'#2'r'#5'Width'#2'Y'#0#0#19'TOgSerialNumberCode'#19'OgS'
|
||||
+'erialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8'OnGetKey'
|
||||
+#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberCode1GetCod'
|
||||
+'e'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModifier'#4'left'#3#172#0#3
|
||||
+'top'#2'X'#0#0#0
|
||||
LazarusResources.Add('TfrmMain','FORMDATA',[
|
||||
'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3't'#1#6'Height'#3#186#0#3'Top'#3#223#0
|
||||
+#5'Width'#3#240#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial Number'
|
||||
+' Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10'Font.Color'#7
|
||||
+#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActi'
|
||||
+'vate'#7#12'FormActivate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6
|
||||
+'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2'&'#6'Height'#2#14#3'Top'#2'`'#5'Wid'
|
||||
+'th'#2'+'#9'Alignment'#7#8'taCenter'#7'Caption'#6#10'Serial #: '#11'ParentCo'
|
||||
+'lor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#3#6'Height'#2'O'#3'Top'#2#4#5'Width'
|
||||
+#3#223#0#13'Lines.Strings'#1#6',If you can edit this, then your program was '
|
||||
+#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7
|
||||
+'TBitBtn'#8'CloseBtn'#4'Left'#2'H'#6'Height'#2'!'#3'Top'#2'r'#5'Width'#2'Y'#4
|
||||
+'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgSerialNumberC'
|
||||
+'ode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8
|
||||
+'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberC'
|
||||
+'ode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModifier'#4'left'
|
||||
+#3#184#0#3'top'#2'`'#0#0#0
|
||||
]);
|
||||
|
||||
@ -26,7 +26,7 @@ interface
|
||||
|
||||
uses
|
||||
SysUtils,Classes,Controls,
|
||||
Forms, Dialogs, StdCtrls, Buttons,LResources,
|
||||
Forms, Dialogs, StdCtrls, Buttons,
|
||||
OgUtil,OnGuard,IniFiles;
|
||||
|
||||
const
|
||||
@ -35,9 +35,9 @@ const
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
{ TfrmMain }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
TfrmMain = class(TForm)
|
||||
Memo1: TMemo;
|
||||
CloseBtn: TBitBtn;
|
||||
Label1: TLabel;
|
||||
@ -62,24 +62,24 @@ type
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
frmMain: TfrmMain;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
|
||||
uses
|
||||
Exdmodu2;
|
||||
LResources,Exdmodu2;
|
||||
|
||||
{=======================================================================}
|
||||
|
||||
|
||||
procedure TForm1.OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
|
||||
procedure TfrmMain.OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
|
||||
begin
|
||||
Key := CKey;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormActivate(Sender: TObject);
|
||||
procedure TfrmMain.FormActivate(Sender: TObject);
|
||||
begin
|
||||
if FExpired then Application.Terminate;
|
||||
end;
|
||||
@ -88,7 +88,7 @@ end;
|
||||
{=======================================================================}
|
||||
|
||||
|
||||
procedure TForm1.OgSerialNumberCode1GetModifier(Sender: TObject;
|
||||
procedure TfrmMain.OgSerialNumberCode1GetModifier(Sender: TObject;
|
||||
var Value: Longint);
|
||||
begin
|
||||
{Generate the value unique to this machine}
|
||||
@ -98,7 +98,7 @@ end;
|
||||
|
||||
{=======================================================================}
|
||||
|
||||
procedure TForm1.OgSerialNumberCode1GetCode(Sender: TObject; var Code: TCode);
|
||||
procedure TfrmMain.OgSerialNumberCode1GetCode(Sender: TObject; var Code: TCode);
|
||||
var
|
||||
S1 : string;
|
||||
L : integer;
|
||||
@ -149,7 +149,7 @@ end;
|
||||
|
||||
{=======================================================================}
|
||||
|
||||
function TForm1.GetSNData(var S : string) : integer;
|
||||
function TfrmMain.GetSNData(var S : string) : integer;
|
||||
{method used to ask for user input of serial number and release code}
|
||||
var
|
||||
TC : TCode;
|
||||
@ -203,7 +203,7 @@ end;
|
||||
|
||||
{=======================================================================}
|
||||
|
||||
procedure TForm1.OgSerialNumberCode1Checked(Sender: TObject;
|
||||
procedure TfrmMain.OgSerialNumberCode1Checked(Sender: TObject;
|
||||
Status: TCodeStatus);
|
||||
var
|
||||
LI : longint;
|
||||
@ -244,7 +244,7 @@ begin
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$i exdmodu2.lrs}
|
||||
{$i exdmodu1.lrs}
|
||||
|
||||
end.
|
||||
|
||||
|
||||
@ -1,4 +1,8 @@
|
||||
object SNEntryDlg: TSNEntryDlg
|
||||
Left = 406
|
||||
Height = 195
|
||||
Top = 376
|
||||
Width = 247
|
||||
ActiveControl = SNText
|
||||
Caption = 'Serial Number w/Modifer'
|
||||
ClientHeight = 195
|
||||
@ -7,91 +11,81 @@ object SNEntryDlg: TSNEntryDlg
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 83
|
||||
Position = poScreenCenter
|
||||
TextHeight = 13
|
||||
HorzScrollBar.Page = 246
|
||||
VertScrollBar.Page = 194
|
||||
Left = 406
|
||||
Height = 195
|
||||
Top = 376
|
||||
Width = 247
|
||||
LCLVersion = '0.9.27'
|
||||
object Label1: TLabel
|
||||
Caption = 'SN'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
Left = 8
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 64
|
||||
Width = 18
|
||||
Width = 16
|
||||
Caption = 'SN'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Caption = 'Code'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
Left = 8
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 90
|
||||
Width = 31
|
||||
Width = 26
|
||||
Caption = 'Code'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Caption = 'Call your Vendor NOW to register!'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
Left = 40
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 7
|
||||
Width = 193
|
||||
Width = 160
|
||||
Caption = 'Call your Vendor NOW to register!'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Caption = 'Modifier'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
Left = 8
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 37
|
||||
Width = 46
|
||||
Width = 38
|
||||
Caption = 'Modifier'
|
||||
ParentColor = False
|
||||
end
|
||||
object SNText: TEdit
|
||||
TabOrder = 1
|
||||
Left = 52
|
||||
Height = 20
|
||||
Height = 23
|
||||
Top = 60
|
||||
Width = 121
|
||||
TabOrder = 1
|
||||
end
|
||||
object CodeText: TEdit
|
||||
TabOrder = 2
|
||||
Left = 52
|
||||
Height = 20
|
||||
Height = 23
|
||||
Top = 86
|
||||
Width = 175
|
||||
TabOrder = 2
|
||||
end
|
||||
object OKBtn: TBitBtn
|
||||
Kind = bkOK
|
||||
NumGlyphs = 0
|
||||
TabOrder = 3
|
||||
Left = 23
|
||||
Height = 33
|
||||
Top = 118
|
||||
Width = 89
|
||||
Kind = bkOK
|
||||
ModalResult = 1
|
||||
NumGlyphs = 0
|
||||
TabOrder = 3
|
||||
end
|
||||
object CancelBtn: TBitBtn
|
||||
Kind = bkCancel
|
||||
NumGlyphs = 0
|
||||
OnClick = CancelBtnClick
|
||||
TabOrder = 4
|
||||
Left = 127
|
||||
Height = 33
|
||||
Top = 118
|
||||
Width = 89
|
||||
Kind = bkCancel
|
||||
NumGlyphs = 0
|
||||
OnClick = CancelBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object ModString: TEdit
|
||||
Left = 52
|
||||
Height = 23
|
||||
Top = 33
|
||||
Width = 121
|
||||
ReadOnly = True
|
||||
TabStop = False
|
||||
TabOrder = 0
|
||||
Left = 52
|
||||
Height = 20
|
||||
Top = 33
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,46 +1,25 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
|
||||
|
||||
LazarusResources.Add('TSNEntryDlg','FORMDATA',[
|
||||
'TPF0'#11'TSNEntryDlg'#10'SNEntryDlg'#13'ActiveControl'#7#6'SNText'#7'Caption'
|
||||
+#6#23'Serial Number w/Modifer'#12'ClientHeight'#3#195#0#11'ClientWidth'#3#247
|
||||
+#0#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sa'
|
||||
+'ns Serif'#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'S'#8'Position'#7
|
||||
+#14'poScreenCenter'#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3#246#0#18'Ve'
|
||||
+'rtScrollBar.Page'#3#194#0#4'Left'#3#150#1#6'Height'#3#195#0#3'Top'#3'x'#1#5
|
||||
+'Width'#3#247#0#0#6'TLabel'#6'Label1'#7'Caption'#6#2'SN'#5'Color'#7#6'clNone'
|
||||
+#11'ParentColor'#8#4'Left'#2#8#6'Height'#2#13#3'Top'#2'@'#5'Width'#2#18#0#0#6
|
||||
+'TLabel'#6'Label2'#7'Caption'#6#4'Code'#5'Color'#7#6'clNone'#11'ParentColor'
|
||||
+#8#4'Left'#2#8#6'Height'#2#13#3'Top'#2'Z'#5'Width'#2#31#0#0#6'TLabel'#6'Labe'
|
||||
+'l3'#7'Caption'#6'!Call your Vendor NOW to register!'#5'Color'#7#6'clNone'#11
|
||||
+'ParentColor'#8#4'Left'#2'('#6'Height'#2#13#3'Top'#2#7#5'Width'#3#193#0#0#0#6
|
||||
+'TLabel'#6'Label4'#7'Caption'#6#8'Modifier'#5'Color'#7#6'clNone'#11'ParentCo'
|
||||
+'lor'#8#4'Left'#2#8#6'Height'#2#13#3'Top'#2'%'#5'Width'#2'.'#0#0#5'TEdit'#6
|
||||
+'SNText'#8'TabOrder'#2#1#4'Left'#2'4'#6'Height'#2#20#3'Top'#2'<'#5'Width'#2
|
||||
+'y'#0#0#5'TEdit'#8'CodeText'#8'TabOrder'#2#2#4'Left'#2'4'#6'Height'#2#20#3'T'
|
||||
+'op'#2'V'#5'Width'#3#175#0#0#0#7'TBitBtn'#5'OKBtn'#4'Kind'#7#4'bkOK'#9'NumGl'
|
||||
+'yphs'#2#0#8'TabOrder'#2#3#4'Left'#2#23#6'Height'#2'!'#3'Top'#2'v'#5'Width'#2
|
||||
+'Y'#0#0#7'TBitBtn'#9'CancelBtn'#4'Kind'#7#8'bkCancel'#9'NumGlyphs'#2#0#7'OnC'
|
||||
+'lick'#7#14'CancelBtnClick'#8'TabOrder'#2#4#4'Left'#2''#6'Height'#2'!'#3'To'
|
||||
+'p'#2'v'#5'Width'#2'Y'#0#0#5'TEdit'#9'ModString'#8'ReadOnly'#9#7'TabStop'#8#8
|
||||
+'TabOrder'#2#0#4'Left'#2'4'#6'Height'#2#20#3'Top'#2'!'#5'Width'#2'y'#0#0#0
|
||||
]);
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial'
|
||||
+' Number Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10'Font.C'
|
||||
+'olor'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10
|
||||
+'OnActivate'#7#12'FormActivate'#13'PixelsPerInch'#2'S'#8'Position'#7#14'poSc'
|
||||
+'reenCenter'#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3#239#0#18'VertScrol'
|
||||
+'lBar.Page'#3#185#0#4'Left'#3't'#1#6'Height'#3#186#0#3'Top'#3#223#0#5'Width'
|
||||
+#3#240#0#0#6'TLabel'#6'Label1'#9'Alignment'#7#8'taCenter'#7'Caption'#6#10'Se'
|
||||
+'rial #: '#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'&'#6'Height'#2#13
|
||||
+#3'Top'#2'`'#5'Width'#2'3'#0#0#5'TMemo'#5'Memo1'#13'Lines.Strings'#1#6',If y'
|
||||
+'ou can edit this, then your program was '#6#14'allowed to run'#0#10'ScrollB'
|
||||
+'ars'#7#10'ssVertical'#8'TabOrder'#2#0#4'Left'#2#3#6'Height'#2'O'#3'Top'#2#4
|
||||
+#5'Width'#3#223#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Kind'#7#7'bkClose'#9'NumGlyph'
|
||||
+'s'#2#0#8'TabOrder'#2#1#4'Left'#2'H'#6'Height'#2'!'#3'Top'#2'r'#5'Width'#2'Y'
|
||||
+#0#0#19'TOgSerialNumberCode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSer'
|
||||
+'ialNumberCode1Checked'#8'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetC'
|
||||
+'ode'#7#26'OgSerialNumberCode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumber'
|
||||
+'Code1GetModifier'#4'left'#3#172#0#3'top'#2'X'#0#0#0
|
||||
'TPF0'#11'TSNEntryDlg'#10'SNEntryDlg'#4'Left'#3#150#1#6'Height'#3#195#0#3'Top'
|
||||
+#3'x'#1#5'Width'#3#247#0#13'ActiveControl'#7#6'SNText'#7'Caption'#6#23'Seria'
|
||||
+'l Number w/Modifer'#12'ClientHeight'#3#195#0#11'ClientWidth'#3#247#0#10'Fon'
|
||||
+'t.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'
|
||||
+#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'
|
||||
+#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'@'#5
|
||||
+'Width'#2#16#7'Caption'#6#2'SN'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4
|
||||
+'Left'#2#8#6'Height'#2#14#3'Top'#2'Z'#5'Width'#2#26#7'Caption'#6#4'Code'#11
|
||||
+'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2'('#6'Height'#2#14#3'Top'#2
|
||||
+#7#5'Width'#3#160#0#7'Caption'#6'!Call your Vendor NOW to register!'#11'Pare'
|
||||
+'ntColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'%'#5
|
||||
+'Width'#2'&'#7'Caption'#6#8'Modifier'#11'ParentColor'#8#0#0#5'TEdit'#6'SNTex'
|
||||
+'t'#4'Left'#2'4'#6'Height'#2#23#3'Top'#2'<'#5'Width'#2'y'#8'TabOrder'#2#1#0#0
|
||||
+#5'TEdit'#8'CodeText'#4'Left'#2'4'#6'Height'#2#23#3'Top'#2'V'#5'Width'#3#175
|
||||
+#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#5'OKBtn'#4'Left'#2#23#6'Height'#2'!'#3'Top'
|
||||
+#2'v'#5'Width'#2'Y'#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8
|
||||
+'TabOrder'#2#3#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#2''#6'Height'#2'!'#3'Top'
|
||||
+#2'v'#5'Width'#2'Y'#4'Kind'#7#8'bkCancel'#9'NumGlyphs'#2#0#7'OnClick'#7#14'C'
|
||||
+'ancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModString'#4'Left'#2'4'#6'Hei'
|
||||
+'ght'#2#23#3'Top'#2'!'#5'Width'#2'y'#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2
|
||||
+#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -7,6 +7,9 @@ uses
|
||||
Forms, Dialogs, StdCtrls, Buttons,LResources;
|
||||
|
||||
type
|
||||
|
||||
{ TSNEntryDlg }
|
||||
|
||||
TSNEntryDlg = class(TForm)
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
|
||||
@ -2,10 +2,12 @@
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="6"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value=".\"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -22,133 +24,106 @@
|
||||
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="1">
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="tponguard"/>
|
||||
<PackageName Value="LCL"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="tponguard"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="13">
|
||||
<Units Count="3">
|
||||
<Unit0>
|
||||
<Filename Value="exdtp21.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="9" Y="7"/>
|
||||
<CursorPos X="44" Y="9"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="21"/>
|
||||
<UsageCount Value="837"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exdtp21u.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exdtp21u"/>
|
||||
<CursorPos X="1" Y="75"/>
|
||||
<TopLine Value="67"/>
|
||||
<CursorPos X="63" Y="113"/>
|
||||
<TopLine Value="72"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="836"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="..\..\source\qogabout0.pas"/>
|
||||
<ComponentName Value="OgAboutForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qogabout0.lrs"/>
|
||||
<UnitName Value="qogabout0"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="..\..\source\qonguard1.pas"/>
|
||||
<ComponentName Value="KeyGenerateFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qonguard1.lrs"/>
|
||||
<UnitName Value="qonguard1"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\..\source\qonguard2.pas"/>
|
||||
<ComponentName Value="CodeGenerateFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qonguard2.lrs"/>
|
||||
<UnitName Value="qonguard2"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="..\..\source\qonguard3.pas"/>
|
||||
<ComponentName Value="KeyMaintFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qonguard3.lrs"/>
|
||||
<UnitName Value="qonguard3"/>
|
||||
<CursorPos X="4" Y="112"/>
|
||||
<TopLine Value="108"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="..\..\source\qonguard4.pas"/>
|
||||
<ComponentName Value="EditProductFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qonguard4.lrs"/>
|
||||
<UnitName Value="qonguard4"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="..\..\source\qonguard5.pas"/>
|
||||
<UnitName Value="qonguard5"/>
|
||||
<CursorPos X="73" Y="79"/>
|
||||
<TopLine Value="64"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="..\..\source\qonguard6.pas"/>
|
||||
<ComponentName Value="ModifierFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qonguard6.lrs"/>
|
||||
<UnitName Value="qonguard6"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="..\..\source\qonguard7.pas"/>
|
||||
<UnitName Value="qonguard7"/>
|
||||
<CursorPos X="16" Y="35"/>
|
||||
<TopLine Value="67"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="..\..\source\ogconst.pas"/>
|
||||
<UnitName Value="ogconst"/>
|
||||
<CursorPos X="16" Y="35"/>
|
||||
<TopLine Value="18"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="26" Y="1396"/>
|
||||
<TopLine Value="1377"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="..\..\..\..\fpcfix\fpc\rtl\objpas\sysutils\sysinth.inc"/>
|
||||
<CursorPos X="4" Y="48"/>
|
||||
<TopLine Value="31"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit12>
|
||||
<CursorPos X="41" Y="1207"/>
|
||||
<TopLine Value="1199"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="418"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="13" HistoryIndex="12">
|
||||
<Position1>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="83" Column="17" TopLine="69"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="55" Column="22" TopLine="35"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1447" Column="18" TopLine="1429"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="366" Column="3" TopLine="355"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="30" Column="46" TopLine="28"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="81" Column="48" TopLine="43"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="29" Column="30" TopLine="29"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="28" Column="20" TopLine="28"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="exdtp21.lpr"/>
|
||||
<Caret Line="13" Column="40" TopLine="1"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="exdtp21.lpr"/>
|
||||
<Caret Line="9" Column="44" TopLine="1"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="75" Column="1" TopLine="75"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="exdtp21u.pas"/>
|
||||
<Caret Line="106" Column="1" TopLine="91"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1344" Column="8" TopLine="1323"/>
|
||||
</Position13>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
@ -162,12 +137,8 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
@ -179,7 +150,7 @@
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="8">
|
||||
<BreakPoints Count="9">
|
||||
<Item1>
|
||||
<Source Value="..\..\source\qonguard3.pas"/>
|
||||
<Line Value="135"/>
|
||||
@ -212,6 +183,10 @@
|
||||
<Source Value="exdtp21u.pas"/>
|
||||
<Line Value="75"/>
|
||||
</Item8>
|
||||
<Item9>
|
||||
<Source Value="exdtp21u.pas"/>
|
||||
<Line Value="106"/>
|
||||
</Item9>
|
||||
</BreakPoints>
|
||||
<Exceptions Count="2">
|
||||
<Item1>
|
||||
|
||||
@ -3,23 +3,22 @@ object Form1: TForm1
|
||||
Height = 155
|
||||
Top = 279
|
||||
Width = 228
|
||||
HorzScrollBar.Page = 227
|
||||
VertScrollBar.Page = 154
|
||||
ActiveControl = Memo1
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 155
|
||||
ClientWidth = 228
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnActivate = FormActivate
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
object Label1: TLabel
|
||||
Left = 50
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 70
|
||||
Width = 113
|
||||
Width = 99
|
||||
Caption = 'Expires: 00/00/0000'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Memo1: TMemo
|
||||
@ -32,6 +31,7 @@ object Form1: TForm1
|
||||
'was '
|
||||
'allowed to run'
|
||||
)
|
||||
OnDblClick = Memo1DblClick
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 0
|
||||
end
|
||||
@ -48,6 +48,7 @@ object Form1: TForm1
|
||||
OnChecked = OgDateCode1Checked
|
||||
OnGetKey = OgDateCode1GetKey
|
||||
OnGetCode = OgDateCode1GetCode
|
||||
StoreCode = True
|
||||
left = 158
|
||||
top = 87
|
||||
end
|
||||
|
||||
@ -1,19 +1,19 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'b'#1#6'Height'#3#155#0#3'Top'#3#23#1#5'Wi'
|
||||
+'dth'#3#228#0#18'HorzScrollBar.Page'#3#227#0#18'VertScrollBar.Page'#3#154#0
|
||||
+#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#5'Form1'#10'Font.Color'#7#7'clBla'
|
||||
+'ck'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActivate'#7
|
||||
+#12'FormActivate'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCent'
|
||||
+'er'#0#6'TLabel'#6'Label1'#4'Left'#2'2'#6'Height'#2#13#3'Top'#2'F'#5'Width'#2
|
||||
+'q'#7'Caption'#6#19'Expires: 00/00/0000'#5'Color'#7#6'clNone'#11'ParentColor'
|
||||
+#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#2';'#3'Top'#2#8#5'Width'#3#197
|
||||
+#0#13'Lines.Strings'#1#6'#If you can edit this, your program '#6#4'was '#6#14
|
||||
+'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBi'
|
||||
+'tBtn'#8'CloseBtn'#4'Left'#2'8'#6'Height'#2'!'#3'Top'#2'Y'#5'Width'#2'Y'#4'K'
|
||||
+'ind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#11'TOgDateCode'#11'O'
|
||||
+'gDateCode1'#9'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetKey'#7#17'OgDateCo'
|
||||
+'de1GetKey'#9'OnGetCode'#7#18'OgDateCode1GetCode'#4'left'#3#158#0#3'top'#2'W'
|
||||
+#0#0#0
|
||||
+'dth'#3#228#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#5'Form1'#12'ClientHe'
|
||||
+'ight'#3#155#0#11'ClientWidth'#3#228#0#10'Font.Color'#7#7'clBlack'#11'Font.H'
|
||||
+'eight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActivate'#7#12'FormActiv'
|
||||
+'ate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'
|
||||
+#6'Label1'#4'Left'#2'2'#6'Height'#2#14#3'Top'#2'F'#5'Width'#2'c'#7'Caption'#6
|
||||
+#19'Expires: 00/00/0000'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8
|
||||
+#6'Height'#2';'#3'Top'#2#8#5'Width'#3#197#0#13'Lines.Strings'#1#6'#If you ca'
|
||||
+'n edit this, your program '#6#4'was '#6#14'allowed to run'#0#10'OnDblClick'
|
||||
+#7#13'Memo1DblClick'#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'T'
|
||||
+'BitBtn'#8'CloseBtn'#4'Left'#2'8'#6'Height'#2'!'#3'Top'#2'Y'#5'Width'#2'Y'#4
|
||||
+'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#11'TOgDateCode'#11
|
||||
+'OgDateCode1'#9'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetKey'#7#17'OgDateC'
|
||||
+'ode1GetKey'#9'OnGetCode'#7#18'OgDateCode1GetCode'#9'StoreCode'#9#4'left'#3
|
||||
+#158#0#3'top'#2'W'#0#0#0
|
||||
]);
|
||||
|
||||
@ -27,7 +27,7 @@ type
|
||||
OgDateCode1: TOgDateCode;
|
||||
Label1: TLabel;
|
||||
procedure FormActivate(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure Memo1DblClick(Sender: TObject);
|
||||
procedure OgDateCode1GetKey(Sender: TObject; var Key: TKey);
|
||||
procedure OgDateCode1GetCode(Sender: TObject; var Code: TCode);
|
||||
procedure OgDateCode1Checked(Sender: TObject; Status: TCodeStatus);
|
||||
@ -56,9 +56,9 @@ begin
|
||||
if FExpired then Application.Terminate;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
procedure TForm1.Memo1DblClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
ShowMessage(Inttostr(OgDateCode1.GetInvalidCount));
|
||||
end;
|
||||
|
||||
{==========================================================================}
|
||||
@ -84,7 +84,7 @@ begin
|
||||
if (S = '') then begin
|
||||
SD := Date;
|
||||
ED := SD + 21.0;
|
||||
InitDateCode(CKey, SD, ED, Code);
|
||||
InitDateCode(CKey, SD, ED, Code,1);
|
||||
|
||||
{save string representation of release code to Ini File}
|
||||
S := BufferToHex(Code, SizeOf(Code));
|
||||
|
||||
@ -1,2 +1,2 @@
|
||||
[Codes]
|
||||
DateCode=046FEF19C398AE1B
|
||||
[Keys]
|
||||
OnGuard demo=$E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4
|
||||
|
||||
@ -2,10 +2,13 @@
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="6"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value=".\"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -28,7 +31,7 @@
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="3">
|
||||
<Units Count="4">
|
||||
<Unit0>
|
||||
<Filename Value="exdtreg.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
@ -37,39 +40,171 @@
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
<SyntaxHighlighter Value="Delphi"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exdtregu.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exdtregu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ExDTRegU"/>
|
||||
<CursorPos X="83" Y="62"/>
|
||||
<TopLine Value="36"/>
|
||||
<CursorPos X="56" Y="98"/>
|
||||
<TopLine Value="89"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
<SyntaxHighlighter Value="Delphi"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="..\..\source\qonguard3.pas"/>
|
||||
<ComponentName Value="KeyMaintFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="..\..\source\qonguard3.lrs"/>
|
||||
<UnitName Value="qonguard3"/>
|
||||
<CursorPos X="1" Y="280"/>
|
||||
<TopLine Value="252"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="43" Y="1866"/>
|
||||
<TopLine Value="1843"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1320" Column="1" TopLine="1305"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1322" Column="1" TopLine="1307"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1323" Column="1" TopLine="1308"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="exdtregu.pas"/>
|
||||
<Caret Line="72" Column="1" TopLine="57"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="exdtregu.pas"/>
|
||||
<Caret Line="73" Column="1" TopLine="58"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="exdtregu.pas"/>
|
||||
<Caret Line="75" Column="1" TopLine="60"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="exdtregu.pas"/>
|
||||
<Caret Line="77" Column="1" TopLine="62"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="exdtregu.pas"/>
|
||||
<Caret Line="79" Column="1" TopLine="64"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="exdtregu.pas"/>
|
||||
<Caret Line="81" Column="1" TopLine="66"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="exdtregu.pas"/>
|
||||
<Caret Line="83" Column="1" TopLine="68"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1217" Column="1" TopLine="1202"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1218" Column="1" TopLine="1203"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1324" Column="1" TopLine="1309"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1326" Column="1" TopLine="1311"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1327" Column="1" TopLine="1312"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1331" Column="1" TopLine="1316"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1864" Column="40" TopLine="1841"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1320" Column="1" TopLine="1305"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1322" Column="1" TopLine="1307"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1323" Column="1" TopLine="1308"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1324" Column="1" TopLine="1309"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1326" Column="1" TopLine="1311"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1327" Column="1" TopLine="1312"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1932" Column="1" TopLine="1917"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1933" Column="1" TopLine="1918"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1934" Column="1" TopLine="1919"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1936" Column="1" TopLine="1921"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1331" Column="1" TopLine="1316"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1856" Column="1" TopLine="1841"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="..\..\source\onguard.pas"/>
|
||||
<Caret Line="1857" Column="1" TopLine="1842"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<SyntaxMode Value="Delphi"/>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
<DelphiCompat Value="True"/>
|
||||
<UseAnsiStrings Value="True"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
@ -80,18 +215,29 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="2">
|
||||
<Item1>
|
||||
<Source Value="..\..\source\onguard.pas"/>
|
||||
<Line Value="1320"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Source Value="exdtregu.pas"/>
|
||||
<Line Value="44"/>
|
||||
</Item2>
|
||||
</BreakPoints>
|
||||
<Exceptions Count="2">
|
||||
<Item1>
|
||||
<Name Value="ECodetoolError"/>
|
||||
|
||||
@ -1,2 +0,0 @@
|
||||
[Codes]
|
||||
DaysCode=B166F4C9600A9E1A
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -27,33 +28,32 @@
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="6">
|
||||
<Units Count="8">
|
||||
<Unit0>
|
||||
<Filename Value="exdyreg.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="48" Y="7"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="20"/>
|
||||
<UsageCount Value="22"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exdyregu.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exdyregu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ExDYRegU"/>
|
||||
<CursorPos X="76" Y="54"/>
|
||||
<TopLine Value="62"/>
|
||||
<CursorPos X="3" Y="46"/>
|
||||
<TopLine Value="42"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="../../source/qonguard3.pas"/>
|
||||
<ComponentName Value="KeyMaintFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="../../source/qonguard3.lrs"/>
|
||||
<UnitName Value="qonguard3"/>
|
||||
<CursorPos X="1" Y="132"/>
|
||||
<TopLine Value="132"/>
|
||||
@ -63,7 +63,6 @@
|
||||
<Filename Value="../../source/qonguard2.pas"/>
|
||||
<ComponentName Value="CodeGenerateFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="../../source/qonguard2.lrs"/>
|
||||
<UnitName Value="qonguard2"/>
|
||||
<CursorPos X="4" Y="351"/>
|
||||
<TopLine Value="348"/>
|
||||
@ -81,11 +80,58 @@
|
||||
<TopLine Value="120"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="24" Y="1865"/>
|
||||
<TopLine Value="1846"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="../../source/ogutil.pas"/>
|
||||
<UnitName Value="ogutil"/>
|
||||
<CursorPos X="29" Y="506"/>
|
||||
<TopLine Value="472"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="8" HistoryIndex="7">
|
||||
<Position1>
|
||||
<Filename Value="exdyregu.pas"/>
|
||||
<Caret Line="12" Column="24" TopLine="1"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="exdyregu.pas"/>
|
||||
<Caret Line="92" Column="1" TopLine="77"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="exdyregu.pas"/>
|
||||
<Caret Line="94" Column="1" TopLine="79"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="exdyregu.pas"/>
|
||||
<Caret Line="95" Column="1" TopLine="80"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="exdyregu.pas"/>
|
||||
<Caret Line="96" Column="1" TopLine="81"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="exdyregu.pas"/>
|
||||
<Caret Line="98" Column="17" TopLine="89"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="exdyregu.pas"/>
|
||||
<Caret Line="98" Column="17" TopLine="56"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="exdyregu.pas"/>
|
||||
<Caret Line="132" Column="3" TopLine="54"/>
|
||||
</Position8>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -98,18 +144,29 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="2">
|
||||
<Item1>
|
||||
<Source Value="exdyregu.pas"/>
|
||||
<Line Value="92"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Source Value="../../source/ogutil.pas"/>
|
||||
<Line Value="505"/>
|
||||
</Item2>
|
||||
</BreakPoints>
|
||||
<Exceptions Count="2">
|
||||
<Item1>
|
||||
<Name Value="ECodetoolError"/>
|
||||
|
||||
@ -1,2 +1,2 @@
|
||||
[Codes]
|
||||
DaysCode=82FC3292E294CC3A
|
||||
DaysCode=85A52AA9BB5EEE6C5D13
|
||||
|
||||
@ -1,11 +1,13 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -21,39 +23,114 @@
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="1">
|
||||
<RequiredPackages Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="tponguard"/>
|
||||
<PackageName Value="LCL"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="tponguard"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="2">
|
||||
<Units Count="7">
|
||||
<Unit0>
|
||||
<Filename Value="exdys30.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="10" Y="4"/>
|
||||
<CursorPos X="8" Y="2"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="20"/>
|
||||
<UsageCount Value="212"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exdys30u.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exdys30u.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exdys30u"/>
|
||||
<CursorPos X="29" Y="69"/>
|
||||
<TopLine Value="50"/>
|
||||
<CursorPos X="37" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="212"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="1" Y="1407"/>
|
||||
<TopLine Value="1392"/>
|
||||
<UsageCount Value="106"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="../../../../../../temp/fpc/rtl/i386/i386.inc"/>
|
||||
<CursorPos X="1" Y="1462"/>
|
||||
<TopLine Value="1447"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../../source/qogabout0.pas"/>
|
||||
<ComponentName Value="OgAboutForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="qogabout0"/>
|
||||
<CursorPos X="42" Y="184"/>
|
||||
<TopLine Value="179"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="../../../../../../lazarus/lcl/extctrls.pp"/>
|
||||
<UnitName Value="ExtCtrls"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="../../source/ogutil.pas"/>
|
||||
<UnitName Value="ogutil"/>
|
||||
<CursorPos X="3" Y="71"/>
|
||||
<TopLine Value="56"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit6>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="8" HistoryIndex="7">
|
||||
<Position1>
|
||||
<Filename Value="exdys30u.pas"/>
|
||||
<Caret Line="130" Column="1" TopLine="115"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="exdys30u.pas"/>
|
||||
<Caret Line="132" Column="1" TopLine="117"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="exdys30u.pas"/>
|
||||
<Caret Line="133" Column="1" TopLine="118"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="exdys30u.pas"/>
|
||||
<Caret Line="134" Column="1" TopLine="119"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="exdys30u.pas"/>
|
||||
<Caret Line="151" Column="1" TopLine="127"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="exdys30u.pas"/>
|
||||
<Caret Line="113" Column="1" TopLine="98"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="exdys30u.pas"/>
|
||||
<Caret Line="94" Column="27" TopLine="84"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="exdys30u.pas"/>
|
||||
<Caret Line="36" Column="30" TopLine="30"/>
|
||||
</Position8>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -66,18 +143,45 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="6">
|
||||
<Item1>
|
||||
<Source Value="exdys30u.pas"/>
|
||||
<Line Value="125"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Source Value="../../source/onguard.pas"/>
|
||||
<Line Value="1360"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Source Value="exdys30u.pas"/>
|
||||
<Line Value="108"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<Source Value="../../source/qogabout0.pas"/>
|
||||
<Line Value="102"/>
|
||||
</Item4>
|
||||
<Item5>
|
||||
<Source Value="../../source/qogabout0.pas"/>
|
||||
<Line Value="97"/>
|
||||
</Item5>
|
||||
<Item6>
|
||||
<Source Value="../../source/onguard.pas"/>
|
||||
<Line Value="1970"/>
|
||||
</Item6>
|
||||
</BreakPoints>
|
||||
<Exceptions Count="2">
|
||||
<Item1>
|
||||
<Name Value="ECodetoolError"/>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
program Exdys30;
|
||||
{$objfpc}{$H+}
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
Interfaces,
|
||||
|
||||
@ -3,21 +3,22 @@ object Form1: TForm1
|
||||
Height = 158
|
||||
Top = 260
|
||||
Width = 229
|
||||
HorzScrollBar.Page = 228
|
||||
VertScrollBar.Page = 157
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 158
|
||||
ClientWidth = 229
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
object Label1: TLabel
|
||||
Left = 64
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 74
|
||||
Width = 99
|
||||
Width = 84
|
||||
Alignment = taCenter
|
||||
Caption = 'Days Remaining: '
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Memo1: TMemo
|
||||
@ -47,6 +48,6 @@ object Form1: TForm1
|
||||
OnGetCode = OgDaysCode1GetCode
|
||||
OnChangeCode = OgDaysCode1ChangeCode
|
||||
left = 88
|
||||
top = 176
|
||||
top = 130
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,18 +1,19 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'D'#1#6'Height'#3#158#0#3'Top'#3#4#1#5'Wid'
|
||||
+'th'#3#229#0#18'HorzScrollBar.Page'#3#228#0#18'VertScrollBar.Page'#3#157#0#7
|
||||
+'Caption'#6#5'Form1'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Fon'
|
||||
+'t.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#6
|
||||
+'Label1'#4'Left'#2'@'#6'Height'#2#13#3'Top'#2'J'#5'Width'#2'c'#9'Alignment'#7
|
||||
+#8'taCenter'#7'Caption'#6#16'Days Remaining: '#5'Color'#7#6'clNone'#11'Paren'
|
||||
+'tColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#6#6'Height'#2'-'#3'Top'#2#14#5'Wi'
|
||||
+'dth'#3#213#0#13'Lines.Strings'#1#6'(If you can edit this, then your program'
|
||||
+' '#6#18'was allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2
|
||||
+#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'@'#6'Height'#2'!'#3'Top'#2'\'#5'Widt'
|
||||
+'h'#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#11'TOgDay'
|
||||
+'sCode'#11'OgDaysCode1'#9'OnChecked'#7#18'OgDaysCode1Checked'#8'OnGetKey'#7
|
||||
+#17'OgDaysCode1GetKey'#9'OnGetCode'#7#18'OgDaysCode1GetCode'#12'OnChangeCode'
|
||||
+#7#21'OgDaysCode1ChangeCode'#4'left'#2'X'#3'top'#3#176#0#0#0#0
|
||||
+'th'#3#229#0#7'Caption'#6#5'Form1'#12'ClientHeight'#3#158#0#11'ClientWidth'#3
|
||||
+#229#0#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'M'
|
||||
+'S Sans Serif'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'
|
||||
+#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2'@'#6'Height'#2#14
|
||||
+#3'Top'#2'J'#5'Width'#2'T'#9'Alignment'#7#8'taCenter'#7'Caption'#6#16'Days R'
|
||||
+'emaining: '#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#6#6'Height'#2
|
||||
+'-'#3'Top'#2#14#5'Width'#3#213#0#13'Lines.Strings'#1#6'(If you can edit this'
|
||||
+', then your program '#6#18'was allowed to run'#0#10'ScrollBars'#7#10'ssVert'
|
||||
+'ical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'@'#6'Height'#2'!'
|
||||
+#3'Top'#2'\'#5'Width'#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'
|
||||
+#2#1#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#18'OgDaysCode1Checke'
|
||||
+'d'#8'OnGetKey'#7#17'OgDaysCode1GetKey'#9'OnGetCode'#7#18'OgDaysCode1GetCode'
|
||||
+#12'OnChangeCode'#7#21'OgDaysCode1ChangeCode'#4'left'#2'X'#3'top'#3#130#0#0#0
|
||||
+#0
|
||||
]);
|
||||
|
||||
@ -3,7 +3,9 @@
|
||||
program is run, the necessary information is created and stored
|
||||
in an INI file. In addition, the program is given a "drop dead"
|
||||
date, i.e., regardless of how many days the program has been used,
|
||||
it cannont be used after that date (1999 December 31).
|
||||
it cannont be used after that date (2009 December 31).
|
||||
InvalidCount is set to 3, user is allowed to 3 times break the rules,
|
||||
for example changing date back to execute program after trial period expired.
|
||||
*)
|
||||
unit Exdys30u;
|
||||
|
||||
@ -27,12 +29,13 @@ type
|
||||
CloseBtn: TBitBtn;
|
||||
OgDaysCode1: TOgDaysCode;
|
||||
Label1: TLabel;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure OgDaysCode1GetKey(Sender: TObject; var Key: TKey);
|
||||
procedure OgDaysCode1GetCode(Sender: TObject; var Code: TCode);
|
||||
procedure OgDaysCode1ChangeCode(Sender: TObject; Code: TCode);
|
||||
procedure OgDaysCode1Checked(Sender: TObject; Status: TCodeStatus);
|
||||
private
|
||||
{ Private declarations }
|
||||
codeinvalid : Boolean;
|
||||
public
|
||||
{ Public declarations }
|
||||
TheDir : string;
|
||||
@ -53,6 +56,11 @@ begin
|
||||
Key := CKey;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
codeinvalid := false;
|
||||
end;
|
||||
|
||||
{==========================================================================}
|
||||
|
||||
procedure TForm1.OgDaysCode1GetCode(Sender: TObject; var Code: TCode);
|
||||
@ -77,8 +85,8 @@ begin
|
||||
{If default string returned, create code on the fly}
|
||||
if (S = 'NoCode') then begin
|
||||
{force absolute ("drop dead") expiration date of 1999 Dec. 31}
|
||||
Expires := EncodeDate(1999, 12, 31);
|
||||
InitDaysCode(CKey, 30, Expires, Code);
|
||||
Expires := EncodeDate(2009, 12, 31);
|
||||
InitDaysCode(CKey, 30, Expires, Code,3);
|
||||
|
||||
{save string representation of release code to Ini File}
|
||||
S := BufferToHex(Code, SizeOf(Code));
|
||||
@ -97,6 +105,7 @@ procedure TForm1.OgDaysCode1ChangeCode(Sender: TObject; Code: TCode);
|
||||
var
|
||||
S : string;
|
||||
begin
|
||||
if codeinvalid then Exit;
|
||||
IniFile := TIniFile.Create(TheDir + 'Days30.INI');
|
||||
try
|
||||
{convert Code to string for writing to INI file}
|
||||
@ -120,7 +129,11 @@ begin
|
||||
Exit;
|
||||
end;
|
||||
|
||||
ogInvalidCode : S := 'Invalid Code';
|
||||
ogInvalidCode :
|
||||
begin
|
||||
S := 'Invalid Code';
|
||||
codeinvalid := true;
|
||||
end;
|
||||
|
||||
ogDayCountUsed : S := 'Program used more than 30 days' + #13 +
|
||||
'Please register NOW';
|
||||
|
||||
@ -1,14 +1,13 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -30,11 +29,11 @@
|
||||
<MinVersion Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="26">
|
||||
<Units Count="27">
|
||||
<Unit0>
|
||||
<Filename Value="exinst.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="10" Y="8"/>
|
||||
<CursorPos X="12" Y="18"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="24"/>
|
||||
@ -42,14 +41,15 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exinstu.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="FirstInstFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exinstu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="EXINSTU"/>
|
||||
<CursorPos X="45" Y="22"/>
|
||||
<CursorPos X="22" Y="7"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
@ -87,9 +87,11 @@
|
||||
<Unit7>
|
||||
<Filename Value="../../source/ogfirst.pas"/>
|
||||
<UnitName Value="ogfirst"/>
|
||||
<CursorPos X="1" Y="186"/>
|
||||
<TopLine Value="168"/>
|
||||
<CursorPos X="3" Y="71"/>
|
||||
<TopLine Value="161"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="../../../../lazarus0915/fpcsrc/rtl/win32/wininc/ascdef.inc"/>
|
||||
@ -108,7 +110,6 @@
|
||||
<Filename Value="../../source/qonguard6.pas"/>
|
||||
<ComponentName Value="ModifierFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="../../source/qonguard6.lrs"/>
|
||||
<UnitName Value="qonguard6"/>
|
||||
<CursorPos X="27" Y="2"/>
|
||||
<TopLine Value="1"/>
|
||||
@ -195,15 +196,15 @@
|
||||
<Unit22>
|
||||
<Filename Value="../../source/ogutil.pas"/>
|
||||
<UnitName Value="ogutil"/>
|
||||
<CursorPos X="30" Y="781"/>
|
||||
<TopLine Value="748"/>
|
||||
<CursorPos X="34" Y="1514"/>
|
||||
<TopLine Value="1499"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit22>
|
||||
<Unit23>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="40" Y="941"/>
|
||||
<TopLine Value="926"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit23>
|
||||
<Unit24>
|
||||
@ -220,11 +221,27 @@
|
||||
<TopLine Value="185"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit25>
|
||||
<Unit26>
|
||||
<Filename Value="exinstu.lfm"/>
|
||||
<CursorPos X="21" Y="10"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit26>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="2" HistoryIndex="1">
|
||||
<Position1>
|
||||
<Filename Value="exinst.lpr"/>
|
||||
<Caret Line="18" Column="12" TopLine="1"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="../../source/ogfirst.pas"/>
|
||||
<Caret Line="87" Column="21" TopLine="83"/>
|
||||
</Position2>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="../../source/"/>
|
||||
</SearchPaths>
|
||||
@ -240,7 +257,6 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
|
||||
@ -8,7 +8,6 @@ object FirstInstFrm: TFirstInstFrm
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Pitch = fpVariable
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 18
|
||||
HorzScrollBar.Page = 319
|
||||
HorzScrollBar.Range = 307
|
||||
VertScrollBar.Page = 139
|
||||
|
||||
@ -1,17 +1,14 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
|
||||
LazarusResources.Add('TFirstInstFrm','FORMDATA',[
|
||||
'TPF0'#13'TFirstInstFrm'#12'FirstInstFrm'#13'ActiveControl'#7#5'Memo1'#7'Capt'
|
||||
+'ion'#6#23'Single Instance Example'#12'ClientHeight'#3#140#0#11'ClientWidth'
|
||||
+#3'@'#1#10'Font.Color'#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS'
|
||||
+' Sans Serif'#10'Font.Pitch'#7#10'fpVariable'#13'PixelsPerInch'#2'`'#10'Text'
|
||||
+'Height'#2#18#18'HorzScrollBar.Page'#3'?'#1#19'HorzScrollBar.Range'#3'3'#1#18
|
||||
+'VertScrollBar.Page'#3#139#0#19'VertScrollBar.Range'#3#129#0#4'Left'#3'G'#1#6
|
||||
+'Height'#3#140#0#3'Top'#3#218#0#5'Width'#3'@'#1#0#5'TMemo'#5'Memo1'#13'Lines'
|
||||
+'.Strings'#1#6'=Attempts to execute this application a second time result in'
|
||||
+' '#6';the first instance to be activated and the second instance '#6#11'ter'
|
||||
+'minated.'#0#8'ReadOnly'#9#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2'Y'#3'Top'
|
||||
+#2#8#5'Width'#3')'#1#0#0#7'TBitBtn'#7'BitBtn2'#4'Kind'#7#7'bkClose'#9'NumGly'
|
||||
+'phs'#2#0#8'TabOrder'#2#1#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2'h'#5'Width'
|
||||
+#2'K'#0#0#0
|
||||
+' Sans Serif'#10'Font.Pitch'#7#10'fpVariable'#13'PixelsPerInch'#2'`'#18'Horz'
|
||||
+'ScrollBar.Page'#3'?'#1#19'HorzScrollBar.Range'#3'3'#1#18'VertScrollBar.Page'
|
||||
+#3#139#0#19'VertScrollBar.Range'#3#129#0#4'Left'#3'G'#1#6'Height'#3#140#0#3
|
||||
+'Top'#3#218#0#5'Width'#3'@'#1#0#5'TMemo'#5'Memo1'#13'Lines.Strings'#1#6'=Att'
|
||||
+'empts to execute this application a second time result in '#6';the first in'
|
||||
+'stance to be activated and the second instance '#6#11'terminated.'#0#8'Read'
|
||||
+'Only'#9#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2'Y'#3'Top'#2#8#5'Width'#3')'
|
||||
+#1#0#0#7'TBitBtn'#7'BitBtn2'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrde'
|
||||
+'r'#2#1#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2'h'#5'Width'#2'K'#0#0#0
|
||||
]);
|
||||
|
||||
@ -1,17 +1,16 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<Title Value="exmachid"/>
|
||||
<ActiveEditorIndexAtStart Value="2"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -31,26 +30,27 @@
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="9">
|
||||
<Units Count="14">
|
||||
<Unit0>
|
||||
<Filename Value="exmachid.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="6" Y="11"/>
|
||||
<CursorPos X="38" Y="15"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="20"/>
|
||||
<UsageCount Value="23"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="umachid.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmExMachineID"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="umachid.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="uMachID"/>
|
||||
<CursorPos X="26" Y="56"/>
|
||||
<TopLine Value="33"/>
|
||||
<CursorPos X="31" Y="31"/>
|
||||
<TopLine Value="26"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="20"/>
|
||||
<UsageCount Value="22"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
@ -63,11 +63,9 @@
|
||||
<Unit3>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="1" Y="1383"/>
|
||||
<TopLine Value="1366"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
<CursorPos X="1" Y="604"/>
|
||||
<TopLine Value="589"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../../../../lazarus0915/lcl/include/control.inc"/>
|
||||
@ -100,132 +98,44 @@
|
||||
<TopLine Value="1032"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="umachid.lfm"/>
|
||||
<CursorPos X="28" Y="12"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="../../source/ogutil.pas"/>
|
||||
<UnitName Value="ogutil"/>
|
||||
<CursorPos X="50" Y="1284"/>
|
||||
<TopLine Value="1261"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="../../source/IdeSN.pas"/>
|
||||
<UnitName Value="idesn"/>
|
||||
<CursorPos X="53" Y="158"/>
|
||||
<TopLine Value="142"/>
|
||||
<UsageCount Value="11"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="../../../../../../temp/fpc/rtl/i386/strings.inc"/>
|
||||
<CursorPos X="1" Y="64"/>
|
||||
<TopLine Value="49"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="../../../../../../temp/fpc/rtl/objpas/sysutils/sysutils.inc"/>
|
||||
<CursorPos X="1" Y="361"/>
|
||||
<TopLine Value="346"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit13>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1314" Column="1" TopLine="1297"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1315" Column="1" TopLine="1298"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1316" Column="1" TopLine="1299"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1321" Column="1" TopLine="1304"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1323" Column="1" TopLine="1306"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1324" Column="1" TopLine="1307"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1325" Column="1" TopLine="1308"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1326" Column="1" TopLine="1309"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1328" Column="1" TopLine="1311"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1329" Column="1" TopLine="1312"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1331" Column="1" TopLine="1314"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1333" Column="1" TopLine="1316"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1334" Column="1" TopLine="1317"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1335" Column="1" TopLine="1318"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1336" Column="1" TopLine="1319"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1338" Column="1" TopLine="1321"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1339" Column="1" TopLine="1322"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1341" Column="1" TopLine="1324"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1343" Column="1" TopLine="1326"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1344" Column="1" TopLine="1327"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1345" Column="1" TopLine="1328"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1346" Column="1" TopLine="1329"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1348" Column="1" TopLine="1331"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1349" Column="1" TopLine="1332"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1351" Column="1" TopLine="1334"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1354" Column="1" TopLine="1337"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1357" Column="1" TopLine="1340"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1358" Column="1" TopLine="1341"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1360" Column="1" TopLine="1343"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1369" Column="1" TopLine="1352"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -238,28 +148,19 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="2">
|
||||
<Item1>
|
||||
<Source Value="../../../source/ogfirst.pas"/>
|
||||
<Line Value="234"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Source Value="../../source/onguard.pas"/>
|
||||
<Line Value="1302"/>
|
||||
</Item2>
|
||||
</BreakPoints>
|
||||
<Exceptions Count="2">
|
||||
<Item1>
|
||||
<Name Value="ECodetoolError"/>
|
||||
|
||||
@ -1,4 +1,8 @@
|
||||
object frmExMachineID: TfrmExMachineID
|
||||
Left = 364
|
||||
Height = 174
|
||||
Top = 254
|
||||
Width = 240
|
||||
ActiveControl = chkUser
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
Caption = 'ExMachineID'
|
||||
@ -8,75 +12,66 @@ object frmExMachineID: TfrmExMachineID
|
||||
Font.Height = 11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Pitch = fpVariable
|
||||
PixelsPerInch = 96
|
||||
Position = poScreenCenter
|
||||
TextHeight = 18
|
||||
HorzScrollBar.Page = 239
|
||||
HorzScrollBar.Range = 209
|
||||
VertScrollBar.Page = 173
|
||||
VertScrollBar.Range = 121
|
||||
Left = 364
|
||||
Height = 174
|
||||
Top = 254
|
||||
Width = 240
|
||||
LCLVersion = '0.9.27'
|
||||
object GroupBox1: TGroupBox
|
||||
Caption = ' Machine Info Set '
|
||||
ClientHeight = 119
|
||||
ClientWidth = 109
|
||||
TabOrder = 0
|
||||
Left = 8
|
||||
Height = 137
|
||||
Top = 8
|
||||
Width = 113
|
||||
object chkUser: TCheckBox
|
||||
Caption = 'User'
|
||||
Caption = ' Machine Info Set '
|
||||
ClientHeight = 119
|
||||
ClientWidth = 109
|
||||
TabOrder = 0
|
||||
object chkUser: TCheckBox
|
||||
Left = 24
|
||||
Height = 17
|
||||
Top = 16
|
||||
Width = 65
|
||||
Width = 40
|
||||
Caption = 'User'
|
||||
TabOrder = 0
|
||||
end
|
||||
object chkSystem: TCheckBox
|
||||
Caption = 'System'
|
||||
TabOrder = 1
|
||||
Left = 24
|
||||
Height = 17
|
||||
Top = 40
|
||||
Width = 65
|
||||
Width = 52
|
||||
Caption = 'System'
|
||||
TabOrder = 1
|
||||
end
|
||||
object chkNetwork: TCheckBox
|
||||
Caption = 'Network'
|
||||
TabOrder = 2
|
||||
Left = 24
|
||||
Height = 17
|
||||
Top = 64
|
||||
Width = 73
|
||||
Width = 58
|
||||
Caption = 'Network'
|
||||
TabOrder = 2
|
||||
end
|
||||
object chkDrives: TCheckBox
|
||||
Caption = 'Drives'
|
||||
TabOrder = 3
|
||||
Left = 24
|
||||
Height = 17
|
||||
Top = 88
|
||||
Width = 57
|
||||
Width = 48
|
||||
Caption = 'Drives'
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object btnGenerate: TButton
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Generate'
|
||||
OnClick = btnGenerateClick
|
||||
TabOrder = 1
|
||||
Left = 131
|
||||
Height = 25
|
||||
Top = 32
|
||||
Width = 75
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Generate'
|
||||
OnClick = btnGenerateClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object edtMachineID: TEdit
|
||||
ReadOnly = True
|
||||
TabOrder = 2
|
||||
Left = 128
|
||||
Height = 26
|
||||
Height = 23
|
||||
Top = 72
|
||||
Width = 81
|
||||
ReadOnly = True
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,25 +1,23 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
|
||||
LazarusResources.Add('TfrmExMachineID','FORMDATA',[
|
||||
'TPF0'#15'TfrmExMachineID'#14'frmExMachineID'#13'ActiveControl'#7#7'chkUser'
|
||||
+#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#11'ExMach'
|
||||
+'ineID'#12'ClientHeight'#3#174#0#11'ClientWidth'#3#240#0#10'Font.Color'#7#6
|
||||
+'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch'
|
||||
+#7#10'fpVariable'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10
|
||||
+'TextHeight'#2#18#18'HorzScrollBar.Page'#3#239#0#19'HorzScrollBar.Range'#3
|
||||
+#209#0#18'VertScrollBar.Page'#3#173#0#19'VertScrollBar.Range'#2'y'#4'Left'#3
|
||||
+'l'#1#6'Height'#3#174#0#3'Top'#3#254#0#5'Width'#3#240#0#0#9'TGroupBox'#9'Gro'
|
||||
+'upBox1'#7'Caption'#6#18' Machine Info Set '#12'ClientHeight'#2'w'#11'Client'
|
||||
+'Width'#2'm'#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#3#137#0#3'Top'#2#8#5'Widt'
|
||||
+'h'#2'q'#0#9'TCheckBox'#7'chkUser'#7'Caption'#6#4'User'#8'TabOrder'#2#0#4'Le'
|
||||
+'ft'#2#24#6'Height'#2#17#3'Top'#2#16#5'Width'#2'A'#0#0#9'TCheckBox'#9'chkSys'
|
||||
+'tem'#7'Caption'#6#6'System'#8'TabOrder'#2#1#4'Left'#2#24#6'Height'#2#17#3'T'
|
||||
+'op'#2'('#5'Width'#2'A'#0#0#9'TCheckBox'#10'chkNetwork'#7'Caption'#6#7'Netwo'
|
||||
+'rk'#8'TabOrder'#2#2#4'Left'#2#24#6'Height'#2#17#3'Top'#2'@'#5'Width'#2'I'#0
|
||||
+#0#9'TCheckBox'#9'chkDrives'#7'Caption'#6#6'Drives'#8'TabOrder'#2#3#4'Left'#2
|
||||
+#24#6'Height'#2#17#3'Top'#2'X'#5'Width'#2'9'#0#0#0#7'TButton'#11'btnGenerate'
|
||||
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8'Generate'#7'OnClick'#7#16
|
||||
+'btnGenerateClick'#8'TabOrder'#2#1#4'Left'#3#131#0#6'Height'#2#25#3'Top'#2' '
|
||||
+#5'Width'#2'K'#0#0#5'TEdit'#12'edtMachineID'#8'ReadOnly'#9#8'TabOrder'#2#2#4
|
||||
+'Left'#3#128#0#6'Height'#2#26#3'Top'#2'H'#5'Width'#2'Q'#0#0#0
|
||||
'TPF0'#15'TfrmExMachineID'#14'frmExMachineID'#4'Left'#3'l'#1#6'Height'#3#174#0
|
||||
+#3'Top'#3#254#0#5'Width'#3#240#0#13'ActiveControl'#7#7'chkUser'#11'BorderIco'
|
||||
+'ns'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#11'ExMachineID'#12'Cl'
|
||||
+'ientHeight'#3#174#0#11'ClientWidth'#3#240#0#10'Font.Color'#7#6'clText'#11'F'
|
||||
+'ont.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch'#7#10'fpVar'
|
||||
+'iable'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#9'TGro'
|
||||
+'upBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3#137#0#3'Top'#2#8#5'Width'#2'q'#7
|
||||
+'Caption'#6#18' Machine Info Set '#12'ClientHeight'#2'w'#11'ClientWidth'#2'm'
|
||||
+#8'TabOrder'#2#0#0#9'TCheckBox'#7'chkUser'#4'Left'#2#24#6'Height'#2#17#3'Top'
|
||||
+#2#16#5'Width'#2'('#7'Caption'#6#4'User'#8'TabOrder'#2#0#0#0#9'TCheckBox'#9
|
||||
+'chkSystem'#4'Left'#2#24#6'Height'#2#17#3'Top'#2'('#5'Width'#2'4'#7'Caption'
|
||||
+#6#6'System'#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'chkNetwork'#4'Left'#2#24#6
|
||||
+'Height'#2#17#3'Top'#2'@'#5'Width'#2':'#7'Caption'#6#7'Network'#8'TabOrder'#2
|
||||
+#2#0#0#9'TCheckBox'#9'chkDrives'#4'Left'#2#24#6'Height'#2#17#3'Top'#2'X'#5'W'
|
||||
+'idth'#2'0'#7'Caption'#6#6'Drives'#8'TabOrder'#2#3#0#0#0#7'TButton'#11'btnGe'
|
||||
+'nerate'#4'Left'#3#131#0#6'Height'#2#25#3'Top'#2' '#5'Width'#2'K'#25'BorderS'
|
||||
+'pacing.InnerBorder'#2#4#7'Caption'#6#8'Generate'#7'OnClick'#7#16'btnGenerat'
|
||||
+'eClick'#8'TabOrder'#2#1#0#0#5'TEdit'#12'edtMachineID'#4'Left'#3#128#0#6'Hei'
|
||||
+'ght'#2#23#3'Top'#2'H'#5'Width'#2'Q'#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0
|
||||
]);
|
||||
|
||||
Binary file not shown.
@ -1,2 +1,2 @@
|
||||
[Codes]
|
||||
NetCode=241918EC8E3BABBB
|
||||
NetCode=6191568CC37B6CF00000
|
||||
|
||||
@ -1,14 +1,13 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -44,10 +43,10 @@
|
||||
<Filename Value="exnetu.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exnetu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exnetu"/>
|
||||
<CursorPos X="53" Y="159"/>
|
||||
<TopLine Value="1"/>
|
||||
<TopLine Value="118"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -77,7 +76,7 @@
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -90,12 +89,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="2"/>
|
||||
</General>
|
||||
@ -41,7 +42,7 @@
|
||||
<Filename Value="exprotu.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exprotu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="EXPROTU"/>
|
||||
<CursorPos X="15" Y="8"/>
|
||||
<TopLine Value="1"/>
|
||||
@ -62,14 +63,16 @@
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Version Value="8"/>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<StripSymbols Value="True"/>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -1,14 +1,13 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -34,7 +33,7 @@
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="5">
|
||||
<Units Count="6">
|
||||
<Unit0>
|
||||
<Filename Value="exreg.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
@ -46,22 +45,25 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exreg1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmExRegCode"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exreg1.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ExReg1"/>
|
||||
<CursorPos X="35" Y="90"/>
|
||||
<TopLine Value="62"/>
|
||||
<CursorPos X="1" Y="75"/>
|
||||
<TopLine Value="57"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="9" Y="679"/>
|
||||
<TopLine Value="714"/>
|
||||
<CursorPos X="3" Y="2041"/>
|
||||
<TopLine Value="2036"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="../../../../lazarus0915/lcl/editbtn.pas"/>
|
||||
@ -76,16 +78,80 @@
|
||||
<TopLine Value="101"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="../../../../../../temp/fpc/rtl/objpas/sysutils/datih.inc"/>
|
||||
<CursorPos X="10" Y="127"/>
|
||||
<TopLine Value="106"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit5>
|
||||
</Units>
|
||||
<JumpHistory Count="1" HistoryIndex="0">
|
||||
<JumpHistory Count="15" HistoryIndex="14">
|
||||
<Position1>
|
||||
<Filename Value="exreg1.pas"/>
|
||||
<Caret Line="26" Column="68" TopLine="36"/>
|
||||
<Caret Line="69" Column="27" TopLine="62"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="exreg1.pas"/>
|
||||
<Caret Line="79" Column="16" TopLine="68"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1979" Column="61" TopLine="1979"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="exreg1.pas"/>
|
||||
<Caret Line="80" Column="19" TopLine="68"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1985" Column="34" TopLine="1979"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="72" Column="16" TopLine="70"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="90" Column="22" TopLine="75"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1901" Column="28" TopLine="1886"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="exreg1.pas"/>
|
||||
<Caret Line="77" Column="62" TopLine="60"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="exreg1.pas"/>
|
||||
<Caret Line="73" Column="60" TopLine="60"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="exreg1.pas"/>
|
||||
<Caret Line="62" Column="13" TopLine="54"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="exreg1.pas"/>
|
||||
<Caret Line="65" Column="10" TopLine="54"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="exreg1.pas"/>
|
||||
<Caret Line="61" Column="14" TopLine="54"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="exreg1.pas"/>
|
||||
<Caret Line="65" Column="9" TopLine="54"/>
|
||||
</Position15>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -98,12 +164,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -3,49 +3,49 @@ object frmExRegCode: TfrmExRegCode
|
||||
Height = 298
|
||||
Top = 180
|
||||
Width = 391
|
||||
HorzScrollBar.Page = 390
|
||||
VertScrollBar.Page = 297
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Registration Code Example'
|
||||
ClientHeight = 298
|
||||
ClientWidth = 391
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 8
|
||||
Height = 129
|
||||
Top = 8
|
||||
Width = 369
|
||||
Caption = ' Registration Code Generator (vendor site) '
|
||||
ClientHeight = 111
|
||||
ClientWidth = 365
|
||||
TabOrder = 0
|
||||
object Label1: TLabel
|
||||
Left = 39
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 28
|
||||
Width = 72
|
||||
Width = 57
|
||||
Alignment = taRightJustify
|
||||
Caption = 'User Name:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 14
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 60
|
||||
Width = 97
|
||||
Width = 76
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Expiration Date:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 6
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 92
|
||||
Width = 105
|
||||
Width = 88
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Registration Code:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object btnGenerate: TSpeedButton
|
||||
@ -75,14 +75,14 @@ object frmExRegCode: TfrmExRegCode
|
||||
end
|
||||
object edtUserName1: TEdit
|
||||
Left = 120
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 24
|
||||
Width = 233
|
||||
TabOrder = 0
|
||||
end
|
||||
object edtRegCode1: TEdit
|
||||
Left = 120
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 88
|
||||
Width = 201
|
||||
Color = clBtnFace
|
||||
@ -91,7 +91,7 @@ object frmExRegCode: TfrmExRegCode
|
||||
end
|
||||
object edDate: TEdit
|
||||
Left = 121
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 57
|
||||
Width = 118
|
||||
TabOrder = 2
|
||||
@ -103,35 +103,34 @@ object frmExRegCode: TfrmExRegCode
|
||||
Top = 152
|
||||
Width = 369
|
||||
Caption = ' Registration Code Verification (client site) '
|
||||
ClientHeight = 111
|
||||
ClientWidth = 365
|
||||
TabOrder = 1
|
||||
object Label4: TLabel
|
||||
Left = 38
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 60
|
||||
Width = 73
|
||||
Width = 57
|
||||
Alignment = taRightJustify
|
||||
Caption = 'User Name:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 6
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 28
|
||||
Width = 105
|
||||
Width = 88
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Registration Code:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 70
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 92
|
||||
Width = 41
|
||||
Width = 34
|
||||
Alignment = taRightJustify
|
||||
Caption = 'Status:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object btnVerify: TSpeedButton
|
||||
@ -161,21 +160,21 @@ object frmExRegCode: TfrmExRegCode
|
||||
end
|
||||
object edtUserName2: TEdit
|
||||
Left = 120
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 56
|
||||
Width = 233
|
||||
TabOrder = 0
|
||||
end
|
||||
object edtRegCode2: TEdit
|
||||
Left = 120
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 24
|
||||
Width = 233
|
||||
TabOrder = 1
|
||||
end
|
||||
object edtStatus: TEdit
|
||||
Left = 120
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 88
|
||||
Width = 97
|
||||
Color = clBtnFace
|
||||
|
||||
@ -1,69 +1,69 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
|
||||
|
||||
LazarusResources.Add('TfrmExRegCode','FORMDATA',[
|
||||
'TPF0'#13'TfrmExRegCode'#12'frmExRegCode'#4'Left'#3#135#1#6'Height'#3'*'#1#3
|
||||
+'Top'#3#180#0#5'Width'#3#135#1#18'HorzScrollBar.Page'#3#134#1#18'VertScrollB'
|
||||
+'ar.Page'#3')'#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25'Registration '
|
||||
+'Code Example'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCr'
|
||||
+'eate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#0#9'TGroupBox'#9'Gr'
|
||||
+'oupBox1'#4'Left'#2#8#6'Height'#3#129#0#3'Top'#2#8#5'Width'#3'q'#1#7'Caption'
|
||||
+#6'+ Registration Code Generator (vendor site) '#8'TabOrder'#2#0#0#6'TLabel'
|
||||
+#6'Label1'#4'Left'#2''''#6'Height'#2#13#3'Top'#2#28#5'Width'#2'H'#9'Alignmen'
|
||||
+'t'#7#14'taRightJustify'#7'Caption'#6#10'User Name:'#5'Color'#7#6'clNone'#11
|
||||
+'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#14#6'Height'#2#13#3'Top'#2
|
||||
+'<'#5'Width'#2'a'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#16'Expirati'
|
||||
+'on Date:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4
|
||||
+'Left'#2#6#6'Height'#2#13#3'Top'#2'\'#5'Width'#2'i'#9'Alignment'#7#14'taRigh'
|
||||
+'tJustify'#7'Caption'#6#18'Registration Code:'#5'Color'#7#6'clNone'#11'Paren'
|
||||
+'tColor'#8#0#0#12'TSpeedButton'#11'btnGenerate'#4'Left'#3'H'#1#6'Height'#2#22
|
||||
+#4'Hint'#6#26'Generate Registration Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'
|
||||
+#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0
|
||||
+#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#16#0
|
||||
+#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0
|
||||
+#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255
|
||||
+#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136
|
||||
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#0#0#8#136
|
||||
+#136#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0#136#128#128#136#136#136
|
||||
+#0#136#128#0#0#0#136#8#136#128#0#136#136#8#128#0#0#0#136#0#136#0#0#8#136#8
|
||||
+#128#0#0#0#128#136#128#9#137#0#128#128#128#0#0#0#128#136#128#8#152#0#136#128
|
||||
+#128#0#0#0#128#8#128#8#152#0#136#0#128#0#0#0#128#136#128#9#137#0#136#128#128
|
||||
+#0#0#0#136#8#136#0#0#8#136#8#128#0#0#0#136#8#8#128#0#136#8#8#128#0#0#0#136
|
||||
+#128#136#8#136#136#128#136#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0
|
||||
+#136#136#136#0#0#8#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0
|
||||
+#0#9'NumGlyphs'#2#0#7'OnClick'#7#16'btnGenerateClick'#8'ShowHint'#9#14'Paren'
|
||||
+'tShowHint'#8#0#0#5'TEdit'#12'edtUserName1'#4'Left'#2'x'#6'Height'#2#21#3'To'
|
||||
+'p'#2#24#5'Width'#3#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode1'#4'Lef'
|
||||
+'t'#2'x'#6'Height'#2#21#3'Top'#2'X'#5'Width'#3#201#0#5'Color'#7#9'clBtnFace'
|
||||
+#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#5'TEdit'#6'edDate'#4'Left'#2'y'#6'Height'
|
||||
+#2#21#3'Top'#2'9'#5'Width'#2'v'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBo'
|
||||
+'x2'#4'Left'#2#8#6'Height'#3#129#0#3'Top'#3#152#0#5'Width'#3'q'#1#7'Caption'
|
||||
+#6'. Registration Code Verification (client site) '#8'TabOrder'#2#1#0#6'TLab'
|
||||
+'el'#6'Label4'#4'Left'#2'&'#6'Height'#2#13#3'Top'#2'<'#5'Width'#2'I'#9'Align'
|
||||
+'ment'#7#14'taRightJustify'#7'Caption'#6#10'User Name:'#5'Color'#7#6'clNone'
|
||||
+#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#6#6'Height'#2#13#3'Top'
|
||||
+#2#28#5'Width'#2'i'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#18'Regist'
|
||||
+'ration Code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'
|
||||
+#4'Left'#2'F'#6'Height'#2#13#3'Top'#2'\'#5'Width'#2')'#9'Alignment'#7#14'taR'
|
||||
+'ightJustify'#7'Caption'#6#7'Status:'#5'Color'#7#6'clNone'#11'ParentColor'#8
|
||||
+#0#0#12'TSpeedButton'#9'btnVerify'#4'Left'#3#224#0#6'Height'#2#22#4'Hint'#6
|
||||
+#24'Verify Registration Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'#7#9'clBtnFa'
|
||||
+'ce'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0
|
||||
+#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#16#0#0#0#0#0#0#0
|
||||
+#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0
|
||||
+#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0
|
||||
+#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0
|
||||
+#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136
|
||||
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
|
||||
+#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#128#0#0#136#8
|
||||
+#136#128#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0
|
||||
+#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#152#144#8#136#136#136#128#0
|
||||
+#0#0#136#128#0#0#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0
|
||||
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
|
||||
+'Top'#3#180#0#5'Width'#3#135#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25
|
||||
+'Registration Code Example'#12'ClientHeight'#3'*'#1#11'ClientWidth'#3#135#1
|
||||
+#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'For'
|
||||
+'mCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#9'TG'
|
||||
+'roupBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3#129#0#3'Top'#2#8#5'Width'#3'q'
|
||||
+#1#7'Caption'#6'+ Registration Code Generator (vendor site) '#12'ClientHeigh'
|
||||
+'t'#2'o'#11'ClientWidth'#3'm'#1#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'
|
||||
+#2''''#6'Height'#2#14#3'Top'#2#28#5'Width'#2'9'#9'Alignment'#7#14'taRightJus'
|
||||
+'tify'#7'Caption'#6#10'User Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'
|
||||
+#4'Left'#2#14#6'Height'#2#14#3'Top'#2'<'#5'Width'#2'L'#9'Alignment'#7#14'taR'
|
||||
+'ightJustify'#7'Caption'#6#16'Expiration Date:'#11'ParentColor'#8#0#0#6'TLab'
|
||||
+'el'#6'Label3'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'\'#5'Width'#2'X'#9'Alignm'
|
||||
+'ent'#7#14'taRightJustify'#7'Caption'#6#18'Registration Code:'#11'ParentColo'
|
||||
+'r'#8#0#0#12'TSpeedButton'#11'btnGenerate'#4'Left'#3'H'#1#6'Height'#2#22#4'H'
|
||||
+'int'#6#26'Generate Registration Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'#7#9
|
||||
+'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0
|
||||
+'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#16#0#0
|
||||
+#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128
|
||||
+#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0
|
||||
+#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128
|
||||
+#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#0#0#8#136#136
|
||||
+#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0#136#128#128#136#136#136#0
|
||||
+#136#128#0#0#0#136#8#136#128#0#136#136#8#128#0#0#0#136#0#136#0#0#8#136#8#128
|
||||
+#0#0#0#128#136#128#9#137#0#128#128#128#0#0#0#128#136#128#8#152#0#136#128#128
|
||||
+#0#0#0#128#8#128#8#152#0#136#0#128#0#0#0#128#136#128#9#137#0#136#128#128#0#0
|
||||
+#0#136#8#136#0#0#8#136#8#128#0#0#0#136#8#8#128#0#136#8#8#128#0#0#0#136#128
|
||||
+#136#8#136#136#128#136#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0#136
|
||||
+#136#136#0#0#8#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#9
|
||||
+'NumGlyphs'#2#0#7'OnClick'#7#16'btnGenerateClick'#8'ShowHint'#9#14'ParentSho'
|
||||
+'wHint'#8#0#0#5'TEdit'#12'edtUserName1'#4'Left'#2'x'#6'Height'#2#23#3'Top'#2
|
||||
+#24#5'Width'#3#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode1'#4'Left'#2
|
||||
+'x'#6'Height'#2#23#3'Top'#2'X'#5'Width'#3#201#0#5'Color'#7#9'clBtnFace'#8'Re'
|
||||
+'adOnly'#9#8'TabOrder'#2#1#0#0#5'TEdit'#6'edDate'#4'Left'#2'y'#6'Height'#2#23
|
||||
+#3'Top'#2'9'#5'Width'#2'v'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBox2'#4
|
||||
+'Left'#2#8#6'Height'#3#129#0#3'Top'#3#152#0#5'Width'#3'q'#1#7'Caption'#6'. R'
|
||||
+'egistration Code Verification (client site) '#12'ClientHeight'#2'o'#11'Clie'
|
||||
+'ntWidth'#3'm'#1#8'TabOrder'#2#1#0#6'TLabel'#6'Label4'#4'Left'#2'&'#6'Height'
|
||||
+#2#14#3'Top'#2'<'#5'Width'#2'9'#9'Alignment'#7#14'taRightJustify'#7'Caption'
|
||||
+#6#10'User Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#6#6'He'
|
||||
+'ight'#2#14#3'Top'#2#28#5'Width'#2'X'#9'Alignment'#7#14'taRightJustify'#7'Ca'
|
||||
+'ption'#6#18'Registration Code:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4
|
||||
+'Left'#2'F'#6'Height'#2#14#3'Top'#2'\'#5'Width'#2'"'#9'Alignment'#7#14'taRig'
|
||||
+'htJustify'#7'Caption'#6#7'Status:'#11'ParentColor'#8#0#0#12'TSpeedButton'#9
|
||||
+'btnVerify'#4'Left'#3#224#0#6'Height'#2#22#4'Hint'#6#24'Verify Registration '
|
||||
+'Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'F'
|
||||
+#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4
|
||||
+#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#16#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128
|
||||
+#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192
|
||||
+#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255
|
||||
+#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
|
||||
+#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
|
||||
+#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#14'btnVerifyClick'#8'Sh'
|
||||
+'owHint'#9#14'ParentShowHint'#8#0#0#5'TEdit'#12'edtUserName2'#4'Left'#2'x'#6
|
||||
+'Height'#2#21#3'Top'#2'8'#5'Width'#3#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'e'
|
||||
+'dtRegCode2'#4'Left'#2'x'#6'Height'#2#21#3'Top'#2#24#5'Width'#3#233#0#8'TabO'
|
||||
+'rder'#2#1#0#0#5'TEdit'#9'edtStatus'#4'Left'#2'x'#6'Height'#2#21#3'Top'#2'X'
|
||||
,#5'Width'#2'a'#5'Color'#7#9'clBtnFace'#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#0
|
||||
+#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#0#8
|
||||
+#136#136#136#136#128#0#0#0#136#128#0#0#136#8#136#128#128#0#0#0#136#0#152#144
|
||||
+#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#137#128#0#0#0#0
|
||||
+#128#0#0#0#136#0#152#144#8#136#136#136#128#0#0#0#136#128#0#0#136#136#136#136
|
||||
+#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
|
||||
+#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
|
||||
+#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#9'NumGlyphs'
|
||||
+#2#0#7'OnClick'#7#14'btnVerifyClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#5
|
||||
+'TEdit'#12'edtUserName2'#4'Left'#2'x'#6'Height'#2#23#3'Top'#2'8'#5'Width'#3
|
||||
+#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode2'#4'Left'#2'x'#6'Height'#2
|
||||
+#23#3'Top'#2#24#5'Width'#3#233#0#8'TabOrder'#2#1#0#0#5'TEdit'#9'edtStatus'#4
|
||||
+'Left'#2'x'#6'Height'#2#23#3'Top'#2'X'#5'Width'#2'a'#5'Color'#7#9'clBtnFace'
|
||||
,#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -71,6 +71,7 @@ var
|
||||
Key : TKey;
|
||||
Code : TCode;
|
||||
Modifier : Longint;
|
||||
d : TDateTime;
|
||||
begin
|
||||
Key := EncryptionKey;
|
||||
Modifier := StringHashELF(edtUserName2.Text);
|
||||
|
||||
@ -1,3 +1,3 @@
|
||||
[Codes]
|
||||
RegistrationCode=B7972EDE905C8F0A
|
||||
RegistrationStr=945-136-16-73
|
||||
RegistrationCode=09108181268C5C3E8409
|
||||
RegistrationStr=4F50EA24
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
</General>
|
||||
@ -41,10 +42,10 @@
|
||||
<Filename Value="exrgregu.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exrgregu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="exrgregu"/>
|
||||
<CursorPos X="59" Y="108"/>
|
||||
<TopLine Value="1"/>
|
||||
<TopLine Value="67"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -53,7 +54,7 @@
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -66,12 +67,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -1,3 +1,3 @@
|
||||
[Codes]
|
||||
RegStr=Lazarus
|
||||
RegCode=5323D1321979760B
|
||||
RegStr=Boss
|
||||
RegCode=4D88FD73DF223CB80400
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -41,10 +42,10 @@
|
||||
<Filename Value="exrgstru.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exrgstru.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exrgstru"/>
|
||||
<CursorPos X="24" Y="90"/>
|
||||
<TopLine Value="72"/>
|
||||
<CursorPos X="23" Y="89"/>
|
||||
<TopLine Value="74"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -86,7 +87,7 @@
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -99,12 +100,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -3,21 +3,21 @@ object Form1: TForm1
|
||||
Height = 192
|
||||
Top = 218
|
||||
Width = 262
|
||||
HorzScrollBar.Page = 261
|
||||
VertScrollBar.Page = 191
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 192
|
||||
ClientWidth = 262
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
object Label1: TLabel
|
||||
Left = 69
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 98
|
||||
Width = 77
|
||||
Width = 67
|
||||
Alignment = taCenter
|
||||
Caption = 'Registered to:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Memo1: TMemo
|
||||
|
||||
@ -2,17 +2,17 @@
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'-'#1#6'Height'#3#192#0#3'Top'#3#218#0#5'W'
|
||||
+'idth'#3#6#1#18'HorzScrollBar.Page'#3#5#1#18'VertScrollBar.Page'#3#191#0#7'C'
|
||||
+'aption'#6#5'Form1'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font'
|
||||
+'.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#6'L'
|
||||
+'abel1'#4'Left'#2'E'#6'Height'#2#13#3'Top'#2'b'#5'Width'#2'M'#9'Alignment'#7
|
||||
+#8'taCenter'#7'Caption'#6#14'Registered to:'#5'Color'#7#6'clNone'#11'ParentC'
|
||||
+'olor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#13#6'Height'#2'O'#3'Top'#2#10#5'Wid'
|
||||
+'th'#3#223#0#13'Lines.Strings'#1#6',If you can edit this, then your program '
|
||||
+'was '#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0
|
||||
+#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'K'#6'Height'#2'!'#3'Top'#2't'#5'Width'
|
||||
+#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgRegist'
|
||||
+'rationCode'#19'OgRegistrationCode1'#9'OnChecked'#7#26'OgRegistrationCode1Ch'
|
||||
+'ecked'#8'OnGetKey'#7#25'OgRegistrationCode1GetKey'#9'OnGetCode'#7#26'OgRegi'
|
||||
+'strationCode1GetCode'#4'left'#3#165#0#3'top'#2'v'#0#0#0
|
||||
+'idth'#3#6#1#7'Caption'#6#5'Form1'#12'ClientHeight'#3#192#0#11'ClientWidth'#3
|
||||
+#6#1#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS '
|
||||
+'Sans Serif'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6
|
||||
+'TLabel'#6'Label1'#4'Left'#2'E'#6'Height'#2#14#3'Top'#2'b'#5'Width'#2'C'#9'A'
|
||||
+'lignment'#7#8'taCenter'#7'Caption'#6#14'Registered to:'#11'ParentColor'#8#0
|
||||
+#0#5'TMemo'#5'Memo1'#4'Left'#2#13#6'Height'#2'O'#3'Top'#2#10#5'Width'#3#223#0
|
||||
+#13'Lines.Strings'#1#6',If you can edit this, then your program was '#6#14'a'
|
||||
+'llowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBit'
|
||||
+'Btn'#8'CloseBtn'#4'Left'#2'K'#6'Height'#2'!'#3'Top'#2't'#5'Width'#2'Y'#4'Ki'
|
||||
+'nd'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgRegistrationCod'
|
||||
+'e'#19'OgRegistrationCode1'#9'OnChecked'#7#26'OgRegistrationCode1Checked'#8
|
||||
+'OnGetKey'#7#25'OgRegistrationCode1GetKey'#9'OnGetCode'#7#26'OgRegistrationC'
|
||||
+'ode1GetCode'#4'left'#3#165#0#3'top'#2'v'#0#0#0
|
||||
]);
|
||||
|
||||
@ -86,8 +86,8 @@ var
|
||||
C1 : string;
|
||||
TC : TCode;
|
||||
begin
|
||||
{forced cutoff date of 1999 Dec. 31}
|
||||
ED := EncodeDate(2006, 12, 31);
|
||||
{forced cutoff date }
|
||||
ED := EncodeDate(2009, 12, 31);
|
||||
|
||||
case Status of
|
||||
ogValidCode : begin
|
||||
|
||||
@ -1,16 +1,17 @@
|
||||
object Form1: TForm1
|
||||
Left = 287
|
||||
Left = 406
|
||||
Height = 266
|
||||
Top = 102
|
||||
Top = 322
|
||||
Width = 357
|
||||
HorzScrollBar.Page = 356
|
||||
VertScrollBar.Page = 241
|
||||
ActiveControl = Memo1
|
||||
Caption = 'ExSelAPI: '
|
||||
ClientHeight = 246
|
||||
ClientWidth = 357
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Menu = MainMenu1
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '0.9.27'
|
||||
object Memo1: TMemo
|
||||
Left = 16
|
||||
Height = 145
|
||||
@ -43,8 +44,8 @@ object Form1: TForm1
|
||||
TabOrder = 1
|
||||
end
|
||||
object MainMenu1: TMainMenu
|
||||
left = 64
|
||||
top = 112
|
||||
left = 32
|
||||
top = 168
|
||||
object FeaturesMenu: TMenuItem
|
||||
Caption = 'Features'
|
||||
object FeaturesRequired: TMenuItem
|
||||
|
||||
@ -1,29 +1,29 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#31#1#6'Height'#3#10#1#3'Top'#2'f'#5'Width'
|
||||
+#3'e'#1#18'HorzScrollBar.Page'#3'd'#1#18'VertScrollBar.Page'#3#241#0#13'Acti'
|
||||
+'veControl'#7#5'Memo1'#7'Caption'#6#10'ExSelAPI: '#11'Font.Height'#2#245#9'F'
|
||||
+'ont.Name'#6#13'MS Sans Serif'#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormC'
|
||||
+'reate'#0#5'TMemo'#5'Memo1'#4'Left'#2#16#6'Height'#3#145#0#3'Top'#2#8#5'Widt'
|
||||
+'h'#3'9'#1#5'Color'#7#6'clAqua'#13'Lines.Strings'#1#6': This example uses '
|
||||
+'the OgUsageCode and the OgSpecialCode'#6'9 (via OnGuard API functions) to'
|
||||
+' implement a limited use'#6'> "demo" application which allows only the re'
|
||||
+'quired features.'#6'9 The program can be run 3 times and then a special c'
|
||||
+'ode'#6'9 must be obtained to register the program and to enable'#6'; va'
|
||||
+'rious features. A machine modifier is used to prevent'#6'7 the applicati'
|
||||
+'on from being copied and run on another'#6'; machine. To obtain the rele'
|
||||
+'ase code you need to run the'#6': companion example EXSLCODE. The releas'
|
||||
+'e codes will be '#6', stored in a data file called EXSELECT.DAT'#0#8'Read'
|
||||
+'Only'#9#8'TabOrder'#2#0#0#0#7'TButton'#9'ModifyBtn'#4'Left'#2'x'#6'Height'#2
|
||||
+#25#3'Top'#3#176#0#5'Width'#2'q'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
|
||||
+#6#15'Modify Features'#7'OnClick'#7#14'ModifyBtnClick'#8'TabOrder'#2#1#0#0#9
|
||||
+'TMainMenu'#9'MainMenu1'#4'left'#2'@'#3'top'#2'p'#0#9'TMenuItem'#12'Features'
|
||||
+'Menu'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesRequired'#7'Captio'
|
||||
+'n'#6#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'FeaturesHelp'#7'Caption'#6
|
||||
+#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamples'#7'Caption'#6#8'E'
|
||||
+'xamples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDatabase'#7'Caption'#6#8
|
||||
+'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7'Caption'#6#3'Fax'
|
||||
+#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Caption'#6#7'Goodies'#7
|
||||
+'Enabled'#8#0#0#0#0#0
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#150#1#6'Height'#3#10#1#3'Top'#3'B'#1#5'Wi'
|
||||
+'dth'#3'e'#1#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#10'ExSelAPI: '#12'Cli'
|
||||
+'entHeight'#3#246#0#11'ClientWidth'#3'e'#1#11'Font.Height'#2#245#9'Font.Name'
|
||||
+#6#13'MS Sans Serif'#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'#10
|
||||
+'LCLVersion'#6#6'0.9.27'#0#5'TMemo'#5'Memo1'#4'Left'#2#16#6'Height'#3#145#0#3
|
||||
+'Top'#2#8#5'Width'#3'9'#1#5'Color'#7#6'clAqua'#13'Lines.Strings'#1#6': Thi'
|
||||
+'s example uses the OgUsageCode and the OgSpecialCode'#6'9 (via OnGuard AP'
|
||||
+'I functions) to implement a limited use'#6'> "demo" application which all'
|
||||
+'ows only the required features.'#6'9 The program can be run 3 times and t'
|
||||
+'hen a special code'#6'9 must be obtained to register the program and to e'
|
||||
+'nable'#6'; various features. A machine modifier is used to prevent'#6'7 '
|
||||
+' the application from being copied and run on another'#6'; machine. To '
|
||||
+'obtain the release code you need to run the'#6': companion example EXSLCO'
|
||||
+'DE. The release codes will be '#6', stored in a data file called EXSELEC'
|
||||
+'T.DAT'#0#8'ReadOnly'#9#8'TabOrder'#2#0#0#0#7'TButton'#9'ModifyBtn'#4'Left'#2
|
||||
+'x'#6'Height'#2#25#3'Top'#3#176#0#5'Width'#2'q'#25'BorderSpacing.InnerBorder'
|
||||
+#2#4#7'Caption'#6#15'Modify Features'#7'OnClick'#7#14'ModifyBtnClick'#8'TabO'
|
||||
+'rder'#2#1#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2' '#3'top'#3#168#0#0#9'TMe'
|
||||
+'nuItem'#12'FeaturesMenu'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'Feature'
|
||||
+'sRequired'#7'Caption'#6#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'Featur'
|
||||
+'esHelp'#7'Caption'#6#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamp'
|
||||
+'les'#7'Caption'#6#8'Examples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesData'
|
||||
+'base'#7'Caption'#6#8'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'
|
||||
+#7'Caption'#6#3'Fax'#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Cap'
|
||||
+'tion'#6#7'Goodies'#7'Enabled'#8#0#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -68,7 +68,7 @@ const
|
||||
DemoCaption : string = 'ExSelApi: Demo runs left = ';
|
||||
RegisteredCap : string = 'ExSelApi: Registered';
|
||||
NotRegisteredCap : string = 'ExSelApi: Not Registered';
|
||||
ModifyStr : string = 'Modify Registration to enable this feature';
|
||||
// ModifyStr : string = 'Modify Registration to enable this feature';
|
||||
|
||||
{ Feature masks }
|
||||
RequiredMask = $00000001;
|
||||
|
||||
@ -1,13 +1,14 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="2"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -27,11 +28,11 @@
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="8">
|
||||
<Units Count="9">
|
||||
<Unit0>
|
||||
<Filename Value="exselapi.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="41" Y="14"/>
|
||||
<CursorPos X="37" Y="9"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="23"/>
|
||||
@ -39,14 +40,15 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exselap1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exselap1.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exselap1"/>
|
||||
<CursorPos X="12" Y="171"/>
|
||||
<TopLine Value="149"/>
|
||||
<CursorPos X="3" Y="71"/>
|
||||
<TopLine Value="50"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="12"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
@ -59,11 +61,9 @@
|
||||
<Unit3>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="1" Y="1179"/>
|
||||
<TopLine Value="1412"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<CursorPos X="25" Y="1192"/>
|
||||
<TopLine Value="1179"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="../../source/ogproexe.pas"/>
|
||||
@ -90,91 +90,42 @@
|
||||
<TopLine Value="52"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="../../../../../../temp/fpc/rtl/inc/systemh.inc"/>
|
||||
<CursorPos X="11" Y="882"/>
|
||||
<TopLine Value="861"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit8>
|
||||
</Units>
|
||||
<JumpHistory Count="19" HistoryIndex="18">
|
||||
<JumpHistory Count="6" HistoryIndex="5">
|
||||
<Position1>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1009" Column="57" TopLine="996"/>
|
||||
<Filename Value="exselap1.pas"/>
|
||||
<Caret Line="155" Column="45" TopLine="43"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1010" Column="1" TopLine="993"/>
|
||||
<Filename Value="exselap1.pas"/>
|
||||
<Caret Line="134" Column="19" TopLine="122"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1013" Column="1" TopLine="996"/>
|
||||
<Filename Value="exselap1.pas"/>
|
||||
<Caret Line="94" Column="8" TopLine="88"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1018" Column="1" TopLine="1001"/>
|
||||
<Filename Value="exselap1.pas"/>
|
||||
<Caret Line="120" Column="67" TopLine="211"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1021" Column="1" TopLine="1004"/>
|
||||
<Filename Value="exselap1.pas"/>
|
||||
<Caret Line="93" Column="12" TopLine="61"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1022" Column="1" TopLine="1005"/>
|
||||
<Filename Value="exselap1.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1023" Column="1" TopLine="1006"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1024" Column="1" TopLine="1007"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1027" Column="1" TopLine="1010"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1028" Column="1" TopLine="1011"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1029" Column="1" TopLine="1012"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1030" Column="1" TopLine="1013"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1034" Column="1" TopLine="1017"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1035" Column="1" TopLine="1018"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1036" Column="1" TopLine="1019"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1037" Column="1" TopLine="1020"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1040" Column="1" TopLine="1023"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1041" Column="1" TopLine="1024"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<Caret Line="1042" Column="1" TopLine="1025"/>
|
||||
</Position19>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="../../source/"/>
|
||||
</SearchPaths>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -187,31 +138,31 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<BreakPoints Count="3">
|
||||
<BreakPoints Count="2">
|
||||
<Item1>
|
||||
<Source Value="exselap1.pas"/>
|
||||
<Line Value="114"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Source Value="exselap1.pas"/>
|
||||
<Line Value="239"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Source Value="../../source/onguard.pas"/>
|
||||
<Line Value="1010"/>
|
||||
</Item3>
|
||||
</Item2>
|
||||
</BreakPoints>
|
||||
<Watches Count="1">
|
||||
<Item1>
|
||||
|
||||
@ -6,7 +6,7 @@ program Exselapi;
|
||||
uses
|
||||
Interfaces,
|
||||
Forms,
|
||||
Exselap1 in 'EXSELAP1.PAS' {Form1}, tponguard;
|
||||
Exselap1 in 'EXSELAP1.PAS' {Form1};
|
||||
|
||||
|
||||
begin
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -41,10 +42,10 @@
|
||||
<Filename Value="exselec1.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exselec1.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exselec1"/>
|
||||
<CursorPos X="36" Y="313"/>
|
||||
<TopLine Value="296"/>
|
||||
<TopLine Value="289"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -59,7 +60,7 @@
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -72,12 +73,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -6,7 +6,6 @@ object Form1: TForm1
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
HorzScrollBar.Page = 287
|
||||
VertScrollBar.Page = 242
|
||||
Left = 237
|
||||
|
||||
@ -1,30 +1,27 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#9'MachineID'#7'Caption'#6#24' S'
|
||||
+'pecial Code Generator '#12'ClientHeight'#3#243#0#11'ClientWidth'#3' '#1#11
|
||||
+'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#13'PixelsPerInch'#2'`'
|
||||
+#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3#31#1#18'VertScrollBar.Page'#3
|
||||
+#242#0#4'Left'#3#237#0#6'Height'#3#243#0#3'Top'#3#152#0#5'Width'#3' '#1#0#6
|
||||
+'TLabel'#6'Label1'#7'Caption'#6#10'Machine ID'#5'Color'#7#6'clNone'#11'Paren'
|
||||
+'tColor'#8#4'Left'#2'#'#6'Height'#2#14#3'Top'#2#20#5'Width'#2'6'#0#0#7'TButt'
|
||||
+'on'#6'GenBtn'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13'Generate Co'
|
||||
+'de'#7'OnClick'#7#11'GenBtnClick'#8'TabOrder'#2#1#4'Left'#2#18#6'Height'#2#25
|
||||
+#3'Top'#3#176#0#5'Width'#2'Y'#0#0#5'TEdit'#9'MachineID'#9'MaxLength'#2#8#8'T'
|
||||
+'abOrder'#2#0#4'Left'#2'{'#6'Height'#2#21#3'Top'#2#16#5'Width'#2'Y'#0#0#9'TG'
|
||||
+'roupBox'#9'GroupBox1'#7'Caption'#6#8'Features'#12'ClientHeight'#2'O'#11'Cli'
|
||||
+'entWidth'#3#221#0#8'TabOrder'#2#2#4'Left'#2#24#6'Height'#2'a'#3'Top'#2'8'#5
|
||||
+'Width'#3#225#0#0#9'TCheckBox'#7'ReqFeat'#7'Caption'#6#8'Required'#7'Checked'
|
||||
+#9#7'Enabled'#8#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#4'Left'#2#16#6'Heigh'
|
||||
+'t'#2#17#3'Top'#2#24#5'Width'#2'Q'#0#0#9'TCheckBox'#8'HelpFeat'#7'Caption'#6
|
||||
+#4'Help'#8'TabOrder'#2#1#4'Left'#2#16#6'Height'#2#17#3'Top'#2'('#5'Width'#2
|
||||
+'Q'#0#0#9'TCheckBox'#12'ExamplesFeat'#7'Caption'#6#8'Examples'#8'TabOrder'#2
|
||||
+#2#4'Left'#2#16#6'Height'#2#17#3'Top'#2'8'#5'Width'#2'Q'#0#0#9'TCheckBox'#6
|
||||
+'DBFeat'#7'Caption'#6#8'Database'#8'TabOrder'#2#3#4'Left'#2'x'#6'Height'#2#17
|
||||
+#3'Top'#2#24#5'Width'#2'Q'#0#0#9'TCheckBox'#7'FaxFeat'#7'Caption'#6#3'Fax'#8
|
||||
+'TabOrder'#2#4#4'Left'#2'x'#6'Height'#2#17#3'Top'#2'('#5'Width'#2'Q'#0#0#9'T'
|
||||
+'CheckBox'#11'GoodiesFeat'#7'Caption'#6#7'Goodies'#8'TabOrder'#2#5#4'Left'#2
|
||||
+'x'#6'Height'#2#17#3'Top'#2'8'#5'Width'#2'Q'#0#0#0#5'TEdit'#11'CodeDisplay'#5
|
||||
+'Color'#7#6'clAqua'#8'TabOrder'#2#3#4'Left'#2'{'#6'Height'#2#21#3'Top'#3#178
|
||||
+#0#5'Width'#2'~'#0#0#0
|
||||
+#18'HorzScrollBar.Page'#3#31#1#18'VertScrollBar.Page'#3#242#0#4'Left'#3#237#0
|
||||
+#6'Height'#3#243#0#3'Top'#3#152#0#5'Width'#3' '#1#0#6'TLabel'#6'Label1'#7'Ca'
|
||||
+'ption'#6#10'Machine ID'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'#'
|
||||
+#6'Height'#2#14#3'Top'#2#20#5'Width'#2'6'#0#0#7'TButton'#6'GenBtn'#25'Border'
|
||||
+'Spacing.InnerBorder'#2#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7#11'Gen'
|
||||
+'BtnClick'#8'TabOrder'#2#1#4'Left'#2#18#6'Height'#2#25#3'Top'#3#176#0#5'Widt'
|
||||
+'h'#2'Y'#0#0#5'TEdit'#9'MachineID'#9'MaxLength'#2#8#8'TabOrder'#2#0#4'Left'#2
|
||||
+'{'#6'Height'#2#21#3'Top'#2#16#5'Width'#2'Y'#0#0#9'TGroupBox'#9'GroupBox1'#7
|
||||
+'Caption'#6#8'Features'#12'ClientHeight'#2'O'#11'ClientWidth'#3#221#0#8'TabO'
|
||||
+'rder'#2#2#4'Left'#2#24#6'Height'#2'a'#3'Top'#2'8'#5'Width'#3#225#0#0#9'TChe'
|
||||
+'ckBox'#7'ReqFeat'#7'Caption'#6#8'Required'#7'Checked'#9#7'Enabled'#8#5'Stat'
|
||||
+'e'#7#9'cbChecked'#8'TabOrder'#2#0#4'Left'#2#16#6'Height'#2#17#3'Top'#2#24#5
|
||||
+'Width'#2'Q'#0#0#9'TCheckBox'#8'HelpFeat'#7'Caption'#6#4'Help'#8'TabOrder'#2
|
||||
+#1#4'Left'#2#16#6'Height'#2#17#3'Top'#2'('#5'Width'#2'Q'#0#0#9'TCheckBox'#12
|
||||
+'ExamplesFeat'#7'Caption'#6#8'Examples'#8'TabOrder'#2#2#4'Left'#2#16#6'Heigh'
|
||||
+'t'#2#17#3'Top'#2'8'#5'Width'#2'Q'#0#0#9'TCheckBox'#6'DBFeat'#7'Caption'#6#8
|
||||
+'Database'#8'TabOrder'#2#3#4'Left'#2'x'#6'Height'#2#17#3'Top'#2#24#5'Width'#2
|
||||
+'Q'#0#0#9'TCheckBox'#7'FaxFeat'#7'Caption'#6#3'Fax'#8'TabOrder'#2#4#4'Left'#2
|
||||
+'x'#6'Height'#2#17#3'Top'#2'('#5'Width'#2'Q'#0#0#9'TCheckBox'#11'GoodiesFeat'
|
||||
+#7'Caption'#6#7'Goodies'#8'TabOrder'#2#5#4'Left'#2'x'#6'Height'#2#17#3'Top'#2
|
||||
+'8'#5'Width'#2'Q'#0#0#0#5'TEdit'#11'CodeDisplay'#5'Color'#7#6'clAqua'#8'TabO'
|
||||
+'rder'#2#3#4'Left'#2'{'#6'Height'#2#21#3'Top'#3#178#0#5'Width'#2'~'#0#0#0
|
||||
]);
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -27,7 +28,7 @@
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="2">
|
||||
<Units Count="3">
|
||||
<Unit0>
|
||||
<Filename Value="exslcode.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
@ -39,21 +40,29 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="exslcod1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exslcod1.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exslcod1"/>
|
||||
<CursorPos X="34" Y="68"/>
|
||||
<TopLine Value="1"/>
|
||||
<TopLine Value="27"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="exslcod1.lfm"/>
|
||||
<CursorPos X="11" Y="2"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -66,12 +75,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -2,12 +2,14 @@
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="6"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value=".\"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -42,10 +44,10 @@
|
||||
<Filename Value="exsnregu.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exsnregu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exsnregu"/>
|
||||
<CursorPos X="31" Y="26"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="74" Y="19"/>
|
||||
<TopLine Value="88"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -54,7 +56,7 @@
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
@ -68,12 +70,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -1,13 +1,14 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -41,9 +42,9 @@
|
||||
<Filename Value="exspnamu.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exspnamu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ExSpNamu"/>
|
||||
<CursorPos X="14" Y="6"/>
|
||||
<CursorPos X="86" Y="14"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
@ -53,7 +54,7 @@
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -66,12 +67,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -1,13 +1,14 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -41,9 +42,9 @@
|
||||
<Filename Value="exspregu.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exspregu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exspregu"/>
|
||||
<CursorPos X="62" Y="19"/>
|
||||
<CursorPos X="46" Y="20"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
@ -53,7 +54,7 @@
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -66,12 +67,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -1,3 +1,3 @@
|
||||
[Codes]
|
||||
SN=113
|
||||
SNCode=8C6A4934ECB914DB
|
||||
SN=123
|
||||
SNCode=115784126DDFAA420000
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="2"/>
|
||||
</General>
|
||||
@ -41,10 +42,10 @@
|
||||
<Filename Value="exsrnmu1.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exsrnmu1.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exsrnmu1"/>
|
||||
<CursorPos X="1" Y="86"/>
|
||||
<TopLine Value="158"/>
|
||||
<CursorPos X="27" Y="6"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -53,10 +54,10 @@
|
||||
<Filename Value="exsrnmu2.pas"/>
|
||||
<ComponentName Value="SNEntryDlg"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exsrnmu2.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exsrnmu2"/>
|
||||
<CursorPos X="3" Y="35"/>
|
||||
<TopLine Value="7"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
@ -186,7 +187,7 @@
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -199,12 +200,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -1,2 +1,2 @@
|
||||
[Codes]
|
||||
Uses=FCFB2E2A29547C1C
|
||||
Uses=B6203E9DBF2E46BD5D13
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -41,16 +42,16 @@
|
||||
<Filename Value="exusg1u.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exusg1u.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exusg1u"/>
|
||||
<CursorPos X="54" Y="106"/>
|
||||
<TopLine Value="89"/>
|
||||
<CursorPos X="56" Y="106"/>
|
||||
<TopLine Value="106"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
</Units>
|
||||
<JumpHistory Count="2" HistoryIndex="1">
|
||||
<JumpHistory Count="3" HistoryIndex="2">
|
||||
<Position1>
|
||||
<Filename Value="exusg1u.pas"/>
|
||||
<Caret Line="105" Column="55" TopLine="96"/>
|
||||
@ -59,10 +60,14 @@
|
||||
<Filename Value="exusg1u.pas"/>
|
||||
<Caret Line="106" Column="70" TopLine="89"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="exusg1u.pas"/>
|
||||
<Caret Line="95" Column="22" TopLine="89"/>
|
||||
</Position3>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -75,12 +80,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -3,21 +3,21 @@ object Form1: TForm1
|
||||
Height = 155
|
||||
Top = 289
|
||||
Width = 218
|
||||
HorzScrollBar.Page = 217
|
||||
VertScrollBar.Page = 154
|
||||
ActiveControl = Memo1
|
||||
Caption = 'Usage Code Example'
|
||||
ClientHeight = 155
|
||||
ClientWidth = 218
|
||||
Font.Color = clBlack
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
object Label1: TLabel
|
||||
Left = 56
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 72
|
||||
Width = 100
|
||||
Width = 84
|
||||
Caption = 'Available Runs: 0'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Memo1: TMemo
|
||||
|
||||
@ -2,18 +2,17 @@
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'o'#1#6'Height'#3#155#0#3'Top'#3'!'#1#5'Wi'
|
||||
+'dth'#3#218#0#18'HorzScrollBar.Page'#3#217#0#18'VertScrollBar.Page'#3#154#0
|
||||
+#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#18'Usage Code Example'#10'Font.Co'
|
||||
+'lor'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8
|
||||
+'Position'#7#14'poScreenCenter'#0#6'TLabel'#6'Label1'#4'Left'#2'8'#6'Height'
|
||||
+#2#13#3'Top'#2'H'#5'Width'#2'd'#7'Caption'#6#17'Available Runs: 0'#5'Color'#7
|
||||
+#6'clNone'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#2';'
|
||||
+#3'Top'#2#8#5'Width'#3#197#0#13'Lines.Strings'#1#6'#If you can edit this, yo'
|
||||
+'ur program '#6#4'was '#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertica'
|
||||
+'l'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'8'#6'Height'#2'!'#3
|
||||
+'Top'#2'Y'#5'Width'#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2
|
||||
+#1#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'OnChecked'#7#19'OgUsageCode1Check'
|
||||
+'ed'#8'OnGetKey'#7#18'OgUsageCode1GetKey'#9'OnGetCode'#7#19'OgUsageCode1GetC'
|
||||
+'ode'#12'OnChangeCode'#7#22'OgUsageCode1ChangeCode'#4'left'#2'X'#3'top'#3#160
|
||||
+#0#0#0#0
|
||||
+'dth'#3#218#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#18'Usage Code Exampl'
|
||||
+'e'#12'ClientHeight'#3#155#0#11'ClientWidth'#3#218#0#10'Font.Color'#7#7'clBl'
|
||||
+'ack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'#7#14
|
||||
+'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2
|
||||
+'8'#6'Height'#2#14#3'Top'#2'H'#5'Width'#2'T'#7'Caption'#6#17'Available Runs:'
|
||||
+' 0'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#2';'#3'To'
|
||||
+'p'#2#8#5'Width'#3#197#0#13'Lines.Strings'#1#6'#If you can edit this, your p'
|
||||
+'rogram '#6#4'was '#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8
|
||||
+'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'8'#6'Height'#2'!'#3'Top'
|
||||
+#2'Y'#5'Width'#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0
|
||||
+#12'TOgUsageCode'#12'OgUsageCode1'#9'OnChecked'#7#19'OgUsageCode1Checked'#8
|
||||
+'OnGetKey'#7#18'OgUsageCode1GetKey'#9'OnGetCode'#7#19'OgUsageCode1GetCode'#12
|
||||
+'OnChangeCode'#7#22'OgUsageCode1ChangeCode'#4'left'#2'X'#3'top'#3#160#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -2,7 +2,7 @@
|
||||
This example uses the TOgUsageCode component. This is the most basic
|
||||
example in that on first run, the INI file entries and component
|
||||
properties are set to allow 5 runs of the program with a "drop dead"
|
||||
date of 1999 December 31.
|
||||
date
|
||||
*)
|
||||
|
||||
unit Exusg1u;
|
||||
@ -102,8 +102,8 @@ begin
|
||||
IniFile := TIniFile.Create(TheDir + 'Usage1.ini');
|
||||
try
|
||||
{hard coded release code for 5 users}
|
||||
{and drop dead date of 2006 Dec. 31}
|
||||
S := '602224E18B152CF2';//'AC5D76E4B10D642B';
|
||||
{and drop dead date of 2009 Dec. 31}
|
||||
S := 'AECCA5B793AD56155D13';
|
||||
HexToBuffer(S, Code, SizeOf(Code));
|
||||
IniFile.WriteString('Codes', 'Uses', S);
|
||||
finally
|
||||
|
||||
@ -1,3 +1,2 @@
|
||||
[Codes]
|
||||
Uses=FCFB2E2A29547C1C
|
||||
|
||||
Uses=C48C080E8F9257705D13
|
||||
|
||||
@ -1,13 +1,14 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -41,9 +42,9 @@
|
||||
<Filename Value="exusg2u.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exusg2u.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Exusg2u"/>
|
||||
<CursorPos X="1" Y="71"/>
|
||||
<CursorPos X="34" Y="46"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
@ -53,7 +54,7 @@
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -66,12 +67,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -1,2 +1,2 @@
|
||||
[Codes]
|
||||
UsageCode=5C41E51B9365B994
|
||||
UsageCode=C48C080E8F9257705D13
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
</General>
|
||||
@ -41,7 +42,7 @@
|
||||
<Filename Value="exusregu.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="exusregu.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ExUSRegU"/>
|
||||
<CursorPos X="36" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
@ -53,7 +54,7 @@
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -66,12 +67,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -27,33 +28,33 @@
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="8">
|
||||
<Units Count="9">
|
||||
<Unit0>
|
||||
<Filename Value="fixnaf.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="3" Y="7"/>
|
||||
<CursorPos X="59" Y="15"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="20"/>
|
||||
<UsageCount Value="22"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="fixnaf1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="MainFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="fixnaf1.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="FIXNAF1"/>
|
||||
<CursorPos X="37" Y="97"/>
|
||||
<CursorPos X="72" Y="7"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="22"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="../../source/qonguard4.pas"/>
|
||||
<ComponentName Value="EditProductFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="../../source/qonguard4.lrs"/>
|
||||
<UnitName Value="qonguard4"/>
|
||||
<CursorPos X="33" Y="36"/>
|
||||
<TopLine Value="30"/>
|
||||
@ -63,7 +64,6 @@
|
||||
<Filename Value="../../source/qonguard3.pas"/>
|
||||
<ComponentName Value="KeyMaintFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="../../source/qonguard3.lrs"/>
|
||||
<UnitName Value="qonguard3"/>
|
||||
<CursorPos X="44" Y="37"/>
|
||||
<TopLine Value="30"/>
|
||||
@ -80,7 +80,6 @@
|
||||
<Filename Value="../../source/qonguard2.pas"/>
|
||||
<ComponentName Value="CodeGenerateFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="../../source/qonguard2.lrs"/>
|
||||
<UnitName Value="qonguard2"/>
|
||||
<CursorPos X="20" Y="339"/>
|
||||
<TopLine Value="337"/>
|
||||
@ -99,14 +98,27 @@
|
||||
<TopLine Value="161"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="../../source/ogutil.pas"/>
|
||||
<UnitName Value="ogutil"/>
|
||||
<CursorPos X="32" Y="15"/>
|
||||
<TopLine Value="7"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit8>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="2" HistoryIndex="1">
|
||||
<Position1>
|
||||
<Filename Value="fixnaf.lpr"/>
|
||||
<Caret Line="8" Column="37" TopLine="1"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="fixnaf1.pas"/>
|
||||
<Caret Line="7" Column="72" TopLine="1"/>
|
||||
</Position2>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="../../source/"/>
|
||||
</SearchPaths>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -119,12 +131,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -5,7 +5,7 @@ uses
|
||||
Interfaces,
|
||||
Forms,
|
||||
ogfirst,
|
||||
FIXNAF1 in 'FIXNAF1.pas' {MainFrm}, tponguard;
|
||||
FIXNAF1 in 'FIXNAF1.pas' {MainFrm};
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -31,7 +32,7 @@
|
||||
<Unit0>
|
||||
<Filename Value="nafmgr.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="21" Y="3"/>
|
||||
<CursorPos X="36" Y="8"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="21"/>
|
||||
@ -39,14 +40,15 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="nafmgr1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="NafFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="nafmgr1.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="NAFMGR1"/>
|
||||
<CursorPos X="1" Y="70"/>
|
||||
<TopLine Value="1"/>
|
||||
<TopLine Value="29"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
@ -56,22 +58,15 @@
|
||||
<UsageCount Value="10"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
<JumpHistory Count="2" HistoryIndex="1">
|
||||
<JumpHistory Count="1" HistoryIndex="0">
|
||||
<Position1>
|
||||
<Filename Value="nafmgr1.pas"/>
|
||||
<Caret Line="18" Column="16" TopLine="139"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="nafmgr1.pas"/>
|
||||
<Caret Line="70" Column="1" TopLine="53"/>
|
||||
</Position2>
|
||||
</Position1>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="../../source/"/>
|
||||
</SearchPaths>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -84,12 +79,16 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -5,7 +5,7 @@ uses
|
||||
Interfaces,
|
||||
Forms,
|
||||
ogfirst,
|
||||
NAFMGR1 in 'NAFMGR1.pas' {NafFrm}, tponguard;
|
||||
NAFMGR1 in 'NAFMGR1.pas' {NafFrm};
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,2 +1,2 @@
|
||||
11345
|
||||
BE81DA11B7CAEC9C
|
||||
1
|
||||
A624 C732 3A5E F550
|
||||
|
||||
@ -7,7 +7,6 @@ object frmMain: TfrmMain
|
||||
Font.Name = 'Arial'
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 16
|
||||
HorzScrollBar.Page = 366
|
||||
VertScrollBar.Page = 142
|
||||
Left = 383
|
||||
|
||||
@ -1,18 +1,15 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
|
||||
LazarusResources.Add('TfrmMain','FORMDATA',[
|
||||
'TPF0'#8'TfrmMain'#7'frmMain'#13'ActiveControl'#7#7'Button1'#7'Caption'#6#11
|
||||
+'Hello World'#12'ClientHeight'#3#143#0#11'ClientWidth'#3'o'#1#11'Font.Height'
|
||||
+#2#243#9'Font.Name'#6#5'Arial'#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'
|
||||
+#2'`'#10'TextHeight'#2#16#18'HorzScrollBar.Page'#3'n'#1#18'VertScrollBar.Pag'
|
||||
+'e'#3#142#0#4'Left'#3''#1#6'Height'#3#143#0#3'Top'#3'!'#1#5'Width'#3'o'#1#0
|
||||
+#6'TLabel'#6'Label1'#9'Alignment'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#12
|
||||
+'Hello World!'#5'Color'#7#6'clNone'#11'Font.Height'#2#223#9'Font.Name'#6#5'A'
|
||||
+'rial'#11'ParentColor'#8#4'Left'#2#4#6'Height'#2')'#3'Top'#2#16#5'Width'#3'g'
|
||||
+#1#0#0#7'TButton'#7'Button1'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#5
|
||||
+'Close'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0#4'Left'#3#24#1#6'Heigh'
|
||||
+'t'#2#25#3'Top'#2'X'#5'Width'#2'K'#0#0#7'TButton'#9'btnReadme'#25'BorderSpac'
|
||||
+'ing.InnerBorder'#2#4#7'Caption'#6#9'Readme...'#7'OnClick'#7#14'btnReadmeCli'
|
||||
+'ck'#8'TabOrder'#2#1#4'Left'#2#16#6'Height'#2#25#3'Top'#2'X'#5'Width'#2'K'#0
|
||||
+#0#0
|
||||
+#2'`'#18'HorzScrollBar.Page'#3'n'#1#18'VertScrollBar.Page'#3#142#0#4'Left'#3
|
||||
+''#1#6'Height'#3#143#0#3'Top'#3'!'#1#5'Width'#3'o'#1#0#6'TLabel'#6'Label1'#9
|
||||
+'Alignment'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#12'Hello World!'#5'Colo'
|
||||
+'r'#7#6'clNone'#11'Font.Height'#2#223#9'Font.Name'#6#5'Arial'#11'ParentColor'
|
||||
+#8#4'Left'#2#4#6'Height'#2')'#3'Top'#2#16#5'Width'#3'g'#1#0#0#7'TButton'#7'B'
|
||||
+'utton1'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#5'Close'#7'OnClick'#7
|
||||
+#12'Button1Click'#8'TabOrder'#2#0#4'Left'#3#24#1#6'Height'#2#25#3'Top'#2'X'#5
|
||||
+'Width'#2'K'#0#0#7'TButton'#9'btnReadme'#25'BorderSpacing.InnerBorder'#2#4#7
|
||||
+'Caption'#6#9'Readme...'#7'OnClick'#7#14'btnReadmeClick'#8'TabOrder'#2#1#4'L'
|
||||
+'eft'#2#16#6'Height'#2#25#3'Top'#2'X'#5'Width'#2'K'#0#0#0
|
||||
]);
|
||||
|
||||
@ -1,4 +1,8 @@
|
||||
object frmReadme: TfrmReadme
|
||||
Left = 192
|
||||
Height = 462
|
||||
Top = 107
|
||||
Width = 539
|
||||
ActiveControl = Memo1
|
||||
Caption = 'Readme.txt'
|
||||
ClientHeight = 462
|
||||
@ -6,15 +10,12 @@ object frmReadme: TfrmReadme
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
OnActivate = FormActivate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
HorzScrollBar.Page = 538
|
||||
VertScrollBar.Page = 461
|
||||
Left = 192
|
||||
Height = 462
|
||||
Top = 107
|
||||
Width = 539
|
||||
LCLVersion = '0.9.27'
|
||||
object Memo1: TMemo
|
||||
Left = 0
|
||||
Height = 462
|
||||
Top = 0
|
||||
Width = 539
|
||||
Align = alClient
|
||||
Font.Height = -13
|
||||
Font.Name = 'Courier New'
|
||||
@ -132,10 +133,9 @@ object frmReadme: TfrmReadme
|
||||
'HELLOWORLD.EXE. '
|
||||
''
|
||||
)
|
||||
ParentFont = False
|
||||
ReadOnly = True
|
||||
ScrollBars = ssBoth
|
||||
TabOrder = 0
|
||||
Height = 462
|
||||
Width = 539
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,71 +1,70 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
{ To jest automatycznie wygenerowany plik zasobów lazarusa }
|
||||
|
||||
LazarusResources.Add('TfrmReadme','FORMDATA',[
|
||||
'TPF0'#10'TfrmReadme'#9'frmReadme'#13'ActiveControl'#7#5'Memo1'#7'Caption'#6
|
||||
+#10'Readme.txt'#12'ClientHeight'#3#206#1#11'ClientWidth'#3#27#2#11'Font.Heig'
|
||||
+'ht'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActivate'#7#12'FormActivate'
|
||||
+#13'PixelsPerInch'#2'`'#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3#26#2#18
|
||||
+'VertScrollBar.Page'#3#205#1#4'Left'#3#192#0#6'Height'#3#206#1#3'Top'#2'k'#5
|
||||
+'Width'#3#27#2#0#5'TMemo'#5'Memo1'#5'Align'#7#8'alClient'#11'Font.Height'#2
|
||||
+#243#9'Font.Name'#6#11'Courier New'#13'Lines.Strings'#1#6'&Registration Demo'
|
||||
+' by Bill Mullen [TPX]'#6'&--------------------------------------'#6#0#6'>Th'
|
||||
+'is demo consists of three applications and complete project '#6#5'code.'#6
|
||||
+#27'The three applications are:'#6#0#6'@RCG.EXE - This is the application yo'
|
||||
+'u use to gather information '#6#5'from '#6'@your user. That information is'
|
||||
+' then used to generate a release '#6#5'code '#6'%that you will give back to'
|
||||
+' the user. '#6#0#6'?REGISTRATION.EXE - A sample registration application th'
|
||||
+'at your '#6'=user would run when they are ready to register their product '
|
||||
+#6#9'with you.'#6'AThey enter the serial number that was on their disk or CD'
|
||||
+'. When '#6'?they call you, they will read you their serial number, and the'
|
||||
+' '#6#8'machine '#6'?identifier (MachineModifier). You will enter this info'
|
||||
+'rmation '#6#9'into RCG '#6'?(above) and calculate a release code. You will'
|
||||
+' then read them '#6#4'the '#6'Arelease code and they will enter it into the'
|
||||
+' Release Code field. '#6#0#6'?When they click the SAVE button, it validates'
|
||||
+' the release code '#6#4'and '#6'@if it is valid, the serial number and rele'
|
||||
+'ase code are saved to '#6#6'a file'#6#25'called REGISTRATION.DAT. '#6#0#6'<'
|
||||
+'HELLOWORLD.EXE - A simple application that demonstrates the '#6'1use of the'
|
||||
+' registration information found in the '#6#16'REGISTRATION.DAT'#6'@file tha'
|
||||
+'t was created by the REGISTRATION.EXE application. The '#6'=serial number '
|
||||
+'stored in the REGISTRATION.DAT file is used to '#6';calculate a release cod'
|
||||
+'e on the machine the application is '#6#8'running '#6'Aon and it them compa'
|
||||
+'res this release code with the one stored in '#6#4'the '#6'?REGISTRATION.DA'
|
||||
+'T file. If the two release codes are the same, '#6';the application runs ('
|
||||
+'displays "Hello World") otherwise it '#6#12'informs the '#6')user that they'
|
||||
+' have an unregistered demo.'#6#0#6'AAn OnGuard.ini file is included that co'
|
||||
+'ntains the KEY that I use '#6#3'in '#6'@this demo. When running the demo as'
|
||||
+' shipped, you should use the '#6';supplied OnGuard.ini file when getting th'
|
||||
+'e application key.'#6#0#6':Before opening and modifying any code, you shoul'
|
||||
+'d run the '#6#10'following '#6'<test to see how these applications work wi'
|
||||
+'th one another. '#6#0#6'?1. Run the HELLOWORLD.EXE application. As you c'
|
||||
+'an see, it is '#6#15'not registered.'#6#0#6'<2. Execute REGISTRATION.EXE. '
|
||||
+' Enter any valid long integer '#6'9value in the serial number field in the '
|
||||
+'REGISTRATION.EXE '#6#12'application.'#6'=Execute RCG.EXE and arrange the wi'
|
||||
+'ndows so that you can view '#6#7'both. '#6#0#6'?a. In the RCG application'
|
||||
+', load the key by pressing the speed '#6#7'button '#6'?and selecting the He'
|
||||
+'llo World application from the OnGuard.ini '#6#10'file that '#6#15'was supp'
|
||||
+'lied. '#6#0#6'Ab. Select the "Apply a Machine Modifier" checkbox and ente'
|
||||
+'r the '#6';machine modifier that is displayed in the REGISTRATION.EXE '#6'A'
|
||||
+'application (this simulates the user reading that information to '#6#7'you)'
|
||||
+'. '#6#0#6'Ac. Skip the Expiration portion as I did not use this feature i'
|
||||
+'n '#6#4'the '#6#17'other programs. '#6#0#6':d. Next enter the serial numb'
|
||||
+'er that is displayed in the '#6'5REGISTRATION.EXE application (again, a sim'
|
||||
+'ulation). '#6#0#6'Ae. Generate a release code by pressing the speed butto'
|
||||
+'n next to '#6#28'the Release Code edit field.'#6#0#6'2f. Have the user ent'
|
||||
+'er the release code in their '#6#16'REGISTRATION.EXE'#6'=application that y'
|
||||
+'ou read them from your RGC.EXE application '#6'@(simulated). For testing p'
|
||||
+'urposes, change any single character '#6#3'as '#6';you enter the data so yo'
|
||||
+'u can see how the application will '#6#9'reject an'#6'@invalid code. (Now '
|
||||
+'simply copy and paste the release code from '#6'>RGC to REGISTRATION to sav'
|
||||
+'e yourself having to enter the whole'#6#14'string again.)'#6#0#6';If you en'
|
||||
+'tered everything correctly, the REGISTRASTION.EXE '#6'?application will inf'
|
||||
+'orm you and save the data. Now let''s test '#6#4'the '#6#25'registration i'
|
||||
+'nformation.'#6#0#6'83. Run the HELLOWORLD.EXE application. If you entered'
|
||||
+' '#6'6everything correctly in step 2, you will see that the '#6#15'applicat'
|
||||
+'ion is '#6'''registered (It displays "HELLO WORLD").'#6#0#6'6If you have an'
|
||||
+'other computer, copy HELLOWORLD.EXE and '#6'5REGISTRASTION.DAT to that mach'
|
||||
+'ine and try to execute '#6'<HELLOWORLD.EXE - you should be told that the ap'
|
||||
+'plication is '#6':an unregistered demo. You can also edit the any single'
|
||||
,' '#6'.character in REGISTRASTION.DAT and try to run '#6#17'HELLOWORLD.EXE. '
|
||||
+' '#6#0#0#8'ReadOnly'#9#10'ScrollBars'#7#6'ssBoth'#8'TabOrder'#2#0#6'Height'
|
||||
+#3#206#1#5'Width'#3#27#2#0#0#0
|
||||
'TPF0'#10'TfrmReadme'#9'frmReadme'#4'Left'#3#192#0#6'Height'#3#206#1#3'Top'#2
|
||||
+'k'#5'Width'#3#27#2#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#10'Readme.txt'
|
||||
+#12'ClientHeight'#3#206#1#11'ClientWidth'#3#27#2#11'Font.Height'#2#245#9'Fon'
|
||||
+'t.Name'#6#13'MS Sans Serif'#10'OnActivate'#7#12'FormActivate'#10'LCLVersion'
|
||||
+#6#6'0.9.27'#0#5'TMemo'#5'Memo1'#4'Left'#2#0#6'Height'#3#206#1#3'Top'#2#0#5
|
||||
+'Width'#3#27#2#5'Align'#7#8'alClient'#11'Font.Height'#2#243#9'Font.Name'#6#11
|
||||
+'Courier New'#13'Lines.Strings'#1#6'&Registration Demo by Bill Mullen [TPX]'
|
||||
+#6'&--------------------------------------'#6#0#6'>This demo consists of thr'
|
||||
+'ee applications and complete project '#6#5'code.'#6#27'The three applicatio'
|
||||
+'ns are:'#6#0#6'@RCG.EXE - This is the application you use to gather informa'
|
||||
+'tion '#6#5'from '#6'@your user. That information is then used to generate '
|
||||
+'a release '#6#5'code '#6'%that you will give back to the user. '#6#0#6'?REG'
|
||||
+'ISTRATION.EXE - A sample registration application that your '#6'=user would'
|
||||
+' run when they are ready to register their product '#6#9'with you.'#6'AThey'
|
||||
+' enter the serial number that was on their disk or CD. When '#6'?they call'
|
||||
+' you, they will read you their serial number, and the '#6#8'machine '#6'?id'
|
||||
+'entifier (MachineModifier). You will enter this information '#6#9'into RCG'
|
||||
+' '#6'?(above) and calculate a release code. You will then read them '#6#4
|
||||
+'the '#6'Arelease code and they will enter it into the Release Code field. '
|
||||
+#6#0#6'?When they click the SAVE button, it validates the release code '#6#4
|
||||
+'and '#6'@if it is valid, the serial number and release code are saved to '#6
|
||||
+#6'a file'#6#25'called REGISTRATION.DAT. '#6#0#6'<HELLOWORLD.EXE - A simple '
|
||||
+'application that demonstrates the '#6'1use of the registration information '
|
||||
+'found in the '#6#16'REGISTRATION.DAT'#6'@file that was created by the REGIS'
|
||||
+'TRATION.EXE application. The '#6'=serial number stored in the REGISTRATION'
|
||||
+'.DAT file is used to '#6';calculate a release code on the machine the appli'
|
||||
+'cation is '#6#8'running '#6'Aon and it them compares this release code with'
|
||||
+' the one stored in '#6#4'the '#6'?REGISTRATION.DAT file. If the two releas'
|
||||
+'e codes are the same, '#6';the application runs (displays "Hello World") ot'
|
||||
+'herwise it '#6#12'informs the '#6')user that they have an unregistered demo'
|
||||
+'.'#6#0#6'AAn OnGuard.ini file is included that contains the KEY that I use '
|
||||
+#6#3'in '#6'@this demo. When running the demo as shipped, you should use the'
|
||||
+' '#6';supplied OnGuard.ini file when getting the application key.'#6#0#6':B'
|
||||
+'efore opening and modifying any code, you should run the '#6#10'following '
|
||||
+#6'<test to see how these applications work with one another. '#6#0#6'?1. '
|
||||
+' Run the HELLOWORLD.EXE application. As you can see, it is '#6#15'not regi'
|
||||
+'stered.'#6#0#6'<2. Execute REGISTRATION.EXE. Enter any valid long integer'
|
||||
+' '#6'9value in the serial number field in the REGISTRATION.EXE '#6#12'appli'
|
||||
+'cation.'#6'=Execute RCG.EXE and arrange the windows so that you can view '#6
|
||||
+#7'both. '#6#0#6'?a. In the RCG application, load the key by pressing the '
|
||||
+'speed '#6#7'button '#6'?and selecting the Hello World application from the '
|
||||
+'OnGuard.ini '#6#10'file that '#6#15'was supplied. '#6#0#6'Ab. Select the '
|
||||
+'"Apply a Machine Modifier" checkbox and enter the '#6';machine modifier tha'
|
||||
+'t is displayed in the REGISTRATION.EXE '#6'Aapplication (this simulates the'
|
||||
+' user reading that information to '#6#7'you). '#6#0#6'Ac. Skip the Expira'
|
||||
+'tion portion as I did not use this feature in '#6#4'the '#6#17'other progra'
|
||||
+'ms. '#6#0#6':d. Next enter the serial number that is displayed in the '#6
|
||||
+'5REGISTRATION.EXE application (again, a simulation). '#6#0#6'Ae. Generate'
|
||||
+' a release code by pressing the speed button next to '#6#28'the Release Cod'
|
||||
+'e edit field.'#6#0#6'2f. Have the user enter the release code in their '#6
|
||||
+#16'REGISTRATION.EXE'#6'=application that you read them from your RGC.EXE ap'
|
||||
+'plication '#6'@(simulated). For testing purposes, change any single charac'
|
||||
+'ter '#6#3'as '#6';you enter the data so you can see how the application wil'
|
||||
+'l '#6#9'reject an'#6'@invalid code. (Now simply copy and paste the release'
|
||||
+' code from '#6'>RGC to REGISTRATION to save yourself having to enter the wh'
|
||||
+'ole'#6#14'string again.)'#6#0#6';If you entered everything correctly, the R'
|
||||
+'EGISTRASTION.EXE '#6'?application will inform you and save the data. Now l'
|
||||
+'et''s test '#6#4'the '#6#25'registration information.'#6#0#6'83. Run the H'
|
||||
+'ELLOWORLD.EXE application. If you entered '#6'6everything correctly in ste'
|
||||
+'p 2, you will see that the '#6#15'application is '#6'''registered (It displ'
|
||||
+'ays "HELLO WORLD").'#6#0#6'6If you have another computer, copy HELLOWORLD.E'
|
||||
+'XE and '#6'5REGISTRASTION.DAT to that machine and try to execute '#6'<HELLO'
|
||||
+'WORLD.EXE - you should be told that the application is '#6':an unregistered'
|
||||
+' demo. You can also edit the any single '#6'.character in REGISTRASTION.'
|
||||
,'DAT and try to run '#6#17'HELLOWORLD.EXE. '#6#0#0#10'ParentFont'#8#8'ReadO'
|
||||
+'nly'#9#10'ScrollBars'#7#6'ssBoth'#8'TabOrder'#2#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -1,13 +1,14 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="3"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -27,54 +28,90 @@
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="4">
|
||||
<Units Count="7">
|
||||
<Unit0>
|
||||
<Filename Value="helloworld.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="63" Y="11"/>
|
||||
<CursorPos X="46" Y="20"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="20"/>
|
||||
<UsageCount Value="27"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="frm_main.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmMain"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="frm_main.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="frm_Main"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="10"/>
|
||||
<CursorPos X="23" Y="44"/>
|
||||
<TopLine Value="23"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="27"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="uni_regcommon.pas"/>
|
||||
<UnitName Value="uni_RegCommon"/>
|
||||
<CursorPos X="1" Y="4"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="16" Y="37"/>
|
||||
<TopLine Value="19"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="13"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="frm_readme.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmReadme"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="frm_readme.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="frm_Readme"/>
|
||||
<CursorPos X="20" Y="3"/>
|
||||
<CursorPos X="4" Y="3"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="27"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="frm_readme.lfm"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="9"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="frm_main.lfm"/>
|
||||
<CursorPos X="21" Y="9"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="13"/>
|
||||
<Loaded Value="True"/>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="../../source/onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
<CursorPos X="3" Y="1993"/>
|
||||
<TopLine Value="1991"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="13"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit6>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="2" HistoryIndex="1">
|
||||
<Position1>
|
||||
<Filename Value="frm_main.pas"/>
|
||||
<Caret Line="44" Column="23" TopLine="26"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="uni_regcommon.pas"/>
|
||||
<Caret Line="37" Column="16" TopLine="19"/>
|
||||
</Position2>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -87,7 +124,6 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
|
||||
@ -1,13 +1,14 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
@ -31,7 +32,7 @@
|
||||
<Unit0>
|
||||
<Filename Value="rcg.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="56" Y="9"/>
|
||||
<CursorPos X="54" Y="12"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="21"/>
|
||||
@ -39,26 +40,28 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="rcg_main.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="rcgMain"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="rcg_main.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="rcg_Main"/>
|
||||
<CursorPos X="59" Y="74"/>
|
||||
<TopLine Value="125"/>
|
||||
<TopLine Value="74"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="frm_readme.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmReadme"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="frm_readme.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="frm_Readme"/>
|
||||
<CursorPos X="90" Y="13"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
@ -72,7 +75,6 @@
|
||||
<Filename Value="../../source/qonguard3.pas"/>
|
||||
<ComponentName Value="KeyMaintFrm"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="../../source/qonguard3.lrs"/>
|
||||
<UnitName Value="qonguard3"/>
|
||||
<CursorPos X="23" Y="131"/>
|
||||
<TopLine Value="125"/>
|
||||
@ -89,7 +91,7 @@
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -102,7 +104,6 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
|
||||
@ -8,7 +8,6 @@ object regMain: TregMain
|
||||
Font.Name = 'Arial'
|
||||
OnActivate = FormActivate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 16
|
||||
HorzScrollBar.Page = 299
|
||||
VertScrollBar.Page = 260
|
||||
Left = 468
|
||||
|
||||
@ -1,31 +1,28 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
|
||||
LazarusResources.Add('TregMain','FORMDATA',[
|
||||
'TPF0'#8'TregMain'#7'regMain'#13'ActiveControl'#7#9'edtSerial'#11'BorderStyle'
|
||||
+#7#8'bsDialog'#7'Caption'#6#18'Registration Tools'#12'ClientHeight'#3#5#1#11
|
||||
+'ClientWidth'#3','#1#11'Font.Height'#2#243#9'Font.Name'#6#5'Arial'#10'OnActi'
|
||||
+'vate'#7#12'FormActivate'#13'PixelsPerInch'#2'`'#10'TextHeight'#2#16#18'Horz'
|
||||
+'ScrollBar.Page'#3'+'#1#18'VertScrollBar.Page'#3#4#1#4'Left'#3#212#1#6'Heigh'
|
||||
+'t'#3#5#1#3'Top'#3#153#0#5'Width'#3','#1#0#6'TLabel'#6'Label1'#7'Caption'#6
|
||||
+'%Enter your serial number from your CD'#5'Color'#7#6'clNone'#11'ParentColor'
|
||||
+#8#4'Left'#2#10#6'Height'#2#14#3'Top'#2'C'#5'Width'#3#186#0#0#0#6'TLabel'#6
|
||||
+'Label2'#7'Caption'#6#18'Machine Identifier'#5'Color'#7#6'clNone'#11'ParentC'
|
||||
+'olor'#8#4'Left'#2#10#6'Height'#2#14#3'Top'#2's'#5'Width'#2'W'#0#0#6'TLabel'
|
||||
+#6'Label3'#7'Caption'#6'+Enter the release code you were given by us'#5'Colo'
|
||||
+'r'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#10#6'Height'#2#14#3'Top'#3#163#0
|
||||
+#5'Width'#3#216#0#0#0#5'TEdit'#9'edtSerial'#9'MaxLength'#2#10#8'TabOrder'#2#1
|
||||
+#4'Left'#2#10#6'Height'#2#24#3'Top'#2'S'#5'Width'#3#12#1#0#0#5'TMemo'#5'Memo'
|
||||
+'1'#5'Color'#7#9'clBtnFace'#13'Lines.Strings'#1#6'*Thank you for registering'
|
||||
+' HelloWorld. To '#6'.complete your registration, please contact us '#6#18
|
||||
+'at (800) 555-1212.'#0#7'OnEnter'#7#10'Memo1Enter'#8'ReadOnly'#9#8'TabOrder'
|
||||
+#2#0#7'TabStop'#8#4'Left'#2#10#6'Height'#2'1'#3'Top'#2#8#5'Width'#3#12#1#0#0
|
||||
+#5'TEdit'#10'edtMachine'#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#2#4'Left'#2
|
||||
+#10#6'Height'#2#24#3'Top'#3#131#0#5'Width'#3#12#1#0#0#5'TEdit'#10'edtRelease'
|
||||
+#9'MaxLength'#2#19#8'TabOrder'#2#3#4'Left'#2#10#6'Height'#2#24#3'Top'#3#179#0
|
||||
+#5'Width'#3#12#1#0#0#7'TButton'#7'btnSave'#25'BorderSpacing.InnerBorder'#2#4
|
||||
+#7'Caption'#6#4'Save'#7'OnClick'#7#12'btnSaveClick'#8'TabOrder'#2#4#4'Left'#3
|
||||
+#203#0#6'Height'#2#25#3'Top'#3#215#0#5'Width'#2'K'#0#0#7'TButton'#9'btnReadm'
|
||||
+'e'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#9'Readme...'#7'OnClick'#7
|
||||
+#14'btnReadmeClick'#8'TabOrder'#2#5#4'Left'#2#10#6'Height'#2#25#3'Top'#3#215
|
||||
+#0#5'Width'#2'K'#0#0#0
|
||||
+'vate'#7#12'FormActivate'#13'PixelsPerInch'#2'`'#18'HorzScrollBar.Page'#3'+'
|
||||
+#1#18'VertScrollBar.Page'#3#4#1#4'Left'#3#212#1#6'Height'#3#5#1#3'Top'#3#153
|
||||
+#0#5'Width'#3','#1#0#6'TLabel'#6'Label1'#7'Caption'#6'%Enter your serial num'
|
||||
+'ber from your CD'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#10#6'Hei'
|
||||
+'ght'#2#14#3'Top'#2'C'#5'Width'#3#186#0#0#0#6'TLabel'#6'Label2'#7'Caption'#6
|
||||
+#18'Machine Identifier'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#10#6
|
||||
+'Height'#2#14#3'Top'#2's'#5'Width'#2'W'#0#0#6'TLabel'#6'Label3'#7'Caption'#6
|
||||
+'+Enter the release code you were given by us'#5'Color'#7#6'clNone'#11'Paren'
|
||||
+'tColor'#8#4'Left'#2#10#6'Height'#2#14#3'Top'#3#163#0#5'Width'#3#216#0#0#0#5
|
||||
+'TEdit'#9'edtSerial'#9'MaxLength'#2#10#8'TabOrder'#2#1#4'Left'#2#10#6'Height'
|
||||
+#2#24#3'Top'#2'S'#5'Width'#3#12#1#0#0#5'TMemo'#5'Memo1'#5'Color'#7#9'clBtnFa'
|
||||
+'ce'#13'Lines.Strings'#1#6'*Thank you for registering HelloWorld. To '#6'.c'
|
||||
+'omplete your registration, please contact us '#6#18'at (800) 555-1212.'#0#7
|
||||
+'OnEnter'#7#10'Memo1Enter'#8'ReadOnly'#9#8'TabOrder'#2#0#7'TabStop'#8#4'Left'
|
||||
+#2#10#6'Height'#2'1'#3'Top'#2#8#5'Width'#3#12#1#0#0#5'TEdit'#10'edtMachine'#8
|
||||
+'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#2#4'Left'#2#10#6'Height'#2#24#3'Top'
|
||||
+#3#131#0#5'Width'#3#12#1#0#0#5'TEdit'#10'edtRelease'#9'MaxLength'#2#19#8'Tab'
|
||||
+'Order'#2#3#4'Left'#2#10#6'Height'#2#24#3'Top'#3#179#0#5'Width'#3#12#1#0#0#7
|
||||
+'TButton'#7'btnSave'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#4'Save'#7
|
||||
+'OnClick'#7#12'btnSaveClick'#8'TabOrder'#2#4#4'Left'#3#203#0#6'Height'#2#25#3
|
||||
+'Top'#3#215#0#5'Width'#2'K'#0#0#7'TButton'#9'btnReadme'#25'BorderSpacing.Inn'
|
||||
+'erBorder'#2#4#7'Caption'#6#9'Readme...'#7'OnClick'#7#14'btnReadmeClick'#8'T'
|
||||
+'abOrder'#2#5#4'Left'#2#10#6'Height'#2#25#3'Top'#3#215#0#5'Width'#2'K'#0#0#0
|
||||
]);
|
||||
|
||||
@ -1,11 +1,12 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="1"/>
|
||||
</General>
|
||||
@ -27,11 +28,11 @@
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="4">
|
||||
<Units Count="5">
|
||||
<Unit0>
|
||||
<Filename Value="registration.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="60" Y="19"/>
|
||||
<CursorPos X="48" Y="19"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="20"/>
|
||||
@ -39,41 +40,56 @@
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="reg_main.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="regMain"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="reg_main.lrs"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="reg_main"/>
|
||||
<CursorPos X="20" Y="9"/>
|
||||
<TopLine Value="58"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="10"/>
|
||||
<CursorPos X="26" Y="77"/>
|
||||
<TopLine Value="51"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="uni_regcommon.pas"/>
|
||||
<UnitName Value="uni_RegCommon"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<CursorPos X="11" Y="17"/>
|
||||
<TopLine Value="17"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="frm_readme.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmReadme"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="frm_Readme"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<CursorPos X="12" Y="6"/>
|
||||
<TopLine Value="3"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="reg_main.lfm"/>
|
||||
<CursorPos X="21" Y="10"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<SyntaxHighlighter Value="LFM"/>
|
||||
</Unit4>
|
||||
</Units>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
<JumpHistory Count="1" HistoryIndex="0">
|
||||
<Position1>
|
||||
<Filename Value="reg_main.pas"/>
|
||||
<Caret Line="77" Column="26" TopLine="63"/>
|
||||
</Position1>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
@ -86,7 +102,6 @@
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
|
||||
@ -2,10 +2,11 @@
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="6"/>
|
||||
<Version Value="7"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<AlwaysBuild Value="False"/>
|
||||
<LRSInOutputDirectory Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
@ -45,7 +46,6 @@
|
||||
<ComponentName Value="frmStamp"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<ResourceFilename Value="stampex1.lrs"/>
|
||||
<UnitName Value="STAMPEX1"/>
|
||||
<CursorPos X="7" Y="8"/>
|
||||
<TopLine Value="1"/>
|
||||
@ -115,6 +115,11 @@
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
|
||||
@ -1,30 +1,27 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<Package Version="2">
|
||||
<Package Version="3">
|
||||
<Name Value="tponguard"/>
|
||||
<Author Value="Turbo Power Software Company ,Colorado Springs"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="../source/"/>
|
||||
<OtherUnitFiles Value="../source/"/>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
<SrcPath Value="../source/"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Description Value="TurboPower OnGuard is a library to create demo versions of your Borland Delphi & C++Builder applications. Create demo versions that are time-limited, feature-limited, limited to a certain number of uses, or limited to a certain # of concurrent network users.
|
||||
Ports : Andrew Haines (Kylix version), Bogus�aw Brandys (FPC/Lazarus)"/>
|
||||
Ports : Andrew Haines (Kylix version), Bogusław Brandys (FPC/Lazarus)"/>
|
||||
<License Value="Mozilla Public License 1.1 (MPL 1.1)
|
||||
|
||||
"/>
|
||||
<Version Major="1"/>
|
||||
<Files Count="22">
|
||||
<Files Count="23">
|
||||
<Item1>
|
||||
<Filename Value="../source/ogfile.pas"/>
|
||||
<UnitName Value="ogfile"/>
|
||||
@ -114,6 +111,10 @@ Ports : Andrew Haines (Kylix version), Bogus
|
||||
<Filename Value="../source/onguard.pas"/>
|
||||
<UnitName Value="onguard"/>
|
||||
</Item22>
|
||||
<Item23>
|
||||
<Filename Value="../source/ogfirst.pas"/>
|
||||
<UnitName Value="ogfirst"/>
|
||||
</Item23>
|
||||
</Files>
|
||||
<Type Value="DesignTime"/>
|
||||
<RequiredPkgs Count="2">
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
{ This file was automatically created by Lazarus. Do not edit!
|
||||
This source is only used to compile and install the package.
|
||||
{ This file was automatically created by Lazarus. do not edit!
|
||||
This source is only used to compile and install the package.
|
||||
}
|
||||
|
||||
unit tponguard;
|
||||
@ -7,9 +7,9 @@ unit tponguard;
|
||||
interface
|
||||
|
||||
uses
|
||||
ogfile, ognetwrk, ogproexe, ogreg, ogutil, qogabout0, qonguard1, qonguard2,
|
||||
qonguard3, qonguard4, qonguard5, qonguard6, qonguard7, ogconst, onguard,
|
||||
LazarusPackageIntf;
|
||||
ogfile, ognetwrk, ogproexe, ogreg, ogutil, qogabout0, qonguard1,
|
||||
qonguard2, qonguard3, qonguard4, qonguard5, qonguard6, qonguard7, ogconst,
|
||||
onguard, ogfirst, LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
@ -41,6 +41,11 @@ To install TurboPower OnGuard into your IDE, take the following steps:
|
||||
4. Version history
|
||||
|
||||
|
||||
4.3 July 28 2009
|
||||
- initial support for InvalidCount value allowing 'breaking the rules' limited , for example run program a few times if trial period expired
|
||||
- IDE serial number used for machine id instead of volume serials
|
||||
- fixed TextHeight obsolete properties in lfm resources
|
||||
|
||||
4.2 October 31, 2008
|
||||
|
||||
Import into lazarus-ccr SVN repository.
|
||||
|
||||
@ -48,9 +48,12 @@ unit ogutil;
|
||||
interface
|
||||
|
||||
uses
|
||||
LCLIntf
|
||||
LCLIntf,lclproc
|
||||
{$IFDEF LINUX} {AH.01}
|
||||
,BaseUnix
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
|
||||
{$ENDIF} {AH.01}
|
||||
,SysUtils
|
||||
{$IFNDEF IBO_CONSOLE},Dialogs{$ENDIF} {AH.02}
|
||||
@ -65,7 +68,7 @@ const
|
||||
DefStoreRegString = False;
|
||||
|
||||
const
|
||||
OgVersionStr = '1.13';
|
||||
OgVersionStr = '1.20';
|
||||
|
||||
|
||||
|
||||
@ -1186,6 +1189,8 @@ var
|
||||
Context : TTMDContext;
|
||||
UserInfoFound : Boolean; {!!.11}
|
||||
Buf : array [0..1023] of Byte;
|
||||
iController, iDrive, maxController : Integer;
|
||||
BufStr : AnsiString;
|
||||
begin
|
||||
InitTMD(Context);
|
||||
|
||||
@ -1261,18 +1266,18 @@ begin
|
||||
|
||||
if midDrives in MachineInfo then begin
|
||||
{include drive specific information}
|
||||
for Drive := 'C' to 'Z' do begin
|
||||
|
||||
if (GetDriveType(PAnsiChar(Drive + ':\')) = DRIVE_FIXED) then begin
|
||||
FillChar(Buf, Sizeof(Buf), 0);
|
||||
Buf[0] := Byte(Drive);
|
||||
{!!.16} {removed cluster information}
|
||||
GetVolumeInformation(PAnsiChar(Drive + ':\'), nil, 0,
|
||||
PDWord(@Buf[1]){serial number}, I{not used}, I{not used}, nil, 0);
|
||||
UpdateTMD(Context, Buf, 5);
|
||||
end;
|
||||
maxController := 15;
|
||||
if Win32Platform<>VER_PLATFORM_WIN32_NT then maxController := 0;
|
||||
for iController := 0 to maxController do
|
||||
begin
|
||||
for iDrive := 0 to 4 do
|
||||
begin
|
||||
BufStr := '';
|
||||
if GetIdeDiskSerialNumber(iController,iDrive,BufStr) then
|
||||
if BufStr<>'' then UpdateTMD(Context, BufStr[1], 5);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
FinalizeTMD(Context, Result, SizeOf(Result));
|
||||
end;
|
||||
|
||||
@ -60,6 +60,9 @@ uses
|
||||
{$ENDIF}
|
||||
{$IFDEF UsingZLib}
|
||||
,ZLib
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
,idesn
|
||||
{$ENDIF}
|
||||
;
|
||||
|
||||
@ -80,6 +83,7 @@ type
|
||||
TCode = packed record
|
||||
CheckValue : Word; {magic value}
|
||||
Expiration : Word; {expiration date or 0, if none}
|
||||
InvalidCount : Word; {count of respected invalid code accidents,normally 0}
|
||||
case Byte of
|
||||
0 : (FirstDate : Word; {for date code}
|
||||
EndDate : Word);
|
||||
@ -357,6 +361,8 @@ type
|
||||
default False;
|
||||
end;
|
||||
|
||||
{ TOgDateCode }
|
||||
|
||||
TOgDateCode = class(TOgCodeBase)
|
||||
public
|
||||
function CheckCode(Report : Boolean) : TCodeStatus;
|
||||
@ -364,6 +370,8 @@ type
|
||||
function GetValue : TDateTime;
|
||||
{-return expiration date (0 for error)}
|
||||
|
||||
function GetInvalidCount : LongInt;
|
||||
|
||||
published
|
||||
{properties}
|
||||
property Code
|
||||
@ -398,6 +406,8 @@ type
|
||||
function GetValue : LongInt;
|
||||
{-return number of days remaining}
|
||||
|
||||
function GetInvalidCount : LongInt;
|
||||
|
||||
published
|
||||
{properties}
|
||||
property AutoDecrease : Boolean
|
||||
@ -526,22 +536,28 @@ type
|
||||
end;
|
||||
|
||||
{$IFNDEF IBO_CONSOLE}
|
||||
|
||||
function GetInvalidCountValue(const Key : TKey; const Code : TCode) : LongInt;
|
||||
procedure DecInvalidCountCode(const Key : TKey; var Code : TCode);
|
||||
|
||||
|
||||
function GetCodeType(const Key : TKey; const Code : TCode) : TCodeType;
|
||||
{-return the type of code}
|
||||
function GetExpirationDate(const Key : TKey; const Code : TCode) : TDateTime;
|
||||
{-return the date this code expires}
|
||||
|
||||
procedure InitDateCode(const Key : TKey; StartDate, EndDate : TDateTime; var Code : TCode);
|
||||
procedure InitDateCode(const Key : TKey; StartDate, EndDate : TDateTime; var Code : TCode; InvalidCount : Word=0);
|
||||
function IsDateCodeValid(const Key : TKey; const Code : TCode) : Boolean;
|
||||
function GetDateCodeValue(const Key : TKey; const Code : TCode) : TDateTime;
|
||||
function IsDateCodeExpired(const Key : TKey; const Code : TCode) : Boolean;
|
||||
|
||||
procedure InitDaysCode(const Key : TKey; Days : Word; Expires : TDateTime; var Code : TCode);
|
||||
procedure InitDaysCode(const Key : TKey; Days : Word; Expires : TDateTime; var Code : TCode; InvalidCount : Word=0);
|
||||
function IsDaysCodeValid(const Key : TKey; const Code : TCode) : Boolean;
|
||||
procedure DecDaysCode(const Key : TKey; var Code : TCode);
|
||||
function GetDaysCodeValue(const Key : TKey; const Code : TCode) : LongInt;
|
||||
function IsDaysCodeExpired(const Key : TKey; const Code : TCode) : Boolean;
|
||||
|
||||
|
||||
procedure InitRegCode(const Key : TKey; const RegStr : string; Expires : TDateTime; var Code : TCode);
|
||||
function IsRegCodeValid(const Key : TKey; const Code : TCode) : Boolean;
|
||||
function IsRegCodeExpired(const Key : TKey; const Code : TCode) : Boolean;
|
||||
@ -556,7 +572,7 @@ function IsSpecialCodeValid(const Key : TKey; const Code : TCode) : Boolean;
|
||||
function GetSpecialCodeValue(const Key : TKey; const Code : TCode) : LongInt;
|
||||
function IsSpecialCodeExpired(const Key : TKey; const Code : TCode) : Boolean;
|
||||
|
||||
procedure InitUsageCode(const Key : TKey; Count : Word; Expires : TDateTime; var Code : TCode);
|
||||
procedure InitUsageCode(const Key : TKey; Count : Word; Expires : TDateTime; var Code : TCode;InvalidCount : Word=0);
|
||||
function IsUsageCodeValid(const Key : TKey; const Code : TCode) : Boolean;
|
||||
procedure DecUsageCode(const Key : TKey; var Code : TCode);
|
||||
function GetUsageCodeValue(const Key : TKey; const Code : TCode) : LongInt;
|
||||
@ -593,9 +609,6 @@ const
|
||||
implementation
|
||||
{$IFNDEF IBO_CONSOLE}
|
||||
uses
|
||||
//{$IFDEF MSWINDOWS}
|
||||
// {$IFDEF VERSION3} ActiveX {$ELSE} OLE2 {$ENDIF} {!!.06}
|
||||
//{$ENDIF}
|
||||
{$IFNDEF NoMakeCodesSupport} qonguard2 {$ENDIF} {!!.10} {!!.10}
|
||||
{$IFNDEF NoMakeKeysSupport} , qonguard3 {$ENDIF} {!!.10} {!!.10}
|
||||
;
|
||||
@ -844,6 +857,8 @@ var
|
||||
Context : TTMDContext;
|
||||
UserInfoFound : Boolean; {!!.11}
|
||||
Buf : array [0..1023] of Byte;
|
||||
iController, iDrive, maxController : Integer;
|
||||
BufStr : AnsiString;
|
||||
begin
|
||||
InitTMD(Context);
|
||||
|
||||
@ -923,15 +938,15 @@ begin
|
||||
|
||||
if midDrives in MachineInfo then begin
|
||||
{include drive specific information}
|
||||
for Drive := 'C' to 'Z' do begin
|
||||
|
||||
if (GetDriveType(PAnsiChar(AnsiString(Drive + ':\'))) = DRIVE_FIXED) then begin
|
||||
FillChar(Buf, Sizeof(Buf), 0);
|
||||
Buf[0] := Byte(Drive);
|
||||
{!!.16} {removed cluster information}
|
||||
GetVolumeInformation(PAnsiChar(AnsiString(Drive + ':\')), nil, 0,
|
||||
PDWord(@Buf[1]){serial number}, I{not used}, I{not used}, nil, 0);
|
||||
UpdateTMD(Context, Buf, 5);
|
||||
maxController := 15;
|
||||
if Win32Platform<>VER_PLATFORM_WIN32_NT then maxController := 0;
|
||||
for iController := 0 to maxController do
|
||||
begin
|
||||
for iDrive := 0 to 4 do
|
||||
begin
|
||||
BufStr := '';
|
||||
if GetIdeDiskSerialNumber(iController,iDrive,BufStr) then
|
||||
if BufStr<>'' then UpdateTMD(Context, BufStr[1], 5);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
@ -1313,7 +1328,11 @@ begin
|
||||
if IsDateCodeExpired(Key, ACode) then
|
||||
Result := ogPastEndDate;
|
||||
end else
|
||||
begin
|
||||
Result := ogInvalidCode;
|
||||
if GetInvalidCountValue(Key,ACode)=1 then Result := ogCodeExpired;
|
||||
end;
|
||||
|
||||
|
||||
if Report then
|
||||
DoOnChecked(Result);
|
||||
@ -1333,6 +1352,20 @@ begin
|
||||
Result := GetDateCodeValue(Key, ACode);
|
||||
end;
|
||||
|
||||
function TOgDateCode.GetInvalidCount: LongInt;
|
||||
var
|
||||
ACode : TCode;
|
||||
Key : TKey;
|
||||
AModifier : LongInt;
|
||||
begin
|
||||
DoOnGetKey(Key);
|
||||
ACode := DoOnGetCode;
|
||||
AModifier := DoOnGetModifier;
|
||||
|
||||
ApplyModifierToKeyPrim(AModifier, Key, SizeOf(Key));
|
||||
Result := GetInvalidCountValue(Key, ACode);
|
||||
end;
|
||||
|
||||
|
||||
{*** TOgDaysCode ***}
|
||||
|
||||
@ -1356,7 +1389,12 @@ begin
|
||||
Result := ogCodeExpired;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
Result := ogInvalidCode;
|
||||
if GetInvalidCountValue(Key,ACode)=1 then Result := ogCodeExpired;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
if Report then
|
||||
DoOnChecked(Result);
|
||||
@ -1412,6 +1450,22 @@ begin
|
||||
Result := GetDaysCodeValue(Key, ACode);
|
||||
end;
|
||||
|
||||
|
||||
function TOgDaysCode.GetInvalidCount : LongInt;
|
||||
var
|
||||
ACode : TCode;
|
||||
Key : TKey;
|
||||
AModifier : LongInt;
|
||||
begin
|
||||
DoOnGetKey(Key);
|
||||
ACode := DoOnGetCode;
|
||||
AModifier := DoOnGetModifier;
|
||||
|
||||
ApplyModifierToKeyPrim(AModifier, Key, SizeOf(Key));
|
||||
Result := GetInvalidCountValue(Key, ACode);
|
||||
end;
|
||||
|
||||
|
||||
procedure TOgDaysCode.Loaded;
|
||||
begin
|
||||
inherited Loaded;
|
||||
@ -1726,7 +1780,12 @@ begin
|
||||
Result := ogCodeExpired;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
Result := ogInvalidCode;
|
||||
if GetInvalidCountValue(Key,ACode)=1 then Result := ogCodeExpired;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
if Report then
|
||||
DoOnChecked(Result);
|
||||
@ -1790,6 +1849,29 @@ end;
|
||||
|
||||
{$IFNDEF IBO_CONSOLE}
|
||||
{*** general routines ***}
|
||||
|
||||
procedure DecInvalidCountCode(const Key : TKey; var Code : TCode);
|
||||
begin
|
||||
MixBlock(T128bit(Key), Code, False);
|
||||
if Code.InvalidCount > 0 then Code.InvalidCount := Code.InvalidCount - 1;
|
||||
MixBlock(T128bit(Key), Code, True);
|
||||
end;
|
||||
|
||||
|
||||
function GetInvalidCountValue(const Key : TKey; const Code : TCode) : LongInt;
|
||||
var
|
||||
Work : TCode;
|
||||
begin
|
||||
Result := 0;
|
||||
if Code.CheckValue<>0 then
|
||||
begin
|
||||
Work := Code;
|
||||
MixBlock(T128bit(Key), Work, False);
|
||||
Result := Work.InvalidCount;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
function GetCodeType(const Key : TKey; const Code : TCode) : TCodeType;
|
||||
var
|
||||
Work : TCode;
|
||||
@ -1846,12 +1928,13 @@ end;
|
||||
{*** date code ***}
|
||||
|
||||
procedure InitDateCode(const Key : TKey;
|
||||
StartDate, EndDate : TDateTime; var Code : TCode);
|
||||
StartDate, EndDate : TDateTime; var Code : TCode;InvalidCount : Word=0);
|
||||
begin
|
||||
Code.CheckValue := DateCheckCode;
|
||||
Code.Expiration := 0; {not used for date codes}
|
||||
Code.FirstDate := ShrinkDate(StartDate);
|
||||
Code.EndDate := ShrinkDate(EndDate);
|
||||
Code.InvalidCount := InvalidCount;
|
||||
MixBlock(T128bit(Key), Code, True);
|
||||
end;
|
||||
|
||||
@ -1888,12 +1971,13 @@ end;
|
||||
{*** days code ***}
|
||||
|
||||
procedure InitDaysCode(const Key : TKey; Days : Word; Expires : TDateTime;
|
||||
var Code : TCode);
|
||||
var Code : TCode;InvalidCount : Word=0);
|
||||
begin
|
||||
Code.CheckValue := DaysCheckCode;
|
||||
Code.Expiration := ShrinkDate(Expires);
|
||||
Code.Days := Days;
|
||||
Code.LastAccess := ShrinkDate(Date);
|
||||
Code.InvalidCount := InvalidCount;
|
||||
MixBlock(T128bit(Key), Code, True);
|
||||
end;
|
||||
|
||||
@ -1911,6 +1995,7 @@ procedure DecDaysCode(const Key : TKey; var Code : TCode);
|
||||
var
|
||||
X : LongInt;
|
||||
begin
|
||||
if not IsDaysCodeValid(Key,Code) then DecInvalidCountCode(Key,Code);
|
||||
MixBlock(T128bit(Key), Code, False);
|
||||
X := ShrinkDate(Date);
|
||||
if (Code.LastAccess <> X) then begin
|
||||
@ -1934,6 +2019,8 @@ begin
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function IsDaysCodeExpired(const Key : TKey; const Code : TCode) : Boolean;
|
||||
var
|
||||
Work : TCode;
|
||||
@ -2065,12 +2152,13 @@ end;
|
||||
|
||||
{*** usage code ***}
|
||||
|
||||
procedure InitUsageCode(const Key : TKey; Count : Word; Expires : TDateTime; var Code : TCode);
|
||||
procedure InitUsageCode(const Key : TKey; Count : Word; Expires : TDateTime; var Code : TCode;InvalidCount : Word=0);
|
||||
begin
|
||||
Code.CheckValue := UsageCheckCode;
|
||||
Code.Expiration := ShrinkDate(Expires);
|
||||
Code.UsageCount := Count;
|
||||
Code.LastChange := ShrinkDate(Date); {!!.02}
|
||||
Code.InvalidCount := InvalidCount;
|
||||
MixBlock(T128bit(Key), Code, True);
|
||||
end;
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -46,21 +46,38 @@ uses
|
||||
ogutil,
|
||||
{$IFDEF MSWINDOWS} ShellAPI, {$ENDIF} {AH.01}
|
||||
ComponentEditors,
|
||||
PropEdits,
|
||||
LazarusPackageIntf,
|
||||
LResources;
|
||||
PropEdits;
|
||||
// LazarusPackageIntf;
|
||||
|
||||
|
||||
|
||||
|
||||
type
|
||||
|
||||
{ TOgAboutForm }
|
||||
|
||||
TOgAboutForm = class(TForm)
|
||||
l8: TLabel;
|
||||
Panel1: TPanel;
|
||||
Image1: TImage;
|
||||
lblVersion: TLabel;
|
||||
b0 : TBevel;
|
||||
l1 : TLabel;
|
||||
l2 : TLabel;
|
||||
l3 : TLabel;
|
||||
l4 : TLabel;
|
||||
l5 : TLabel;
|
||||
l6 : TLabel;
|
||||
l7 : TLabel;
|
||||
btnOK: TButton;
|
||||
WebLbl: TLabel;
|
||||
NewsLbl: TLabel;
|
||||
WebLbl1: TLabel;
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure WebLbl1Click(Sender: TObject);
|
||||
procedure WebLbl1MouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
procedure WebLblMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
procedure NewsLblMouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
@ -86,6 +103,8 @@ type
|
||||
end;
|
||||
|
||||
implementation
|
||||
uses
|
||||
LResources;
|
||||
|
||||
|
||||
|
||||
@ -123,6 +142,24 @@ begin
|
||||
lblVersion.Caption := 'Version ' + OgVersionStr;
|
||||
end;
|
||||
|
||||
procedure TOgAboutForm.WebLbl1Click(Sender: TObject);
|
||||
begin
|
||||
{$IFDEF MSWINDOWS}
|
||||
if ShellExecute(0, 'open', PChar('http://wiki.lazarus.freepascal.org/OnGuard'),
|
||||
'', '', SW_SHOWNORMAL) <= 32 then
|
||||
ShowMessage('Unable to start web browser');
|
||||
{$ELSE}
|
||||
ShowMessage('Unable to start web browser');
|
||||
{$ENDIF}
|
||||
WebLbl.Font.Color := clNavy;
|
||||
end;
|
||||
|
||||
procedure TOgAboutForm.WebLbl1MouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
begin
|
||||
WebLbl1.Font.Color := clRed;
|
||||
end;
|
||||
|
||||
procedure TOgAboutForm.WebLblMouseMove(Sender: TObject; Shift: TShiftState;
|
||||
X, Y: Integer);
|
||||
begin
|
||||
@ -146,6 +183,7 @@ procedure TOgAboutForm.FormMouseMove(Sender: TObject; Shift: TShiftState;
|
||||
begin
|
||||
WebLbl.Font.Color := clNavy;
|
||||
NewsLbl.Font.Color := clNavy;
|
||||
WebLbl1.Font.Color := clNavy;
|
||||
end;
|
||||
|
||||
procedure TOgAboutForm.WebLblClick(Sender: TObject);
|
||||
|
||||
@ -3,15 +3,16 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Height = 516
|
||||
Top = 84
|
||||
Width = 556
|
||||
HorzScrollBar.Page = 555
|
||||
VertScrollBar.Page = 515
|
||||
ActiveControl = OKBtn
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
Caption = 'Code Generation'
|
||||
ClientHeight = 516
|
||||
ClientWidth = 556
|
||||
Color = clForm
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.27'
|
||||
object OKBtn: TBitBtn
|
||||
Left = 384
|
||||
Height = 25
|
||||
@ -43,27 +44,27 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
OnChanging = CodesNbkChanging
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Date'
|
||||
ClientHeight = 104
|
||||
ClientWidth = 525
|
||||
object Label9: TLabel
|
||||
Left = 4
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 12
|
||||
Width = 64
|
||||
Width = 54
|
||||
Caption = 'Start date:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 204
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 12
|
||||
Width = 64
|
||||
Width = 48
|
||||
Caption = 'End date:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object StartDateEd: TEdit
|
||||
Left = 92
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 101
|
||||
OnChange = ParametersChanged
|
||||
@ -72,7 +73,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object EndDateEd: TEdit
|
||||
Left = 284
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 101
|
||||
OnChange = ParametersChanged
|
||||
@ -82,6 +83,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object TabSheet2: TTabSheet
|
||||
Caption = 'Days'
|
||||
ClientHeight = 104
|
||||
ClientWidth = 525
|
||||
ImageIndex = 1
|
||||
object Label13: TLabel
|
||||
Left = 4
|
||||
@ -89,7 +92,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Top = 12
|
||||
Width = 52
|
||||
Caption = 'Day count:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
@ -98,7 +100,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Top = 12
|
||||
Width = 37
|
||||
Caption = 'Expires:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object DaysCountEd: TEdit
|
||||
@ -123,6 +124,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object TabSheet3: TTabSheet
|
||||
Caption = 'Reg'
|
||||
ClientHeight = 104
|
||||
ClientWidth = 525
|
||||
ImageIndex = 2
|
||||
object RegStrCopySb: TSpeedButton
|
||||
Left = 490
|
||||
@ -149,20 +152,18 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 8
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 12
|
||||
Width = 30
|
||||
Width = 33
|
||||
Caption = 'String:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 292
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 48
|
||||
Width = 37
|
||||
Width = 40
|
||||
Caption = 'Expires:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object RegRandomBtn: TButton
|
||||
@ -177,14 +178,14 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object RegStrEd: TEdit
|
||||
Left = 68
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 413
|
||||
TabOrder = 0
|
||||
end
|
||||
object RegExpiresEd: TEdit
|
||||
Left = 357
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 44
|
||||
Width = 92
|
||||
OnChange = ParametersChanged
|
||||
@ -194,23 +195,23 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object TabSheet4: TTabSheet
|
||||
Caption = 'S/N'
|
||||
ClientHeight = 104
|
||||
ClientWidth = 525
|
||||
ImageIndex = 3
|
||||
object Label7: TLabel
|
||||
Left = 8
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 12
|
||||
Width = 69
|
||||
Width = 71
|
||||
Caption = '&Serial Number:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 268
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 12
|
||||
Width = 37
|
||||
Width = 40
|
||||
Caption = 'Expires:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object SerRandomBtn: TButton
|
||||
@ -220,11 +221,12 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Width = 145
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '&Random Number'
|
||||
OnClick = SerRandomBtnClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object SerialNumberEd: TEdit
|
||||
Left = 124
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 125
|
||||
OnChange = ParametersChanged
|
||||
@ -234,7 +236,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object SerialExpiresEd: TEdit
|
||||
Left = 336
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 97
|
||||
OnChange = ParametersChanged
|
||||
@ -244,6 +246,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object TabSheet5: TTabSheet
|
||||
Caption = 'Usage'
|
||||
ClientHeight = 104
|
||||
ClientWidth = 525
|
||||
ImageIndex = 4
|
||||
object Label14: TLabel
|
||||
Left = 4
|
||||
@ -251,7 +255,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Top = 12
|
||||
Width = 64
|
||||
Caption = 'Usage count:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label17: TLabel
|
||||
@ -260,7 +263,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Top = 12
|
||||
Width = 37
|
||||
Caption = 'Expires:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object UsageCountEd: TEdit
|
||||
@ -285,6 +287,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object TabSheet6: TTabSheet
|
||||
Caption = 'Network'
|
||||
ClientHeight = 104
|
||||
ClientWidth = 525
|
||||
ImageIndex = 5
|
||||
object Label10: TLabel
|
||||
Left = 4
|
||||
@ -292,7 +296,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Top = 12
|
||||
Width = 64
|
||||
Caption = 'Access Slots:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object NetworkSlotsEd: TEdit
|
||||
@ -308,6 +311,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object TabSheet7: TTabSheet
|
||||
Caption = 'Special'
|
||||
ClientHeight = 104
|
||||
ClientWidth = 525
|
||||
ImageIndex = 6
|
||||
object Label12: TLabel
|
||||
Left = 4
|
||||
@ -315,7 +320,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Top = 12
|
||||
Width = 62
|
||||
Caption = 'Special data:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label19: TLabel
|
||||
@ -324,7 +328,6 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Top = 12
|
||||
Width = 37
|
||||
Caption = 'Expires:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object SpecialDataEd: TEdit
|
||||
@ -354,6 +357,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Top = 136
|
||||
Width = 540
|
||||
Caption = '&Key used to encode'
|
||||
ClientHeight = 230
|
||||
ClientWidth = 536
|
||||
Color = clBtnFace
|
||||
ParentColor = False
|
||||
TabOrder = 3
|
||||
@ -382,27 +387,25 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 115
|
||||
Width = 40
|
||||
Width = 43
|
||||
Caption = 'Modifier:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 12
|
||||
Height = 13
|
||||
Height = 14
|
||||
Top = 172
|
||||
Width = 21
|
||||
Width = 23
|
||||
Caption = 'Key:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object NoModifierCb: TCheckBox
|
||||
Left = 16
|
||||
Height = 17
|
||||
Top = 24
|
||||
Width = 129
|
||||
Width = 72
|
||||
Caption = 'No modifier'
|
||||
Checked = True
|
||||
OnClick = ModifierClick
|
||||
@ -413,7 +416,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Left = 176
|
||||
Height = 17
|
||||
Top = 24
|
||||
Width = 153
|
||||
Width = 98
|
||||
Caption = 'Machine modifier'
|
||||
OnClick = ModifierClick
|
||||
TabOrder = 1
|
||||
@ -422,7 +425,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Left = 360
|
||||
Height = 17
|
||||
Top = 24
|
||||
Width = 145
|
||||
Width = 92
|
||||
Caption = 'Unique modifier'
|
||||
OnClick = ModifierClick
|
||||
TabOrder = 2
|
||||
@ -431,7 +434,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Left = 16
|
||||
Height = 17
|
||||
Top = 56
|
||||
Width = 129
|
||||
Width = 82
|
||||
Caption = 'Date modifier'
|
||||
OnClick = ModifierClick
|
||||
TabOrder = 3
|
||||
@ -440,14 +443,14 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Left = 16
|
||||
Height = 17
|
||||
Top = 88
|
||||
Width = 137
|
||||
Width = 87
|
||||
Caption = 'String Modifier'
|
||||
OnClick = ModifierClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object ModDateEd: TEdit
|
||||
Left = 159
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 53
|
||||
Width = 98
|
||||
OnChange = ModifierClick
|
||||
@ -456,7 +459,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object ModStringEd: TEdit
|
||||
Left = 160
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 85
|
||||
Width = 361
|
||||
OnChange = ModifierClick
|
||||
@ -464,7 +467,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object ModifierEd: TEdit
|
||||
Left = 8
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 140
|
||||
Width = 169
|
||||
OnChange = ParametersChanged
|
||||
@ -473,7 +476,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object BlockKeyEd: TEdit
|
||||
Left = 8
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 196
|
||||
Width = 481
|
||||
OnChange = InfoChanged
|
||||
@ -486,6 +489,8 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
Top = 384
|
||||
Width = 536
|
||||
Caption = 'Generate Code'
|
||||
ClientHeight = 51
|
||||
ClientWidth = 532
|
||||
TabOrder = 4
|
||||
object RegCodeCopySb: TSpeedButton
|
||||
Left = 502
|
||||
@ -524,7 +529,7 @@ object CodeGenerateFrm: TCodeGenerateFrm
|
||||
end
|
||||
object RegCodeEd: TEdit
|
||||
Left = 96
|
||||
Height = 21
|
||||
Height = 23
|
||||
Top = 26
|
||||
Width = 401
|
||||
OnChange = InfoChanged
|
||||
|
||||
@ -2,162 +2,164 @@
|
||||
|
||||
LazarusResources.Add('TCodeGenerateFrm','FORMDATA',[
|
||||
'TPF0'#16'TCodeGenerateFrm'#15'CodeGenerateFrm'#4'Left'#3#228#0#6'Height'#3#4
|
||||
+#2#3'Top'#2'T'#5'Width'#3','#2#18'HorzScrollBar.Page'#3'+'#2#18'VertScrollBa'
|
||||
+'r.Page'#3#3#2#13'ActiveControl'#7#5'OKBtn'#11'BorderIcons'#11#12'biSystemMe'
|
||||
+'nu'#10'biMinimize'#0#7'Caption'#6#15'Code Generation'#5'Color'#7#6'clForm'#8
|
||||
+'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScree'
|
||||
+'nCenter'#0#7'TBitBtn'#5'OKBtn'#4'Left'#3#128#1#6'Height'#2#25#3'Top'#3#216#1
|
||||
+#5'Width'#2'K'#7'Caption'#6#2'OK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'Tab'
|
||||
+'Order'#2#0#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#3#208#1#6'Height'#2#25#3'Top'
|
||||
+#3#216#1#5'Width'#2'K'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#9'NumGlyph'
|
||||
+'s'#2#0#8'TabOrder'#2#1#0#0#12'TPageControl'#8'CodesNbk'#4'Left'#2#4#6'Heigh'
|
||||
+'t'#3#130#0#3'Top'#2#4#5'Width'#3#21#2#10'ActivePage'#7#9'TabSheet1'#8'TabIn'
|
||||
+'dex'#2#0#8'TabOrder'#2#2#10'OnChanging'#7#16'CodesNbkChanging'#0#9'TTabShee'
|
||||
+'t'#9'TabSheet1'#7'Caption'#6#4'Date'#0#6'TLabel'#6'Label9'#4'Left'#2#4#6'He'
|
||||
+'ight'#2#13#3'Top'#2#12#5'Width'#2'@'#7'Caption'#6#11'Start date:'#5'Color'#7
|
||||
+#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'Label11'#4'Left'#3#204#0#6'Heig'
|
||||
+'ht'#2#13#3'Top'#2#12#5'Width'#2'@'#7'Caption'#6#9'End date:'#5'Color'#7#6'c'
|
||||
+'lNone'#11'ParentColor'#8#0#0#5'TEdit'#11'StartDateEd'#4'Left'#2'\'#6'Height'
|
||||
+#2#21#3'Top'#2#8#5'Width'#2'e'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyP'
|
||||
+'ress'#7#14'DateEdKeyPress'#8'TabOrder'#2#0#0#0#5'TEdit'#9'EndDateEd'#4'Left'
|
||||
+#3#28#1#6'Height'#2#21#3'Top'#2#8#5'Width'#2'e'#8'OnChange'#7#17'ParametersC'
|
||||
+'hanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabShe'
|
||||
+'et'#9'TabSheet2'#7'Caption'#6#4'Days'#10'ImageIndex'#2#1#0#6'TLabel'#7'Labe'
|
||||
+'l13'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'4'#7'Caption'#6#10'D'
|
||||
+'ay count:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4
|
||||
+'Left'#3#228#0#6'Height'#2#13#3'Top'#2#12#5'Width'#2'%'#7'Caption'#6#8'Expir'
|
||||
+'es:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#11'DaysCountEd'#4
|
||||
+'Left'#2'X'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnChange'#7#17'Paramet'
|
||||
+'ersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOrder'#2#0#4'Text'#6
|
||||
+#1'0'#0#0#5'TEdit'#13'DaysExpiresEd'#4'Left'#3'('#1#6'Height'#2#21#3'Top'#2#8
|
||||
+#5'Width'#2'a'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#14'DateE'
|
||||
+'dKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabSheet'#9'TabSheet3'#7'Caption'#6#3'R'
|
||||
+'eg'#10'ImageIndex'#2#2#0#12'TSpeedButton'#12'RegStrCopySb'#4'Left'#3#234#1#6
|
||||
+'Height'#2#23#4'Hint'#6#17'Copy to clipboard'#3'Top'#2#7#5'Width'#2#23#5'Col'
|
||||
+'or'#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'
|
||||
+#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0
|
||||
+#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0
|
||||
+#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255
|
||||
+#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136
|
||||
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'
|
||||
+#128#0#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0
|
||||
+#244#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0
|
||||
+#244#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#15
|
||||
+'DD'#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'
|
||||
+#136#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136
|
||||
+#128#0#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136
|
||||
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
|
||||
+#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#17'RegStrCopySbClick'#0#0#6
|
||||
+'TLabel'#6'Label6'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#12#5'Width'#2#30#7'Ca'
|
||||
+'ption'#6#7'String:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6
|
||||
+'Label4'#4'Left'#3'$'#1#6'Height'#2#13#3'Top'#2'0'#5'Width'#2'%'#7'Caption'#6
|
||||
+#8'Expires:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#12'RegRan'
|
||||
+'domBtn'#4'Left'#2'H'#6'Height'#2#25#3'Top'#2','#5'Width'#3#145#0#25'BorderS'
|
||||
+'pacing.InnerBorder'#2#4#7'Caption'#6#14'&Random Number'#7'OnClick'#7#17'Reg'
|
||||
+'RandomBtnClick'#8'TabOrder'#2#1#0#0#5'TEdit'#8'RegStrEd'#4'Left'#2'D'#6'Hei'
|
||||
+'ght'#2#21#3'Top'#2#8#5'Width'#3#157#1#8'TabOrder'#2#0#0#0#5'TEdit'#12'RegEx'
|
||||
+'piresEd'#4'Left'#3'e'#1#6'Height'#2#21#3'Top'#2','#5'Width'#2'\'#8'OnChange'
|
||||
+#7#17'ParametersChanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#2
|
||||
+#0#0#0#9'TTabSheet'#9'TabSheet4'#7'Caption'#6#3'S/N'#10'ImageIndex'#2#3#0#6
|
||||
+'TLabel'#6'Label7'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#12#5'Width'#2'E'#7'Ca'
|
||||
+'ption'#6#15'&Serial Number:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T'
|
||||
+'Label'#7'Label15'#4'Left'#3#12#1#6'Height'#2#13#3'Top'#2#12#5'Width'#2'%'#7
|
||||
+'Caption'#6#8'Expires:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'
|
||||
+#12'SerRandomBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2','#5'Width'#3#145#0#25
|
||||
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#14'&Random Number'#8'TabOrder'#2
|
||||
,#2#0#0#5'TEdit'#14'SerialNumberEd'#4'Left'#2'|'#6'Height'#2#21#3'Top'#2#8#5
|
||||
+'Width'#2'}'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#16'NumberK'
|
||||
+'eyEdPress'#8'TabOrder'#2#0#4'Text'#6#1'0'#0#0#5'TEdit'#15'SerialExpiresEd'#4
|
||||
+'Left'#3'P'#1#6'Height'#2#21#3'Top'#2#8#5'Width'#2'a'#8'OnChange'#7#17'Param'
|
||||
+'etersChanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#9'T'
|
||||
+'TabSheet'#9'TabSheet5'#7'Caption'#6#5'Usage'#10'ImageIndex'#2#4#0#6'TLabel'
|
||||
+#7'Label14'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'@'#7'Caption'#6
|
||||
+#12'Usage count:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'Lab'
|
||||
+'el17'#4'Left'#3#12#1#6'Height'#2#13#3'Top'#2#12#5'Width'#2'%'#7'Caption'#6#8
|
||||
+'Expires:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#12'UsageCount'
|
||||
+'Ed'#4'Left'#2'l'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnChange'#7#17'P'
|
||||
+'arametersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOrder'#2#0#4'T'
|
||||
+'ext'#6#1'0'#0#0#5'TEdit'#14'UsageExpiresEd'#4'Left'#3'P'#1#6'Height'#2#21#3
|
||||
+'Top'#2#8#5'Width'#2'a'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7
|
||||
+#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabSheet'#9'TabSheet6'#7'Captio'
|
||||
+'n'#6#7'Network'#10'ImageIndex'#2#5#0#6'TLabel'#7'Label10'#4'Left'#2#4#6'Hei'
|
||||
+'ght'#2#13#3'Top'#2#12#5'Width'#2'@'#7'Caption'#6#13'Access Slots:'#5'Color'
|
||||
+#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#14'NetworkSlotsEd'#4'Left'#2't'#6
|
||||
+'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnChange'#7#17'ParametersChanged'#10
|
||||
+'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOrder'#2#0#4'Text'#6#1'2'#0#0#0#9'T'
|
||||
+'TabSheet'#9'TabSheet7'#7'Caption'#6#7'Special'#10'ImageIndex'#2#6#0#6'TLabe'
|
||||
+'l'#7'Label12'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'>'#7'Captio'
|
||||
+'n'#6#13'Special data:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'
|
||||
+#7'Label19'#4'Left'#3#252#0#6'Height'#2#13#3'Top'#2#12#5'Width'#2'%'#7'Capti'
|
||||
+'on'#6#8'Expires:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#13'Sp'
|
||||
+'ecialDataEd'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2#8#5'Width'#3#129#0#8'OnCh'
|
||||
+#2#3'Top'#2'T'#5'Width'#3','#2#13'ActiveControl'#7#5'OKBtn'#11'BorderIcons'
|
||||
+#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#15'Code Generation'#12'Cl'
|
||||
+'ientHeight'#3#4#2#11'ClientWidth'#3','#2#5'Color'#7#6'clForm'#8'OnCreate'#7
|
||||
+#10'FormCreate'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#10
|
||||
+'LCLVersion'#6#6'0.9.27'#0#7'TBitBtn'#5'OKBtn'#4'Left'#3#128#1#6'Height'#2#25
|
||||
+#3'Top'#3#216#1#5'Width'#2'K'#7'Caption'#6#2'OK'#11'ModalResult'#2#1#9'NumGl'
|
||||
+'yphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#3#208#1#6'Hei'
|
||||
+'ght'#2#25#3'Top'#3#216#1#5'Width'#2'K'#7'Caption'#6#6'Cancel'#11'ModalResul'
|
||||
+'t'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#12'TPageControl'#8'CodesNbk'#4
|
||||
+'Left'#2#4#6'Height'#3#130#0#3'Top'#2#4#5'Width'#3#21#2#10'ActivePage'#7#9'T'
|
||||
+'abSheet1'#8'TabIndex'#2#0#8'TabOrder'#2#2#10'OnChanging'#7#16'CodesNbkChang'
|
||||
+'ing'#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#4'Date'#12'ClientHeight'#2'h'
|
||||
+#11'ClientWidth'#3#13#2#0#6'TLabel'#6'Label9'#4'Left'#2#4#6'Height'#2#14#3'T'
|
||||
+'op'#2#12#5'Width'#2'6'#7'Caption'#6#11'Start date:'#11'ParentColor'#8#0#0#6
|
||||
+'TLabel'#7'Label11'#4'Left'#3#204#0#6'Height'#2#14#3'Top'#2#12#5'Width'#2'0'
|
||||
+#7'Caption'#6#9'End date:'#11'ParentColor'#8#0#0#5'TEdit'#11'StartDateEd'#4
|
||||
+'Left'#2'\'#6'Height'#2#23#3'Top'#2#8#5'Width'#2'e'#8'OnChange'#7#17'Paramet'
|
||||
+'ersChanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#0#0#0#5'TEdit'
|
||||
+#9'EndDateEd'#4'Left'#3#28#1#6'Height'#2#23#3'Top'#2#8#5'Width'#2'e'#8'OnCha'
|
||||
+'nge'#7#17'ParametersChanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'
|
||||
+#2#1#0#0#0#9'TTabSheet'#9'TabSheet2'#7'Caption'#6#4'Days'#12'ClientHeight'#2
|
||||
+'h'#11'ClientWidth'#3#13#2#10'ImageIndex'#2#1#0#6'TLabel'#7'Label13'#4'Left'
|
||||
+#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'4'#7'Caption'#6#10'Day count:'#11
|
||||
+'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3#228#0#6'Height'#2#13#3'Top'
|
||||
+#2#12#5'Width'#2'%'#7'Caption'#6#8'Expires:'#11'ParentColor'#8#0#0#5'TEdit'
|
||||
+#11'DaysCountEd'#4'Left'#2'X'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnCh'
|
||||
+'ange'#7#17'ParametersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOr'
|
||||
+'der'#2#0#4'Text'#6#1'0'#0#0#5'TEdit'#16'SpecialExpiresEd'#4'Left'#3'@'#1#6
|
||||
+'Height'#2#21#3'Top'#2#8#5'Width'#2'i'#8'OnChange'#7#17'ParametersChanged'#10
|
||||
+'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#0#9'TGroupBox'#9'Gro'
|
||||
+'upBox1'#4'Left'#2#4#6'Height'#3#248#0#3'Top'#3#136#0#5'Width'#3#28#2#7'Capt'
|
||||
+'ion'#6#19'&Key used to encode'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8
|
||||
+'TabOrder'#2#3#0#12'TSpeedButton'#13'GenerateKeySb'#4'Left'#3#242#1#6'Height'
|
||||
+#2#23#4'Hint'#6#12'Generate key'#3'Top'#3#195#0#5'Width'#2#23#5'Color'#7#9'c'
|
||||
+'lBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('
|
||||
+#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||
+#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128
|
||||
+#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0
|
||||
+#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0
|
||||
+'der'#2#0#4'Text'#6#1'0'#0#0#5'TEdit'#13'DaysExpiresEd'#4'Left'#3'('#1#6'Hei'
|
||||
+'ght'#2#21#3'Top'#2#8#5'Width'#2'a'#8'OnChange'#7#17'ParametersChanged'#10'O'
|
||||
+'nKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabSheet'#9'TabShe'
|
||||
+'et3'#7'Caption'#6#3'Reg'#12'ClientHeight'#2'h'#11'ClientWidth'#3#13#2#10'Im'
|
||||
+'ageIndex'#2#2#0#12'TSpeedButton'#12'RegStrCopySb'#4'Left'#3#234#1#6'Height'
|
||||
+#2#23#4'Hint'#6#17'Copy to clipboard'#3'Top'#2#7#5'Width'#2#23#5'Color'#7#9
|
||||
+'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0
|
||||
+'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||
+#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128
|
||||
+#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0
|
||||
+#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128
|
||||
+#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0
|
||||
+#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132#240#0#0#244
|
||||
+#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#0#0#244
|
||||
+#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244#240#15'DD'
|
||||
+#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255#255'D'#136
|
||||
+#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136#136#136#128#0
|
||||
+#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0
|
||||
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
|
||||
+#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
|
||||
+#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#128#0#0#136
|
||||
+#8#136#128#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0
|
||||
+#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#17'RegStrCopySbClick'#0#0#6'TLa'
|
||||
+'bel'#6'Label6'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#12#5'Width'#2'!'#7'Capti'
|
||||
+'on'#6#7'String:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3'$'#1#6
|
||||
+'Height'#2#14#3'Top'#2'0'#5'Width'#2'('#7'Caption'#6#8'Expires:'#11'ParentCo'
|
||||
+'lor'#8#0#0#7'TButton'#12'RegRandomBtn'#4'Left'#2'H'#6'Height'#2#25#3'Top'#2
|
||||
+','#5'Width'#3#145#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#14'&Rand'
|
||||
+'om Number'#7'OnClick'#7#17'RegRandomBtnClick'#8'TabOrder'#2#1#0#0#5'TEdit'#8
|
||||
+'RegStrEd'#4'Left'#2'D'#6'Height'#2#23#3'Top'#2#8#5'Width'#3#157#1#8'TabOrde'
|
||||
+'r'#2#0#0#0#5'TEdit'#12'RegExpiresEd'#4'Left'#3'e'#1#6'Height'#2#23#3'Top'#2
|
||||
+','#5'Width'#2'\'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#14'Da'
|
||||
+'teEdKeyPress'#8'TabOrder'#2#2#0#0#0#9'TTabSheet'#9'TabSheet4'#7'Caption'#6#3
|
||||
+'S/N'#12'ClientHeight'#2'h'#11'ClientWidth'#3#13#2#10'ImageIndex'#2#3#0#6'TL'
|
||||
+'abel'#6'Label7'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#12#5'Width'#2'G'#7'Capt'
|
||||
+'ion'#6#15'&Serial Number:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label15'#4'Lef'
|
||||
+'t'#3#12#1#6'Height'#2#14#3'Top'#2#12#5'Width'#2'('#7'Caption'#6#8'Expires:'
|
||||
+#11'ParentColor'#8#0#0#7'TButton'#12'SerRandomBtn'#4'Left'#2#8#6'Height'#2#25
|
||||
+#3'Top'#2','#5'Width'#3#145#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
|
||||
,#14'&Random Number'#7'OnClick'#7#17'SerRandomBtnClick'#8'TabOrder'#2#2#0#0#5
|
||||
+'TEdit'#14'SerialNumberEd'#4'Left'#2'|'#6'Height'#2#23#3'Top'#2#8#5'Width'#2
|
||||
+'}'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'
|
||||
+#8'TabOrder'#2#0#4'Text'#6#1'0'#0#0#5'TEdit'#15'SerialExpiresEd'#4'Left'#3'P'
|
||||
+#1#6'Height'#2#23#3'Top'#2#8#5'Width'#2'a'#8'OnChange'#7#17'ParametersChange'
|
||||
+'d'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabSheet'#9
|
||||
+'TabSheet5'#7'Caption'#6#5'Usage'#12'ClientHeight'#2'h'#11'ClientWidth'#3#13
|
||||
+#2#10'ImageIndex'#2#4#0#6'TLabel'#7'Label14'#4'Left'#2#4#6'Height'#2#13#3'To'
|
||||
+'p'#2#12#5'Width'#2'@'#7'Caption'#6#12'Usage count:'#11'ParentColor'#8#0#0#6
|
||||
+'TLabel'#7'Label17'#4'Left'#3#12#1#6'Height'#2#13#3'Top'#2#12#5'Width'#2'%'#7
|
||||
+'Caption'#6#8'Expires:'#11'ParentColor'#8#0#0#5'TEdit'#12'UsageCountEd'#4'Le'
|
||||
+'ft'#2'l'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnChange'#7#17'Parameter'
|
||||
+'sChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOrder'#2#0#4'Text'#6#1
|
||||
+'0'#0#0#5'TEdit'#14'UsageExpiresEd'#4'Left'#3'P'#1#6'Height'#2#21#3'Top'#2#8
|
||||
+#5'Width'#2'a'#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#14'DateE'
|
||||
+'dKeyPress'#8'TabOrder'#2#1#0#0#0#9'TTabSheet'#9'TabSheet6'#7'Caption'#6#7'N'
|
||||
+'etwork'#12'ClientHeight'#2'h'#11'ClientWidth'#3#13#2#10'ImageIndex'#2#5#0#6
|
||||
+'TLabel'#7'Label10'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'@'#7'C'
|
||||
+'aption'#6#13'Access Slots:'#11'ParentColor'#8#0#0#5'TEdit'#14'NetworkSlotsE'
|
||||
+'d'#4'Left'#2't'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'q'#8'OnChange'#7#17'Pa'
|
||||
+'rametersChanged'#10'OnKeyPress'#7#16'NumberKeyEdPress'#8'TabOrder'#2#0#4'Te'
|
||||
+'xt'#6#1'2'#0#0#0#9'TTabSheet'#9'TabSheet7'#7'Caption'#6#7'Special'#12'Clien'
|
||||
+'tHeight'#2'h'#11'ClientWidth'#3#13#2#10'ImageIndex'#2#6#0#6'TLabel'#7'Label'
|
||||
+'12'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#12#5'Width'#2'>'#7'Caption'#6#13'Sp'
|
||||
+'ecial data:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label19'#4'Left'#3#252#0#6'H'
|
||||
+'eight'#2#13#3'Top'#2#12#5'Width'#2'%'#7'Caption'#6#8'Expires:'#11'ParentCol'
|
||||
+'or'#8#0#0#5'TEdit'#13'SpecialDataEd'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2#8
|
||||
+#5'Width'#3#129#0#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#16'Nu'
|
||||
+'mberKeyEdPress'#8'TabOrder'#2#0#4'Text'#6#1'0'#0#0#5'TEdit'#16'SpecialExpir'
|
||||
+'esEd'#4'Left'#3'@'#1#6'Height'#2#21#3'Top'#2#8#5'Width'#2'i'#8'OnChange'#7
|
||||
+#17'ParametersChanged'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#1#0
|
||||
+#0#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#4#6'Height'#3#248#0#3'Top'#3#136#0
|
||||
+#5'Width'#3#28#2#7'Caption'#6#19'&Key used to encode'#12'ClientHeight'#3#230
|
||||
+#0#11'ClientWidth'#3#24#2#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'TabOrd'
|
||||
+'er'#2#3#0#12'TSpeedButton'#13'GenerateKeySb'#4'Left'#3#242#1#6'Height'#2#23
|
||||
+#4'Hint'#6#12'Generate key'#3'Top'#3#195#0#5'Width'#2#23#5'Color'#7#9'clBtnF'
|
||||
+'ace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0
|
||||
+#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
|
||||
+#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0
|
||||
+#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0
|
||||
+#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0
|
||||
+#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136
|
||||
+#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
|
||||
+#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#128#0#0#136#8
|
||||
+#136#128#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0
|
||||
+#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#152#144#8#136#136#136#128#0
|
||||
+#0#0#136#128#0#0#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0
|
||||
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
|
||||
+#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
|
||||
+#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#18'GenerateKeySbClick'#0
|
||||
+#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#13#3'Top'#2's'#5'Width'#2'('#7
|
||||
+'Caption'#6#9'Modifier:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'
|
||||
+#6'Label5'#4'Left'#2#12#6'Height'#2#13#3'Top'#3#172#0#5'Width'#2#21#7'Captio'
|
||||
+'n'#6#4'Key:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#9'TCheckBox'#12'NoM'
|
||||
+'odifierCb'#4'Left'#2#16#6'Height'#2#17#3'Top'#2#24#5'Width'#3#129#0#7'Capti'
|
||||
+'on'#6#11'No modifier'#7'Checked'#9#7'OnClick'#7#13'ModifierClick'#5'State'#7
|
||||
+#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCheckBox'#17'MachineModifierCb'#4'Left'
|
||||
+#3#176#0#6'Height'#2#17#3'Top'#2#24#5'Width'#3#153#0#7'Caption'#6#16'Machine'
|
||||
+' modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#1#0#0#9'TCheckBox'
|
||||
+#16'UniqueModifierCb'#4'Left'#3'h'#1#6'Height'#2#17#3'Top'#2#24#5'Width'#3
|
||||
+#145#0#7'Caption'#6#15'Unique modifier'#7'OnClick'#7#13'ModifierClick'#8'Tab'
|
||||
+'Order'#2#2#0#0#9'TCheckBox'#14'DateModifierCb'#4'Left'#2#16#6'Height'#2#17#3
|
||||
+'Top'#2'8'#5'Width'#3#129#0#7'Caption'#6#13'Date modifier'#7'OnClick'#7#13'M'
|
||||
+'odifierClick'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'StringModifierCb'#4'Left'
|
||||
+#2#16#6'Height'#2#17#3'Top'#2'X'#5'Width'#3#137#0#7'Caption'#6#15'String Mod'
|
||||
+'ifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModDat'
|
||||
,'eEd'#4'Left'#3#159#0#6'Height'#2#21#3'Top'#2'5'#5'Width'#2'b'#8'OnChange'#7
|
||||
+#13'ModifierClick'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#6#0#0#5
|
||||
+'TEdit'#11'ModStringEd'#4'Left'#3#160#0#6'Height'#2#21#3'Top'#2'U'#5'Width'#3
|
||||
+'i'#1#8'OnChange'#7#13'ModifierClick'#8'TabOrder'#2#8#0#0#5'TEdit'#10'Modifi'
|
||||
+'erEd'#4'Left'#2#8#6'Height'#2#21#3'Top'#3#140#0#5'Width'#3#169#0#8'OnChange'
|
||||
+#7#17'ParametersChanged'#10'OnKeyPress'#7#18'ModifierEdKeyPress'#8'TabOrder'
|
||||
+#2#5#0#0#5'TEdit'#10'BlockKeyEd'#4'Left'#2#8#6'Height'#2#21#3'Top'#3#196#0#5
|
||||
+'Width'#3#225#1#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#7#0#0#0#9'TGroup'
|
||||
+'Box'#9'GroupBox2'#4'Left'#2#8#6'Height'#2'E'#3'Top'#3#128#1#5'Width'#3#24#2
|
||||
+#7'Caption'#6#13'Generate Code'#8'TabOrder'#2#4#0#12'TSpeedButton'#13'RegCod'
|
||||
+'eCopySb'#4'Left'#3#246#1#6'Height'#2#23#4'Hint'#6#22'Copy code to clipboard'
|
||||
+#3'Top'#2#25#5'Width'#2#23#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0
|
||||
+'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0
|
||||
+#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0
|
||||
+#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0
|
||||
+#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0
|
||||
+#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136
|
||||
+#128#0#0#0#136#136#136#132'DDDD'#128#0#0#0#136#136#136#132#255#255#255#244
|
||||
+#128#0#0#0#136#136#136#132#240#0#0#244#128#0#0#0#128#0#0#4#255#255#255#244
|
||||
+#128#0#0#0#128#255#255#244#240#0#0#244#128#0#0#0#128#240#0#4#255#255#255#244
|
||||
+#128#0#0#0#128#255#255#244#240#15'DD'#128#0#0#0#128#240#0#4#255#255'OH'#128#0
|
||||
+#0#0#128#255#255#244#255#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0
|
||||
+#128#255#255#15#8#136#136#136#128#0#0#0#128#255#255#0#136#136#136#136#128#0#0
|
||||
+#0#128#0#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0
|
||||
+#0#0#136#136#136#136#136#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7
|
||||
+#18'RegCodeCopySbClick'#0#0#7'TButton'#11'GenerateBtn'#4'Left'#2#8#6'Height'
|
||||
+#2#25#4'Hint'#6#13'Generate code'#3'Top'#2#24#5'Width'#2'M'#25'BorderSpacing'
|
||||
+'.InnerBorder'#2#4#7'Caption'#6#9'&Generate'#7'Default'#9#7'OnClick'#7#16'Ge'
|
||||
+'nerateBtnClick'#8'TabOrder'#2#0#0#0#5'TEdit'#9'RegCodeEd'#4'Left'#2'`'#6'He'
|
||||
+'ight'#2#21#3'Top'#2#26#5'Width'#3#145#1#8'OnChange'#7#11'InfoChanged'#8'Tab'
|
||||
+'Order'#2#1#0#0#0#0
|
||||
+#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2's'#5'Width'#2'+'#7
|
||||
+'Caption'#6#9'Modifier:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2
|
||||
+#12#6'Height'#2#14#3'Top'#3#172#0#5'Width'#2#23#7'Caption'#6#4'Key:'#11'Pare'
|
||||
+'ntColor'#8#0#0#9'TCheckBox'#12'NoModifierCb'#4'Left'#2#16#6'Height'#2#17#3
|
||||
+'Top'#2#24#5'Width'#2'H'#7'Caption'#6#11'No modifier'#7'Checked'#9#7'OnClick'
|
||||
+#7#13'ModifierClick'#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCheckBox'
|
||||
+#17'MachineModifierCb'#4'Left'#3#176#0#6'Height'#2#17#3'Top'#2#24#5'Width'#2
|
||||
+'b'#7'Caption'#6#16'Machine modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOr'
|
||||
+'der'#2#1#0#0#9'TCheckBox'#16'UniqueModifierCb'#4'Left'#3'h'#1#6'Height'#2#17
|
||||
+#3'Top'#2#24#5'Width'#2'\'#7'Caption'#6#15'Unique modifier'#7'OnClick'#7#13
|
||||
+'ModifierClick'#8'TabOrder'#2#2#0#0#9'TCheckBox'#14'DateModifierCb'#4'Left'#2
|
||||
+#16#6'Height'#2#17#3'Top'#2'8'#5'Width'#2'R'#7'Caption'#6#13'Date modifier'#7
|
||||
+'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'StringModi'
|
||||
+'fierCb'#4'Left'#2#16#6'Height'#2#17#3'Top'#2'X'#5'Width'#2'W'#7'Caption'#6
|
||||
,#15'String Modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#4#0#0#5'TE'
|
||||
+'dit'#9'ModDateEd'#4'Left'#3#159#0#6'Height'#2#23#3'Top'#2'5'#5'Width'#2'b'#8
|
||||
+'OnChange'#7#13'ModifierClick'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrde'
|
||||
+'r'#2#6#0#0#5'TEdit'#11'ModStringEd'#4'Left'#3#160#0#6'Height'#2#23#3'Top'#2
|
||||
+'U'#5'Width'#3'i'#1#8'OnChange'#7#13'ModifierClick'#8'TabOrder'#2#8#0#0#5'TE'
|
||||
+'dit'#10'ModifierEd'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#140#0#5'Width'#3#169
|
||||
+#0#8'OnChange'#7#17'ParametersChanged'#10'OnKeyPress'#7#18'ModifierEdKeyPres'
|
||||
+'s'#8'TabOrder'#2#5#0#0#5'TEdit'#10'BlockKeyEd'#4'Left'#2#8#6'Height'#2#23#3
|
||||
+'Top'#3#196#0#5'Width'#3#225#1#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#7
|
||||
+#0#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#2#8#6'Height'#2'E'#3'Top'#3#128#1#5
|
||||
+'Width'#3#24#2#7'Caption'#6#13'Generate Code'#12'ClientHeight'#2'3'#11'Clien'
|
||||
+'tWidth'#3#20#2#8'TabOrder'#2#4#0#12'TSpeedButton'#13'RegCodeCopySb'#4'Left'
|
||||
+#3#246#1#6'Height'#2#23#4'Hint'#6#22'Copy code to clipboard'#3'Top'#2#25#5'W'
|
||||
+'idth'#2#23#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'
|
||||
+#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0
|
||||
+#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128
|
||||
+#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0
|
||||
+#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136
|
||||
+#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136
|
||||
+#136#136#132'DDDD'#128#0#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136
|
||||
+#136#136#132#240#0#0#244#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128
|
||||
+#255#255#244#240#0#0#244#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128
|
||||
+#255#255#244#240#15'DD'#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255
|
||||
+#255#244#255#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255
|
||||
+#15#8#136#136#136#128#0#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8
|
||||
+#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136
|
||||
+#136#136#136#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#18'RegCodeC'
|
||||
+'opySbClick'#0#0#7'TButton'#11'GenerateBtn'#4'Left'#2#8#6'Height'#2#25#4'Hin'
|
||||
+'t'#6#13'Generate code'#3'Top'#2#24#5'Width'#2'M'#25'BorderSpacing.InnerBord'
|
||||
+'er'#2#4#7'Caption'#6#9'&Generate'#7'Default'#9#7'OnClick'#7#16'GenerateBtnC'
|
||||
+'lick'#8'TabOrder'#2#0#0#0#5'TEdit'#9'RegCodeEd'#4'Left'#2'`'#6'Height'#2#23
|
||||
+#3'Top'#2#26#5'Width'#3#145#1#8'OnChange'#7#11'InfoChanged'#8'TabOrder'#2#1#0
|
||||
+#0#0#0
|
||||
]);
|
||||
|
||||
@ -70,6 +70,9 @@ const
|
||||
*)
|
||||
|
||||
type
|
||||
|
||||
{ TCodeGenerateFrm }
|
||||
|
||||
TCodeGenerateFrm = class(TForm)
|
||||
OKBtn: TBitBtn;
|
||||
CancelBtn: TBitBtn;
|
||||
@ -142,6 +145,7 @@ type
|
||||
procedure RegRandomBtnClick(Sender: TObject);
|
||||
procedure CodesNbkChanging(Sender: TObject;
|
||||
var AllowChange: Boolean);
|
||||
procedure SerRandomBtnClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
FCode : TCode;
|
||||
@ -565,6 +569,18 @@ begin
|
||||
ModifierEd.Text := '';
|
||||
end;
|
||||
|
||||
procedure TCodeGenerateFrm.SerRandomBtnClick(Sender: TObject);
|
||||
var
|
||||
I : Integer;
|
||||
L : LongInt;
|
||||
Bytes : array[0..3] of Byte absolute L;
|
||||
begin
|
||||
Randomize;
|
||||
for I := 0 to 3 do
|
||||
Bytes[I] := Random(256);
|
||||
SerialNumberEd.Text := IntToHex(L, 8);
|
||||
end;
|
||||
|
||||
procedure TCodeGenerateFrm.GetKey(var Value : TKey);
|
||||
begin
|
||||
Value := FKey;
|
||||
|
||||
@ -1,4 +1,8 @@
|
||||
object ModifierFrm: TModifierFrm
|
||||
Left = 295
|
||||
Height = 145
|
||||
Top = 224
|
||||
Width = 433
|
||||
ActiveControl = NoModifierCb
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
Caption = 'Generate Modifier'
|
||||
@ -9,103 +13,94 @@ object ModifierFrm: TModifierFrm
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Pitch = fpVariable
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 83
|
||||
Position = poScreenCenter
|
||||
TextHeight = 18
|
||||
HorzScrollBar.Page = 432
|
||||
HorzScrollBar.Range = 333
|
||||
VertScrollBar.Page = 144
|
||||
VertScrollBar.Range = 75
|
||||
Left = 295
|
||||
Height = 145
|
||||
Top = 224
|
||||
Width = 433
|
||||
LCLVersion = '0.9.27'
|
||||
object OKBtn: TBitBtn
|
||||
Left = 285
|
||||
Height = 26
|
||||
Top = 104
|
||||
Width = 57
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
NumGlyphs = 0
|
||||
TabOrder = 1
|
||||
Left = 285
|
||||
Height = 26
|
||||
Top = 104
|
||||
Width = 57
|
||||
end
|
||||
object CancelBtn: TBitBtn
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 2
|
||||
Left = 344
|
||||
Height = 24
|
||||
Top = 104
|
||||
Width = 62
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 2
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Caption = '&Modifiers'
|
||||
ClientHeight = 73
|
||||
ClientWidth = 402
|
||||
TabOrder = 0
|
||||
Left = 3
|
||||
Height = 90
|
||||
Top = 6
|
||||
Width = 406
|
||||
Caption = '&Modifiers'
|
||||
ClientHeight = 72
|
||||
ClientWidth = 402
|
||||
TabOrder = 0
|
||||
object UniqueModifierCb: TCheckBox
|
||||
Left = 133
|
||||
Height = 17
|
||||
Top = 37
|
||||
Width = 91
|
||||
Caption = 'Unique modifier'
|
||||
OnClick = ModifierClick
|
||||
TabOrder = 3
|
||||
Left = 133
|
||||
Height = 20
|
||||
Top = 37
|
||||
Width = 119
|
||||
end
|
||||
object MachineModifierCb: TCheckBox
|
||||
Left = 133
|
||||
Height = 17
|
||||
Top = 20
|
||||
Width = 98
|
||||
Caption = 'Machine modifier'
|
||||
OnClick = ModifierClick
|
||||
TabOrder = 1
|
||||
Left = 133
|
||||
Height = 20
|
||||
Top = 20
|
||||
Width = 129
|
||||
end
|
||||
object DateModifierCb: TCheckBox
|
||||
Left = 267
|
||||
Height = 17
|
||||
Top = 18
|
||||
Width = 80
|
||||
Caption = 'Date modifier'
|
||||
OnClick = ModifierClick
|
||||
TabOrder = 2
|
||||
Left = 267
|
||||
Height = 20
|
||||
Top = 20
|
||||
Width = 106
|
||||
end
|
||||
object NoModifierCb: TCheckBox
|
||||
Left = 11
|
||||
Height = 17
|
||||
Top = 18
|
||||
Width = 71
|
||||
Caption = 'No modifier'
|
||||
OnClick = ModifierClick
|
||||
TabOrder = 0
|
||||
Left = 11
|
||||
Height = 12
|
||||
Top = 20
|
||||
Width = 101
|
||||
end
|
||||
object ModifierEd: TEdit
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 34
|
||||
Width = 104
|
||||
OnChange = InfoChanged
|
||||
OnKeyPress = ModifierEdKeyPress
|
||||
TabOrder = 4
|
||||
Left = 12
|
||||
Height = 26
|
||||
Top = 34
|
||||
Width = 104
|
||||
end
|
||||
object ModDateEd: TEdit
|
||||
Left = 267
|
||||
Height = 23
|
||||
Hint = 'Code is invalid after this date'
|
||||
Top = 35
|
||||
Width = 120
|
||||
Enabled = False
|
||||
MaxLength = 10
|
||||
OnChange = ModifierClick
|
||||
OnKeyPress = DateEdKeyPress
|
||||
TabOrder = 5
|
||||
Left = 267
|
||||
Height = 22
|
||||
Hint = 'Code is invalid after this date'
|
||||
Top = 35
|
||||
Width = 120
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,34 +1,32 @@
|
||||
{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
|
||||
|
||||
LazarusResources.Add('TModifierFrm','FORMDATA',[
|
||||
'TPF0'#12'TModifierFrm'#11'ModifierFrm'#13'ActiveControl'#7#12'NoModifierCb'
|
||||
+#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#17'Genera'
|
||||
+'te Modifier'#12'ClientHeight'#3#145#0#11'ClientWidth'#3#177#1#10'Font.Color'
|
||||
+#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.P'
|
||||
+'itch'#7#10'fpVariable'#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'S'#8
|
||||
+'Position'#7#14'poScreenCenter'#10'TextHeight'#2#18#18'HorzScrollBar.Page'#3
|
||||
+#176#1#19'HorzScrollBar.Range'#3'M'#1#18'VertScrollBar.Page'#3#144#0#19'Vert'
|
||||
+'ScrollBar.Range'#2'K'#4'Left'#3''''#1#6'Height'#3#145#0#3'Top'#3#224#0#5'Wi'
|
||||
+'dth'#3#177#1#0#7'TBitBtn'#5'OKBtn'#7'Caption'#6#2'OK'#7'Default'#9#11'Modal'
|
||||
+'Result'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#4'Left'#3#29#1#6'Height'#2#26#3
|
||||
+'Top'#2'h'#5'Width'#2'9'#0#0#7'TBitBtn'#9'CancelBtn'#7'Caption'#6#6'Cancel'
|
||||
+#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#4'Left'#3'X'#1#6'Heigh'
|
||||
+'t'#2#24#3'Top'#2'h'#5'Width'#2'>'#0#0#9'TGroupBox'#9'GroupBox1'#7'Caption'#6
|
||||
+#10'&Modifiers'#12'ClientHeight'#2'I'#11'ClientWidth'#3#146#1#8'TabOrder'#2#0
|
||||
+#4'Left'#2#3#6'Height'#2'Z'#3'Top'#2#6#5'Width'#3#150#1#0#9'TCheckBox'#16'Un'
|
||||
+'iqueModifierCb'#7'Caption'#6#15'Unique modifier'#7'OnClick'#7#13'ModifierCl'
|
||||
+'ick'#8'TabOrder'#2#3#4'Left'#3#133#0#6'Height'#2#20#3'Top'#2'%'#5'Width'#2
|
||||
+'w'#0#0#9'TCheckBox'#17'MachineModifierCb'#7'Caption'#6#16'Machine modifier'
|
||||
+#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#1#4'Left'#3#133#0#6'Height'#2
|
||||
+#20#3'Top'#2#20#5'Width'#3#129#0#0#0#9'TCheckBox'#14'DateModifierCb'#7'Capti'
|
||||
+'on'#6#13'Date modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#2#4'Le'
|
||||
+'ft'#3#11#1#6'Height'#2#20#3'Top'#2#20#5'Width'#2'j'#0#0#9'TCheckBox'#12'NoM'
|
||||
+'odifierCb'#7'Caption'#6#11'No modifier'#7'OnClick'#7#13'ModifierClick'#8'Ta'
|
||||
+'bOrder'#2#0#4'Left'#2#11#6'Height'#2#12#3'Top'#2#20#5'Width'#2'e'#0#0#5'TEd'
|
||||
+'it'#10'ModifierEd'#8'OnChange'#7#11'InfoChanged'#10'OnKeyPress'#7#18'Modifi'
|
||||
+'erEdKeyPress'#8'TabOrder'#2#4#4'Left'#2#12#6'Height'#2#26#3'Top'#2'"'#5'Wid'
|
||||
+'th'#2'h'#0#0#5'TEdit'#9'ModDateEd'#7'Enabled'#8#9'MaxLength'#2#10#8'OnChang'
|
||||
+'e'#7#13'ModifierClick'#10'OnKeyPress'#7#14'DateEdKeyPress'#8'TabOrder'#2#5#4
|
||||
+'Left'#3#11#1#6'Height'#2#22#4'Hint'#6#31'Code is invalid after this date'#3
|
||||
+'Top'#2'#'#5'Width'#2'x'#0#0#0#0
|
||||
'TPF0'#12'TModifierFrm'#11'ModifierFrm'#4'Left'#3''''#1#6'Height'#3#145#0#3'T'
|
||||
+'op'#3#224#0#5'Width'#3#177#1#13'ActiveControl'#7#12'NoModifierCb'#11'Border'
|
||||
+'Icons'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#17'Generate Modifi'
|
||||
+'er'#12'ClientHeight'#3#145#0#11'ClientWidth'#3#177#1#10'Font.Color'#7#6'clT'
|
||||
+'ext'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch'#7
|
||||
+#10'fpVariable'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'
|
||||
+#10'LCLVersion'#6#6'0.9.27'#0#7'TBitBtn'#5'OKBtn'#4'Left'#3#29#1#6'Height'#2
|
||||
+#26#3'Top'#2'h'#5'Width'#2'9'#7'Caption'#6#2'OK'#7'Default'#9#11'ModalResult'
|
||||
+#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#3
|
||||
+'X'#1#6'Height'#2#24#3'Top'#2'h'#5'Width'#2'>'#7'Caption'#6#6'Cancel'#11'Mod'
|
||||
+'alResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#9'TGroupBox'#9'GroupBox1'
|
||||
+#4'Left'#2#3#6'Height'#2'Z'#3'Top'#2#6#5'Width'#3#150#1#7'Caption'#6#10'&Mod'
|
||||
+'ifiers'#12'ClientHeight'#2'H'#11'ClientWidth'#3#146#1#8'TabOrder'#2#0#0#9'T'
|
||||
+'CheckBox'#16'UniqueModifierCb'#4'Left'#3#133#0#6'Height'#2#17#3'Top'#2'%'#5
|
||||
+'Width'#2'['#7'Caption'#6#15'Unique modifier'#7'OnClick'#7#13'ModifierClick'
|
||||
+#8'TabOrder'#2#3#0#0#9'TCheckBox'#17'MachineModifierCb'#4'Left'#3#133#0#6'He'
|
||||
+'ight'#2#17#3'Top'#2#20#5'Width'#2'b'#7'Caption'#6#16'Machine modifier'#7'On'
|
||||
+'Click'#7#13'ModifierClick'#8'TabOrder'#2#1#0#0#9'TCheckBox'#14'DateModifier'
|
||||
+'Cb'#4'Left'#3#11#1#6'Height'#2#17#3'Top'#2#18#5'Width'#2'P'#7'Caption'#6#13
|
||||
+'Date modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#2#0#0#9'TCheckB'
|
||||
+'ox'#12'NoModifierCb'#4'Left'#2#11#6'Height'#2#17#3'Top'#2#18#5'Width'#2'G'#7
|
||||
+'Caption'#6#11'No modifier'#7'OnClick'#7#13'ModifierClick'#8'TabOrder'#2#0#0
|
||||
+#0#5'TEdit'#10'ModifierEd'#4'Left'#2#12#6'Height'#2#23#3'Top'#2'"'#5'Width'#2
|
||||
+'h'#8'OnChange'#7#11'InfoChanged'#10'OnKeyPress'#7#18'ModifierEdKeyPress'#8
|
||||
+'TabOrder'#2#4#0#0#5'TEdit'#9'ModDateEd'#4'Left'#3#11#1#6'Height'#2#23#4'Hin'
|
||||
+'t'#6#31'Code is invalid after this date'#3'Top'#2'#'#5'Width'#2'x'#7'Enable'
|
||||
+'d'#8#9'MaxLength'#2#10#8'OnChange'#7#13'ModifierClick'#10'OnKeyPress'#7#14
|
||||
+'DateEdKeyPress'#8'TabOrder'#2#5#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -47,8 +47,7 @@ uses
|
||||
ogutil, onguard, {AH.01}
|
||||
ComponentEditors,
|
||||
PropEdits,
|
||||
LazarusPackageIntf,
|
||||
LResources;
|
||||
LazarusPackageIntf;
|
||||
|
||||
|
||||
|
||||
@ -88,6 +87,8 @@ type
|
||||
|
||||
|
||||
implementation
|
||||
uses
|
||||
LResources;
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user