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

[krikaved]

procedure TForm1.FormCreate(Sender: TObject);
var Reg: TRegistry;
     dat:  string;
begin
 dat := FormatDateTime('d', Now);
 Reg:=TRegistry.Create;
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 Reg.OpenKey('мой путь');
 if not Reg.ValueExists('Date') then
    begin
      Reg.WriteString('Date', dat);
    end;
 Reg.CloseKey;
 Reg.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
var Reg: TRegistry;
    dat: string;
    k:   integer;
begin
 dat := FormatDateTime('d', Now);
 Reg:=TRegistry.Create;
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 Reg.OpenKey('мой путь', false);
 k  := StrToInt(Reg.ReadString('Date'));
 Reg.CloseKey;
 Reg.Free;
 if k + 5 = StrToInt(dat) then
    begin
      ShowMessage('Я уважаю всех на форуме кроме xrob! Зауважаю тогда, когда он перестанет умничать и присоединится к решению задачи');
     end;
end;

Я сделал по-своему. Пусть выглядет на новичка, но зато я сам написал. Конечно, многие бы сделали например, с помощью функции и тому подобное.
Программа никогда не выдаст ShowMessage, если ее запустить в первый раз, например, 28 числа. Так как не учтено ограничение разных месяцев (февраль 28 дней, март 31 день, апрель 30 дней).
Осталось только подправить, если, например, к числу 28 прибавить 5 равняется 33, а в месяце максимум 31 день! Вот как это все учесть?

[xrob]

эй, уважаемый!

не парьтесь с числами и месяцами.
воспользуйтесь TodayDate:=Trunc(now);
вы получите кол-во дней, прошедших с начала 19-го века.
сохраните это число, например FirstDate = TodayDate.
когда вы запустите программу снова, и она обнаружит свои записи в реестре, снова получаете TodayDate и вычитаете из него FirstDate.
и получаете кол-во дней прошедших с первого запуска программы.
и не важно 29 это февраля или 36 августа.
кол-во дней - абсолютная величина.
при желании его можно перевести в дату вида YYYY.MM.DD

[phomm]

Какой Trunc, какие Strtoint, какие числа, тут лучше использовать DaysBetween (подробности в справке), примерно так:

if Daysbetween(now, saved_date) >=5 then

saved_date должна быть типа Tdatetime

[krikaved]

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

Какой Trunc, какие Strtoint, какие числа, тут лучше использовать DaysBetween (подробности в справке), примерно так:

if Daysbetween(now, saved_date) >=5 then

saved_date должна быть типа Tdatetime

function DaysBetween(const ANow, AThen: TDateTime): Integer;

procedure TForm1.FormCreate(Sender: TObject);
var Reg: TRegistry;
     dat:  string;
begin
 dat := FormatDateTime('ddddd', Now);
 Reg:=TRegistry.Create;
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 Reg.OpenKey('мой путь');
 if not Reg.ValueExists('Date') then
    begin
      Reg.WriteString('Date', dat);
    end;
 Reg.CloseKey;
 Reg.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
var Reg: TRegistry;
    //dat: string;
    //k:   integer;
    k: TDateTime;
begin
 //dat := FormatDateTime('d', Now);
 Reg:=TRegistry.Create;
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 Reg.OpenKey('мой путь', false);
 //k  := StrToInt(Reg.ReadString('Date'));
 k  := StrToDateTime(Reg.ReadString('Date'));
 Reg.CloseKey;
 Reg.Free;
 if Daysbetween(now, k) >= 5 then
    begin
      ShowMessage('Hello, world!');
     end;
end;

У меня пишет ошибку. Я где-то неправильно делаю! У меня saved_date - это k.

[phomm]

function DaysBetween(const ANow, AThen: TDateTime): Integer;

это что такое ? Уберите.
Чтобы использовать функцию DaysBetween надо в uses подключить модуль DateUtils

Что за ошибка-то ? ну и где : рантайм или компайлтайм ?

Ну и плюсом - зачем сохраняете дату отформатированной только в днях (причём , если не ошибаюсь, 5д это длинное название дня недели), не проще не форматить, или форматить только ддммгггг ?

[3D Hunter]

За флуд бы карточку красную вам, автор предыдущего поста!
По теме все проще.
Запись времени:

Reg.WriteDate('Мой путь',Now);

Чтение времени:

k := Reg.ReadDate('Мой путь');

[krikaved]

Спасибо большое phomm и 3D Hunter!
1) А вот по поводу реестра, если много процедур с ипользованием переменной Reg, нужно ли объявлять глобально переменую Reg (var Reg: TRegistry; ), или именно для использования реестра необходимо объявлять переменную Reg локально в каждой процедуре?
2) Почему я не везде могу добавлять новые разделы и параметры в реестре средствами Delphi 7, а вручную без Delphi могу добавлять где угодно. В HKEY_CURRENT_USER могу добавить раздел Prog, а в HKEY_LOCAL_MACHINE - нет. У меня Win7x64.

 reg:=TRegistry.Create;
 //reg.RootKey:=HKEY_CURRENT_USER;
 reg.RootKey:=HKEY_LOCAL_MACHINE;
 reg.OpenKey('Software\Microsoft\Windows\Prog', true);
 reg.WriteString('date','qqq');
 reg.CloseKey;
 reg.Free;

[3D Hunter]

1. Лучше используйте локальные переменные в своих процедурах. Глобальные - плохой стиль программирования.
2. Потому что сидите без прав администратора. Да и в реестре есть защищенные ветви, в которые программы писать не могут.