
22.05.2009, 13:46
|
Специалист
|
|
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
|
|
Одно из простейших решений - исправить файл dpr:
Код:
program Project1;
uses
DateUtils,
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
if Today < EncodeDateTime(2009, 5, 23, 0, 0, 0, 0) then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.
|