По использованию таймера

[Onclick]

Друзья помогите мне плиз как сделать чтобы запускался код в запланированной дате? Ну я хочу чтобы код запустился через 3 или 4 мес.
Скажим просто чтобы запустился это

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
ExitWindowsEx(tag,0);
end;

end.

Конечно это глупо, но я просто учусь подшутить)))

[Dmitrijan]

Примерно так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
s:string;
begin
s:='15.06.2010'; //Ваша дата
if Date>=StrToDate(s) then ExitWindowsEx(tag,0); //Если текущая дата соответствует переменной s то выполнить ExitWindowsEx(tag,0);
end;

[Drongo]

Конечно это глупо, но я просто учусь подшутить))) »С таких невинных шуток начинаются вирусописатели. И по большому счёту, то что вы хотите, именуется таким выражением как - логическая бомба.