Как в Delphi 7 сделать ограничение на использование программы по дате?

[SKS]

как в Delphi 7 сделать ограничение на использование программы по дате?
например: сделать так чтобы программа отказалась запускаться 1 мая 2009 года.
Как сделать с реестром или что??? Если можно киньте пример (код программы) в которой стоит ограничение по дате.

[Kotofff]

Как пример :

procedure TForm1.FormCreate(Sender: TObject);
var
  xDate:TDateTime;
begin
  xDate := StrToDate('01.05.2009');
  if Now >= xDate then
    begin
    ShowMessage('Дата Х наступила - запуск невозможен !');
    Application.Terminate;
    end;
end;

[SKS]

Огромное спасибо Kotofff +тебе к репутации!!!
Программа работает!!!

[Dj_smart]

Кстати не советовал бы на время опиратся, если вы защиту делаете - есть много программ, которые меняют время, запускают вашу прогу и опять время назад меняют.

[mihali4]

http://programmersforum.ru/showthread.php?t=34993

[SKS]

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

Кстати не советовал бы на время опиратся, если вы защиту делаете - есть много программ, которые меняют время, запускают вашу прогу и опять время назад меняют.

а если я сделаю так чтобы программа прописалась в реестр? Тогда же хоть переводи время хоть не переводи, все равно же? или я не прав?

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

http://programmersforum.ru/showthread.php?t=34993

я не разобрался с реестром. помогите как прописать программу в реестр! with R do
begin
RootKey := HKEY_LOCAL_MACHINE;
//
// Продолжаем работу с реестром
//
end;
делал так не робит(((((
что сделать? ставлю огранок, меняю время, программа работает как сделать чтобы она вообще не запускалась по истечении например какого-либо времени??? например программа поработала часок и все наотрез отказывалась запускаться.

[KORN]

лучше тогда отщитывай количество запусков, а самое проверенное средство это Demo версия... а для Full делай привязку к железу

[DeKot]

Оптимально ограничиваться количеством запусков.Счет запоминать можно в файле, а можно в самом .exe-шнике.

[SKS]

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

Оптимально ограничиваться количеством запусков.Счет запоминать можно в файле, а можно в самом .exe-шнике.

Дай код, или объясни как так сделать?!?!

[DeKot]

Храним количество запусков (переменная count) в файле с любым "неброским" имененем где нибудь в системной папке.В примере во вложении - C:\Windows\winstat.ext. Файл создается при первом запуске приложения.Далее при следующих запусках count считывается из файла, уменьшается на еденицу и перезаписывается в файл.При count<= 0 приложение запускается и тут же закрывается.Ограничение, конечно примитивное, но для простых случаев достаточно.
Вот еще здесь http://www.programmersforum.ru/showthread.php?t=30761 почитай.Тут способ с использованием .exe - посложней, но и понадежный.