Показать сообщение отдельно
  #11  
Старый 22.05.2009, 13:46
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 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.
Ответить с цитированием