закрытие программы по дате

[krikaved]

Как сделать, чтобы после первого запуска программы, которая написана на Delphi (точное день и время) программа закрылась ровно через пять дней именно после первого запуска, даже если программу запускали много раз все эти дни.

[grom333]

Логика: При запуске программы проверяем в реестре запись, например DATREG=16.03.2012. Если эта запись есть, то считываешь 16.03.2012 и сравниваешь с сегодняшней датой (NOW). ЕСли она больше 5 дней, то form1.close; Если нет то ничего не делаем.
Если нет записи никакой, то записываем в реестр дату.

[krikaved]

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

Логика: При запуске программы проверяем в реестре запись, например DATREG=16.03.2012. Если эта запись есть, то считываешь 16.03.2012 и сравниваешь с сегодняшней датой (NOW). ЕСли она больше 5 дней, то form1.close; Если нет то ничего не делаем.
Если нет записи никакой, то записываем в реестр дату.

Как это реализовать программно?
P.S. Повышу репутацию

[grom333]

Конечно, задавали бы лучше конкретные вопросы! :
1. Работа с реестром. В Uses добавляем registry.
И примерное чтение-запись под себя исправляйте. Нужно в FormCreate например, поставить код.

2.

procedure TForm1.zapis;
var reg:TRegistry;
dat:string
begin
// Для dat отредактируйте его вид, например dd.mm.yyyy. НУ и естественно, чтобы оно было Tdate.
dat:='12.03.2012';
 reg:=TRegIniFile.Create;
 reg.RootKey:=HKEY_LOCAL_MACHINE;
 reg.OpenKey('SOFTWARE\MICROSOFT\Prog\Date', true);
 reg.WriteString(dat,Edit1.Text);
 reg.CloseKey;
 reg.Free;
end;

procedure TForm1.reading(Sender: TObject);
var reg:TRegistry;
begin
 reg:=TRegIniFile.Create;
 reg.RootKey:=HKEY_LOCAL_MACHINE;
 reg.OpenKey('SOFTWARE\MICROSOFT\Prog\Date', false);
 edit1.Text:=reg.ReadString(dat);
 reg.CloseKey;
 reg.Free;
end;

[krikaved]

Спасибо, что откликнулись!
1) У меня в реестре по такому пути "HKEY_LOCAL_MACHINE\SOFTWARE\MICROS OFT\Prog\Date" нет такого раздела Prog! Windows 7 x 64.
2) значение dat (дата первого открытия файла) записывается в реестр (или в другое место) один раз после первого открытия файла, после второго открытия файла в этот день или на следующий день эта процедура перестаёт работать и ничего больше не записывает. Где тогда использовать procedure TForm1.zapis ?
3) а можно не использовать Edit1 или сделать его невидимым (Edit1.Visible:=false; ). Если сделать Edit1 невидимым, то будет ли работать программа?

...
var
  Form1: TForm1;
  reg:TRegistry;
  dat:string;

implementation

{$R *.dfm}

procedure TForm1.zapis;
begin
// Для dat отредактируйте его вид, например dd.mm.yyyy. НУ и естественно, чтобы оно было Tdate.
//dat:='19.03.2012';
{!!! значение dat (дата первого открытия файла) записывается
в реестр (или в другое место) один раз после первого открытия файла,
после второго открытия файла в этот день или на следующий день эта процедура
перестаёт работать и ничего больше не записывает !!!}

 dat:=DateToStr(Date);
 reg:=TRegIniFile.Create;
 reg.RootKey:=HKEY_LOCAL_MACHINE;
 reg.OpenKey('SOFTWARE\MICROSOFT\Prog\Date', true);
 reg.WriteString(dat,Edit1.Text);
 reg.CloseKey;
 reg.Free;
end;

procedure TForm1.reading;
begin
 reg:=TRegIniFile.Create;
 reg.RootKey:=HKEY_LOCAL_MACHINE;
 reg.OpenKey('SOFTWARE\MICROSOFT\Prog\Date', false);
 edit1.Text:=reg.ReadString(dat);
 reg.CloseKey;
 reg.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
