Как закрыть своё приложение???

[northener]

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

В то же время я откуда-то зная, что Application.Terminate посылает сообщение WM_CLOSE всем формам приложения.
Почему не срабатывает обработчик?

Потому что так написана VCL. Если вам обязательно нужно чтобы срабатывали обработчики OnClose и/или OnCloseQuery не используйте TApplication.Terminate. Вызывайте метод TForm.Close.
Почему сделано так, а не иначе я могу написать простыню текста, но это будет моё имхо.

P.S. Кстати вчера забыл добавить.
Если вам нужно прервать выполнение любой вашей процедуры, то для этого существует процедура Exit.

[Владимир61125]

Я не программист, но приходится иногда «с книжкой на коленках».
Подскажите пожалуйста как закрыть (завершить) свою программу.
Программа должна показать окно-напоминание и после нажатия на [OK] завершиться. Мне даже форма Form1 не нужна. Достаточно только несколько ShowMessage(' ,
После нажатия на [OK] Form1 становится видимой и приходится завершать её «по крестику». Переделал на Label1.Caption, но это не то, что хотелось.
Сообщений много и в зависимости от текста все они разной длины. Кучу Label1.Caption на форму не хочется. Придется выравнивать их посередине, а это дополнительный гемор**.
Пробую так:

procedure TForm1.FormCreate(Sender: TObject);
    Form1.Visible := False
    //...
    //...
   if StrToInt(StrInterval) >= StrToInt(ParamStr(1)) then
      begin
         // ShowMessage('После последнего запуска SAP R3 прошло : ' + StrInterval + ' дней!'); //
         Label1.Caption :=  'После последнего запуска SAP R3 прошло ' + StrInterval + ' дней!'; //  
      end;

   exit;
   halt;
  Close;
   Form1.Close;
   Form1.Free;
   Application.Terminate;

end; // procedure TForm1.FormCreate(Sender: TObject);
end.

Всё равно форма становится видимой и (программа) не завершается. Тем кото может помочь напоминаю, что я не программист. Просто пишу маленькие программки для себя используя книжку и Интернет. Заранее всем кто поможет СПАСИБО.

[northener]

Если форма все-таки нужна в случае невыполнения условия, то

program Project1;

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

{$R *.res}
const
  StrInterval = 5;


begin
  if StrInterval >= StrToInt(ParamStr(1)) then
    ShowMessage('После последнего запуска SAP R3 прошло : ' + IntToStr(StrInterval) + ' дней!')
  else begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

[Владимир61125]

СПАСИБО. Ранее в коде делаю проверку условий правильности передачи параметров в программу строкой параметров (Project1.exe 20 "C:\SAP\SAP_TXT.txt") туда из *.bat файла cmd командой (date /T >> C:\SAP\SAP_TXT.txt) попадает дата типа "25.11.2019", потом сама программа C:\SAP\SAP_R3.exe запускается. В SAP_TXT.txt у меня все запуски SAP_R3.exe программы в столбик видны и т.д. Не ожидал, что в воскресенье кто-то ответит. Во вторник на работе попробую. В 1990-м году чуть-чуть ознакомительно изучал возможности Turbo Pascal 5.0 для персональных ЭВМ. Вот уж не думал, что после 50 лет придется ещё и Delphi изучать. Но, как говориться: "Век живи - век учись..." Еще раз спасибо за быстрый ответ.

[northener]

Сообщение от Владимир61125

Еще раз спасибо за быстрый ответ.

Не за что. Почему бы старпёру со стажем и не помочь старпёру подготовительной группы В 50 лет жизнь старпёра только начинается. А не зря слово старпёр начинается со STAR

[Владимир61125]

С таким усердием, оптимизмом и помощниками, я к 60-ти из группы STAR могу в SUPER STARпёры перейти!

[northener]

Сообщение от Владимир61125

С таким усердием, оптимизмом и помощниками, я к 60-ти из группы STAR могу в SUPER STARпёры перейти!

Велкам!