pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

OnGuard: Fix usage of incorrect datecode in exdtp21 sample project.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8816 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-04-28 23:25:39 +00:00
parent 8e3014d9ab
commit 8af88d6531
4 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/onguard/examples/exdtp21/datep21.ini
View File

@ -1,3 +1,2 @@
[Codes] [Codes]
DateCode=A9A02ECB8535EBCE1127
DateCode=049CF7F37E44F6C6

3
components/onguard/examples/exdtp21/exdtp21u.lfm
View File

@ -48,7 +48,7 @@ object Form1: TForm1
Width = 204 Width = 204
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 12 BorderSpacing.Around = 12
Caption = 'If you can edit this, your program was allowed to run' Caption = 'If you can see this, your program was allowed to run.'
WordWrap = True WordWrap = True
OnDblClick = InfoDblClick OnDblClick = InfoDblClick
end end
@ -70,7 +70,6 @@ object Form1: TForm1
OnChecked = OgDateCode1Checked OnChecked = OgDateCode1Checked
OnGetKey = OgDateCode1GetKey OnGetKey = OgDateCode1GetKey
OnGetCode = OgDateCode1GetCode OnGetCode = OgDateCode1GetCode
StoreCode = True
Left = 168 Left = 168
Top = 72 Top = 72
end end

3
components/onguard/examples/exdtp21/exdtp21u.pas
View File

@ -12,8 +12,7 @@ uses
OnGuard, OgUtil; OnGuard, OgUtil;
const const
CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8, CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4);
$1A,$FA,$6F,$8D,$AB,$FC,$DF,$B4);
type type

2
components/onguard/examples/exdyreg/ONGUARD.INI
View File

@ -1,2 +1,2 @@
[Codes] [Codes]
DaysCode=B6DA5EECDE3C13ECB826 DaysCode=FD6BE770F2BBBD68FC26