Запуск проги в определенную дату

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024

delfcode » Delphi » Вопросы по Delphi » Запуск проги в определенную дату (Запуск проги в определенную дату)

Запуск проги в определенную дату

1x1y1z

Дата: Воскресенье, 01.08.2010, 15:49 | Сообщение # 1

Был не раз

Зарегистрирован: 12.07.2010

Группа: Пользователи

Сообщений: 11

Статус: Offline

Я читал статью про запуск проги в определенное мремя но не смог присоединить функцию BumDate:TDateTime; к своей проге! Как сделать, чтобы редактирование реестра в моей проге происходило 10.08.2010 и позднее? Что надо при этом писать в uses? Нужно ли данную функцию писать отдельно со значением, или можно ее вклинить прямо перед редактированием реестра?
Прошу помочь мне исправить данный исходник для запуска редактирования реестра в определенную дату например - 10.08.2010 и позднее:

program Time;
uses
Windows, SysUtils, ShellApi, RegisTry;
{$R *.res}

var
REG : TRegistry;
begin
REG := TRegistry.Create;
REG.Access := KEY_ALL_ACCESS;
REG.RootKey:=HKEY_LOCAL_MACHINE;
REG.OpenKey('SYSTEM\Select',true);
REG.WriteInteger('1',1);
REG.CloseKey;
REG.Free;
end.

opius

Дата: Воскресенье, 01.08.2010, 16:33 | Сообщение # 2

Частый гость

Зарегистрирован: 18.03.2010

Группа: Пользователи

Сообщений: 46

Статус: Offline

Попробуй так

program Time;

uses
Windows, SysUtils, ShellApi, RegisTry;
{$R *.res}

var
REG : TRegistry;
begin
If DateToStr(date)='01.08.2010' then
begin
REG := TRegistry.Create;
REG.Access := KEY_ALL_ACCESS;
REG.RootKey:=HKEY_LOCAL_MACHINE;
REG.OpenKey('SYSTEM\Select',true);
REG.WriteInteger('1',1);
REG.CloseKey;
REG.Free;
end;
end.

Не проверял

Источник: https://delfcode.ru/forum/29-233-1

Сообщение отредактировал opius - Воскресенье, 01.08.2010, 16:33

dolphin

Дата: Воскресенье, 01.08.2010, 19:46 | Сообщение # 3

Администратор

Сообщений: 904

Статус: Offline

+ Чтобы программа не висела в процессах если дата не та, сделай такой алгоритм

если дата = '01.08.2010' то

действия

если нет то

выход.

Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик

delfcode » Delphi » Вопросы по Delphi » Запуск проги в определенную дату (Запуск проги в определенную дату)

Страница 1 из 1
1