Запуск программы по дате.

[SKS]

Я написал программу, теперь мне надо чтобы она запустилась к примеру числа 1 мая 2009г. как так сделать? Уточню - это не вредоносная прога, не вирус!!!
Заранее благодарю!!!

[maladoy]

в FormCreate считываешь значение Now и если он 1 мая 2009 то продолжаешь работу а если нет - закрываешь ! Вешай ее в автозагрузку!

[SKS]

друг! можешь расписать данную строчку?!

[Terran]

Можете сделать так:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
If DateToStr(Now) > '01.05.2009' Then
Begin
Halt;
End;
End;

[Ntlegend]

если нада чтобы программа запускалась первого числа каждого месяца то предлагаю сделать так.. в *.dpr файле сделать от такие изменения..

program Project1;

uses
  Windows, SysUtils, Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var s:string;
begin
  s:=Copy(DateToStr(Date), 1, pos('.', DateToStr(Date)));
  if s='1'
   then begin    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
   end;
end.

[aesoem]

Поддерживаю Terran, самы легкий способ... только лучше мне кажется использовать "Close;"

[Stilet]

А мне кажется нужно просто шедулер настроить, поставив туде задание запустить прогу в Ытцать часов Атцать минут.
Это можно сделать командой консоли At

[Ntlegend]

лёгкий не значит рацыональный.. зачем иницыализировать формы делать там еще чтото (что процедуры считывания параметров или еще какие нить которые иногда бывають перед иницыализацыей формы..) ежели можна сразу же проверить..а делать проверку на конкретную дату мне кажется не рацыональным.. потому что дара пройдёт.. приложение можна удалять.. ну или перекомпилировать на новую дату..)

[soleil@mmc]

читайте внимательно - вопрос не гасить прогу, а запускать!
имхо проще написать еще одну прогу, которая будет мониторить время и по достижении условия - пытаться запустить указанный ей ехе-шник

проще реализовать через самописный сервис

[soleil@mmc]

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

лёгкий не значит рацыональный..

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