Четверг, 05.12.2024, 21:56 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
Запуск проги в определенную дату
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.

Не проверял

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





Сообщение отредактировал opius - Воскресенье, 01.08.2010, 16:33
 
dolphinДата: Воскресенье, 01.08.2010, 19:46 | Сообщение # 3
Администратор
Сообщений: 906
Статус: Offline
+ Чтобы программа не висела в процессах если дата не та, сделай такой алгоритм

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

действия

если нет то

выход.


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz