|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Возможно ли сделать срок действия программы ?
Вообщем нужно чтоб программа работала до определённой даты,но как срок истёчёт запуск программы будет невозможен.......Такое реально ?
|
#2
|
|||
|
|||
Конечно реально.
Алгоритм такой: при первом запуске программы идет проверка реестра на определенный параметр,если его нет,то он устанавливается(допустим число дней которое программа должна работать) после при каждом запуске,идет сравнение с календарем,если дата другая,то из реестра -1 и так до нуля,когда 0,больше запускать нельзя,думаю с кодом сам разберешься,но если будут трудности,пиши=) |
#3
|
|||
|
|||
Самый простой способ:
Запуск программы, смотришь запись в реестре если она есть то читаешь что там, если нет то записываешь туда текущую дату. Далее если запись есть сравниваешь с текущей датой и смотришь просрочена программа или нет. |
#4
|
|||
|
|||
Kot-Dc мы с тобой мыслим одинаково))))
|
#5
|
|||
|
|||
Ребят я в delphi не силён, а не проще бы было сделать чтоб программа работала не со сроком допустим 15 дней как пробная,а до определённый даты который я впишу,чтоб программа смотрела дату,если допустим я поставлю до 22 числа,а если человек запустит софт 23 то программа не заработает вот это нужно...Пожалуйста напишите подробные действия что и куда делать )))
|
#6
|
||||
|
||||
Ну так и пиши в реестр дату по которую надо работать. А текущую читай из систмы, а еще лучше - из тырнета.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#7
|
|||
|
|||
Ы
Цитата:
уже во второй теме так,с разностью на минуту=) |
#8
|
||||
|
||||
Советую использовать файл лицензий. В нем будет в шифрованном виде храниться дата окончания работы программы, ты просто проверяешь и все.
Если файла лицензии нет, то программа НЕ должна запускаться Хорошо написанная программа не требует документации ICQ 9-184-668. |
#9
|
|||
|
|||
Пожалуйста напишите мне как это сделать я не понимаю....Например какой код...
|
#10
|
|||
|
|||
Код:
uses Registry; var nd,cd:string; reg:TRegistry; reg:=TRegistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\Secure\',true); cd:=Reg.ReadString('date'); reg.Destroy; nd:=DateToStr(Date); if nd = cd then ShowMessage ('Trial OFF'); |
#11
|
|||
|
|||
Одно из простейших решений - исправить файл dpr:
Код:
program Project1; uses DateUtils, Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin if Today < EncodeDateTime(2009, 5, 23, 0, 0, 0, 0) then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end; end. |