Всем привет.Поздравляю с новым годом.
У меня лицензионная прога установлена на комьютере в работе.
Могу я перенести эту прогу мою домашнюю компьютеру.
У меня есть установочный файл и ключ. Ключ для проги связан с железой.
Или можно обманут регистр, что у меня ключ тоже самое как в работе.
Я могу с редакторами просмотрет внутри прогу. Но нельзя изменить данные. Прогу можно 10 раз открывать и работает 10 минут (минут скрыто), после этого закрываеться. Идея моя. Программист не дает мне полного доступа.
Что мне делать.
вот
WorkGroup.Active = True
WorkGroup.SecurityFile = 'Security.shs'
WorkGroup.UserName = 'ABTest'
WorkGroup.UserPassword = 'hjZF^5Qc*Am1B!'
Left = 16
Top = 280
end
object DBBoot: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
TableName = 'TBoot'
Left = 48
Top = 248
end
object DBContent: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
TableName = 'TContent'
Left = 112
Top = 249
end
object DBContentTemp: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
TableName = 'TContent'
Left = 112
Top = 217
end
object DBTest: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
EncodeKeyBlob = 'te$tb@z%***'
TableName = 'TTest'
Left = 80
Top = 249
end
object DBSettings: TShADOQuery
Connection = DBConnection
Parameters = <>
TableName = 'TSettings'
Left = 48
Top = 280
end
object DBReport: TShADOQuery
Connection = DBConnection
Parameters = <>
TableName = 'TReport'
Left = 80
Top = 280
end
object DBRecord: TShADOQuery
Connection = DBConnection
Parameters = <>
TableName = 'TRecord'
Left = 112
Top = 280
end
object DBSettingsEditor: TShDBEditorDialog
DBFields = <
item
Actions = ca_Clear
Caption = 'Test count'
Hint = 'Test count to'
ImageIndex = 0
InputKind = [ik_NumberSystem]
Name = 'CountX'
MaxLength = 4
ScanFreeValue = True
ValueMax = 1000.000000000000000000
ValueMin = 3.000000000000000000
end
item
Actions = ca_Font
Caption = 'Window font'
Hint = 'Window font to'
ImageIndex = 1
Name = 'FontX'
ScanFreeValue = True
end
item
Caption = 'Random test'
Hint = 'Random test to'
Name = 'RandomX'
end
item
Caption = 'Not repeat'
Hint = 'Not repeat to'
Name = 'NoRepeatX'
end
item
Caption = 'Show help'
Hint = 'Show help to'
Name = 'HelpX'
end>
Images.ImageIndex = 1
Images.ImageList = Images
ImagesAction.ImageList = Images16
Query = DBSettings
Title = 'Settings editor'
Left = 48
Top = 314
end
object PM: TPopupMenu
Images = Images
OnPopup = PMPopup
Left = 289
Top = 9
object PM_Help: TMenuItem
Caption = 'Help to'
ImageIndex = 11
OnClick = PM_HelpClick
end
object PM_Next: TMenuItem
Caption = 'Next query'
ImageIndex = 14
OnClick = PM_NextClick
end
object PM_Line: TMenuItem
Caption = '-'
end
object PM_ScaleUp: TMenuItem
Caption = 'Scale up'
ImageIndex = 12
OnClick = PM_ScaleUpClick
end
object PM_ScaleDown: TMenuItem
Caption = 'Scale down'
ImageIndex = 13
OnClick = PM_ScaleDownClick
end
object PM_Line2: TMenuItem
Caption = '-'
end
object PM_ErrorSend: TMenuItem
Caption = 'Error send'
ImageIndex = 10
OnClick = PM_ErrorSendClick
end
end
object OnForm: TShOnForm
Fonts.Active = True
Fonts.Font.Charset = RUSSIAN_CHARSET
Fonts.Font.Color = clWindowText
Fonts.Font.Height = -16
Fonts.Font.Name = 'Century Gothic'
Fonts.Font.Style = []
Fonts.Help = 'Installed %s fonts. Please, restart program.'
Language.Active = True
Language.Propertys.Strings = (
'Caption'
'Help'
'Hint'
'Title'
'Text')
OneRun = True
Register.Active = True
Register.Dialog.DateScan = True
Register.Dialog.ID.Soft = 2
Register.Dialog.Key = '@bT*$*t2:0:1:6...'
Register.Dialog.Trial.Caption = 'Trial|Accept'
Register.Dialog.Trial.Company = '(C) SHAMS 2009 - [Year]'
Register.Dialog.Trial.DayCount = 10
Register.Dialog.Trial.Help =
'Error of date|Limited dates of %s to %s|This code of serail %s. ' +
'Unlimited, register date of %s|This code of serail %s. Limited d' +
'ates of %s to %s'
Register.Dialog.Trial.Images.ImageIndex = 7
Register.Dialog.Trial.Images.ImageList = Images
Register.Dialog.Trial.ImagesClear.ImageIndex = 0
Register.Dialog.Trial.ImagesClear.ImageList = Images16
Register.Dialog.Trial.RunCount = 30
Register.Dialog.Trial.Second = 600
Register.Dialog.Trial.Site = 'www.abtest.uz'
Register.Dialog.Trial.Text = 'Thank you registered|Your period of %s to %s'
Splash.Active = True
Splash.Dialog.Background = 14808056
Splash.Dialog.Color = 4209735
Splash.Dialog.Font.Charset = RUSSIAN_CHARSET
Splash.Dialog.Font.Color = clWindowText
Splash.Dialog.Font.Height = -16
Splash.Dialog.Font.Name = 'Century Gothic'
Splash.Dialog.Font.Style = []
Splash.Dialog.Speed = 5.500000000000000000
Splash.Dialog.Title = 'Please, wait...'
OnSplash = OnFormSplash
Left = 163
Top = 9
end
object ReportDialog: TShReportDialog
AutoSave = True
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Century Gothic'
Font.Style = []
Images.ImageIndex = 15
Images.ImageList = Images
Title = 'History list'
Left = 320
Top = 10
end
end
Добавлено через 1 минуту
Цитата:
Сообщение от feliks77 (Сообщение 5217102)
Всем привет.Поздравляю с новым годом.
У меня лицензионная прога установлена на комьютере в работе.
Могу я перенести эту прогу мою домашнюю компьютеру.
У меня есть установочный файл и ключ. Ключ для проги связан с железой.
Или можно обманут регистр, что у меня ключ тоже самое как в работе.
Я могу с редакторами просмотрет внутри прогу. Но нельзя изменить данные. Прогу можно 10 раз открывать и работает 10 минут (минут скрыто), после этого закрываеться. Идея моя. Программист не дает мне полного доступа.
Что мне делать.
вот
WorkGroup.Active = True
WorkGroup.SecurityFile = 'Security.shs'
WorkGroup.UserName = 'ABTest'
WorkGroup.UserPassword = 'hjZF^5Qc*Am1B!'
Left = 16
Top = 280
end
object DBBoot: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
TableName = 'TBoot'
Left = 48
Top = 248
end
object DBContent: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
TableName = 'TContent'
Left = 112
Top = 249
end
object DBContentTemp: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
TableName = 'TContent'
Left = 112
Top = 217
end
object DBTest: TShADOQuery
Connection = DBConnectionTest
Parameters = <>
EncodeKeyBlob = 'te$tb@z%***'
TableName = 'TTest'
Left = 80
Top = 249
end
object DBSettings: TShADOQuery
Connection = DBConnection
Parameters = <>
TableName = 'TSettings'
Left = 48
Top = 280
end
object DBReport: TShADOQuery
Connection = DBConnection
Parameters = <>
TableName = 'TReport'
Left = 80
Top = 280
end
object DBRecord: TShADOQuery
Connection = DBConnection
Parameters = <>
TableName = 'TRecord'
Left = 112
Top = 280
end
object DBSettingsEditor: TShDBEditorDialog
DBFields = <
item
Actions = ca_Clear
Caption = 'Test count'
Hint = 'Test count to'
ImageIndex = 0
InputKind = [ik_NumberSystem]
Name = 'CountX'
MaxLength = 4
ScanFreeValue = True
ValueMax = 1000.000000000000000000
ValueMin = 3.000000000000000000
end
item
Actions = ca_Font
Caption = 'Window font'
Hint = 'Window font to'
ImageIndex = 1
Name = 'FontX'
ScanFreeValue = True
end
item
Caption = 'Random test'
Hint = 'Random test to'
Name = 'RandomX'
end
item
Caption = 'Not repeat'
Hint = 'Not repeat to'
Name = 'NoRepeatX'
end
item
Caption = 'Show help'
Hint = 'Show help to'
Name = 'HelpX'
end>
Images.ImageIndex = 1
Images.ImageList = Images
ImagesAction.ImageList = Images16
Query = DBSettings
Title = 'Settings editor'
Left = 48
Top = 314
end
object PM: TPopupMenu
Images = Images
OnPopup = PMPopup
Left = 289
Top = 9
object PM_Help: TMenuItem
Caption = 'Help to'
ImageIndex = 11
OnClick = PM_HelpClick
end
object PM_Next: TMenuItem
Caption = 'Next query'
ImageIndex = 14
OnClick = PM_NextClick
end
object PM_Line: TMenuItem
Caption = '-'
end
object PM_ScaleUp: TMenuItem
Caption = 'Scale up'
ImageIndex = 12
OnClick = PM_ScaleUpClick
end
object PM_ScaleDown: TMenuItem
Caption = 'Scale down'
ImageIndex = 13
OnClick = PM_ScaleDownClick
end
object PM_Line2: TMenuItem
Caption = '-'
end
object PM_ErrorSend: TMenuItem
Caption = 'Error send'
ImageIndex = 10
OnClick = PM_ErrorSendClick
end
end
object OnForm: TShOnForm
Fonts.Active = True
Fonts.Font.Charset = RUSSIAN_CHARSET
Fonts.Font.Color = clWindowText
Fonts.Font.Height = -16
Fonts.Font.Name = 'Century Gothic'
Fonts.Font.Style = []
Fonts.Help = 'Installed %s fonts. Please, restart program.'
Language.Active = True
Language.Propertys.Strings = (
'Caption'
'Help'
'Hint'
'Title'
'Text')
OneRun = True
Register.Active = True
Register.Dialog.DateScan = True
Register.Dialog.ID.Soft = 2
Register.Dialog.Key = '@bT*$*t2:0:1:6...'
Register.Dialog.Trial.Caption = 'Trial|Accept'
Register.Dialog.Trial.Company = '(C) SHAMS 2009 - [Year]'
Register.Dialog.Trial.DayCount = 10
Register.Dialog.Trial.Help =
'Error of date|Limited dates of %s to %s|This code of serail %s. ' +
'Unlimited, register date of %s|This code of serail %s. Limited d' +
'ates of %s to %s'
Register.Dialog.Trial.Images.ImageIndex = 7
Register.Dialog.Trial.Images.ImageList = Images
Register.Dialog.Trial.ImagesClear.ImageIndex = 0
Register.Dialog.Trial.ImagesClear.ImageList = Images16
Register.Dialog.Trial.RunCount = 30
Register.Dialog.Trial.Second = 600
Register.Dialog.Trial.Site = 'www.abtest.uz'
Register.Dialog.Trial.Text = 'Thank you registered|Your period of %s to %s'
Splash.Active = True
Splash.Dialog.Background = 14808056
Splash.Dialog.Color = 4209735
Splash.Dialog.Font.Charset = RUSSIAN_CHARSET
Splash.Dialog.Font.Color = clWindowText
Splash.Dialog.Font.Height = -16
Splash.Dialog.Font.Name = 'Century Gothic'
Splash.Dialog.Font.Style = []
Splash.Dialog.Speed = 5.500000000000000000
Splash.Dialog.Title = 'Please, wait...'
OnSplash = OnFormSplash
Left = 163
Top = 9
end
object ReportDialog: TShReportDialog
AutoSave = True
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Century Gothic'
Font.Style = []
Images.ImageIndex = 15
Images.ImageList = Images
Title = 'History list'
Left = 320
Top = 10
end
end
|
Цитата:
Сообщение от feliks77 (Сообщение 5217102)
Register.Dialog.Trial.DayCount = 10
Register.Dialog.Trial.RunCount = 30
Register.Dialog.Trial.Second = 600
|
Вот нужный нам адресс
