[090808]

Вообщем нужно чтоб программа работала до определённой даты,но как срок истёчёт запуск программы будет невозможен.......Такое реально ?

[Kot-Dc]

Конечно реально.
Алгоритм такой:
при первом запуске программы идет проверка реестра на определенный параметр,если его нет,то он устанавливается(допустим число дней которое программа должна работать)
после при каждом запуске,идет сравнение с календарем,если дата другая,то из реестра -1 и так до нуля,когда 0,больше запускать нельзя,думаю с кодом сам разберешься,но если будут трудности,пиши=)

[Drozh]

Самый простой способ:
Запуск программы, смотришь запись в реестре если она есть то читаешь что там, если нет то записываешь туда текущую дату. Далее если запись есть сравниваешь с текущей датой и смотришь просрочена программа или нет.

[Drozh]

Kot-Dc мы с тобой мыслим одинаково))))

[090808]

Ребят я в delphi не силён, а не проще бы было сделать чтоб программа работала не со сроком допустим 15 дней как пробная,а до определённый даты который я впишу,чтоб программа смотрела дату,если допустим я поставлю до 22 числа,а если человек запустит софт 23 то программа не заработает вот это нужно...Пожалуйста напишите подробные действия что и куда делать )))

[Aristarh Dark]

Ну так и пиши в реестр дату по которую надо работать. А текущую читай из систмы, а еще лучше - из тырнета.

[Kot-Dc]

Сообщение от Drozh

Kot-Dc мы с тобой мыслим одинаково))))

уже во второй теме так,с разностью на минуту=)

[Thrasher]

Советую использовать файл лицензий. В нем будет в шифрованном виде храниться дата окончания работы программы, ты просто проверяешь и все.
Если файла лицензии нет, то программа НЕ должна запускаться

[090808]

Пожалуйста напишите мне как это сделать я не понимаю....Например какой код...

[ApxaHGe1]

Код:

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');

[AlexSku]

Одно из простейших решений - исправить файл 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.