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

[TwiX]

Раньше вроде Close; работало - сейчас что-то перестало.

[Пепел Феникса]

основной форме Close или где угодно Application.Terminate

[Ntlegend]

Еще можна написать EхitРrосеss(0);
или отправить програме сообщение шоб закрылась SеndМеssаgе(Аррliсаtiоn.Наndlе, WM_СLОSЕ, 0, 0);

[Somebody]

ExitProcess, будучи функцией WinApi, не вызывает finalization модулей, вместо него лучше halt(0).

[DomiNick]

сейчас что-то перестало

Возможно есть контрол у которого Name=Close ...
Попробуйте писать так: Form1.Close ...

[Stilet]

сейчас что-то перестало.

Значит Код смотреть нужно, может там потоки какие незавершаются правильно...

[NNK_RTR]

Действительно какой-то бардак.
Мне нужно закрыть приложение, если определенная папка уже существует

//-------------- Проверка наличия и создание указанной в параметре DirName папки
procedure CheckAndCreateFolder(DirName:string);
begin
 If not DirectoryExists(DirName) then CreateDir(DirName)
   else
   begin
    ShowMessage('Папка "'+DirName+'" уже существует'#13#10+
                'Удалите ее вместе с содержимым вручную'#13#10+#13#10+
                'Программа будет закрыта');
    S_F.Close;         // - это главная форма
    // EхitРrосеss(0);//Функция не распознается (подчеркнута красным)
     S_folder.Close; // модальная форма и она в данный момент отображается
     Application.Terminate;
   end;
end;
//========================

Сам код находится в отдельном модуле, не имеющим формы.
Пробовал все функции по отдельности и все вместе. Приложение закрывается после выполнения вызывающей процедуры. А нужно немедленно.
Как можно решить эту проблему?
Что нужно включить в предложение uses, чтобы функция EхitРrосеss распознавалась?
С уважением, Николай

[northener]

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

S_F.Close; // - это главная форма

Регулярная процедура procedure CheckAndCreateFolder() ничего не знает и не может знать ни о каких формах включая главную. Также она не может ничего знать о любых глобальных переменных объявленных в любом модуле проекта.
Если вам достаточно простого совета без объяснений, уберите из приведенного кода строки

    S_F.Close;         // - это главная форма
    // EхitРrосеss(0);//Функция не распознается (подчеркнута красным)
     S_folder.Close; // модальная форма и она в данный момент отображается

Application.Terminate; всё сделает сам и грамотно.

[NNK_RTR]

В вопросе у меня есть строка "Пробовал все функции по отдельности и все вместе", и работают они одинаково: Сначала полностью выполняется код вызывающей процедуры, а затем программа закрывается без всяких дополнительных действий

unit Routines;

interface
uses
  Winapi.Windows, ..., ;

  procedure FolderSetap;//Создание папки "Настройки"
  ...
  procedure CheckAndCreateFolder(DirName:string);
  ...
implementation

uses SFolders, SPhotos, ListCamer;

procedure FolderSetap;  //Вызывающая процедура
var
  Dir:string;
  ... ;
 begin
  ...
  CheckAndCreateFolder(Dir);
  ...  // После щелчка пользователя по кнопке ОК в сообщении
  ...  // выполняется весь код ниже вызова CheckAndCreateFolder 
  ...  // вплоть до end, и лишь потом программа закрывается.
 end;

Работа функции Application.Terminate отличается от других лишь тем, что модальное окно (S_folder) три раза "подмигивает", но программа не закрывается.

Регулярная процедура procedure CheckAndCreateFolder() ничего не знает и не может знать ни о каких формах включая главную. Также она не может ничего знать о любых глобальных переменных объявленных в любом модуле проекта.

Это еще почему? Чем эта процедура хуже других?
Пока, если не будет найдено другого решения, я добавил глобальную переменную Bol:boolean. Если папка уже существует, то CheckAndCreateFolder устанавливает ее в true. В вызывающую процедуру, сразу после вызова CheckAndCreateFolde, добавил строку if Bol then exit. Теперь функции S_F.Close и Application.Terminate сразу закрывают приложение, а функция S_folder.Close - закрывает только модальную форму. Все, как и должно быть. Не люблю глобальные переменные, пытаюсь использовать их как можно меньше. Если есть другое решение, то подскажите.
С уважением, Николай.

[northener]

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

Это еще почему? Чем эта процедура хуже других?

Она не хуже и не лучше. Она живет в ином пространстве имён нежели стандартное Дельфи приложение. Она работает только с переменными переданными ей в качестве параметров и с её собственными локальными переменными.