reading();
end;

procedure TForm1.FormShow(Sender: TObject);
begin
if  edit1.Text = reg.ReadString(dat + 5) then // что-то типа такого, только правильное исполнение
Form1.Close;
end;

end.

[xrob]

а можно дурацкий вопрос?
зачем вам закрывать прогу по дате?
неужто вы так ее защитить пытаетесь?
лучше погуглите что-нить про защиту по.

[krikaved]

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

а можно дурацкий вопрос?
зачем вам закрывать прогу по дате?
неужто вы так ее защитить пытаетесь?
лучше погуглите что-нить про защиту по.

Вопрос действительно дурацкий!
Причем тут защита?!
Задача стоит весьма интересная. Если никто не может помочь решить вопрос по дате, то хотя бы подскажите: Каким образом при первом запуске программы можно совершить одно лишь действие и больше его не повторять вовсе, даже если программу потом закрывают и открывают снова. По какому событию это сделать или какая это должна быть функция, подскажите пожалуйста?

[Serge_Bliznykov]

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

ну, не сказано, при первом запуске программы где? на данном компьютере, под данной операционной системой (на компьютере может быть НЕСКОЛЬКО операционных систем), под данным пользователем (опять таки, несколько пользователей может быть), в данной локальной/корпоративной сети и т.д.

общий подход должен быть такой. При запуске программа записывает проверяет где-нибудь в "секретном" месте особую отметку. Если этой отметки нет - значит это первый запуск. Пишем туда нашу отметку и выполняем то, что нужно делать при ПЕРВОМ запуске. Если же отметка имеется, значит запуск НЕ ПЕРВЫЙ.
вопрос стоит только в том, где и как делать эту самую отметку...
Но тут всё очень сильно зависит от того, по каким правами запущена программа.
Если под админскими, то всё просто. Как вам уже советовали ранее, пишете отметку в реестр, в раздел HKLM (HKEY_LOCAL_MACHINE)
а вот если запуск осуществлён из под учётной записи с ограниченными правами, то всё значительно хуже... операционная система с нормальной защитой будет препятствовать Вам гадить где не попадя... и я, например, не вижу надёжного и красивого решения при запуске программы из под Windows 7 с включённым UAC и запуске не от имени администратора..



p.s. теоретически можно поднять сайтик, на который оправлять какой-то уникальный ключик и получать ответ... но тогда без интернета программа вообще запускаться не должна.


p.p.s. а действительно, нафига Вам эти сложности?! Как защита, это слабенько! Если мне понадобится, то я на 99.9% уверен, что смогу запустить вашу программу столько раз в день, сколько мне понадобится А если это не защита, то зачем Вам эти танцы с бубном?!

[Lime]

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

p.s. теоретически можно поднять сайтик, на который оправлять какой-то уникальный ключик и получать ответ... но тогда без интернета программа вообще запускаться не должна.

И ктонить снифферит, меняет hosts и по запросу отправляет программе желаемый ею ответ
Интересная тема на счет защиты, почитал бы.

[Serge_Bliznykov]

И ктонить снифферит, меняет hosts и по запросу отправляет программе желаемый ею ответ

ну, во-первых, запросы/ответы можно шифровать (причём достаточно сурово, протокол "свой-чужой", с использованием сильной криптографии и ЭЦП),
во-вторых, подобный взлом потребует вполне ощутимых затрат времени и сил, наличие определённого опыта, разработка программы, эмулирующей сервер и т.д.
скорее всего проще будет проверку в самой программе отломать...

а в-третьих, самое главное, я где-то написал, что это надёжная "невзламываемая" система??!!!
Вон, автор темы утверждает, что это вообще к защите отношения никакого не имеет. И, следовательно, раз это не защита, то и ломать это никто не будет!
только не спрашивайте меня, зачем TC эти танцы нужны - я сам не понимаю!