Это чтоб на панели задач не было открыто много окон при открытых двух формах...

Чтобы форма не отображалась на таскбаре, установите её свойство ShowOnTaskbar = False, доступно в редакторе.

Про форму и её свойства: https://k245.ru/mvdb/formy.html

Это чтоб на панели задач не было открыто много окон при открытых двух формах...

https://myvisualdatabase.com/forum/view … 970#p23970

frmFon.OnCloseQuery := @frmFon_OnCloseQuery;

внутрь обработчика frmFon_OnShow , перед  frmMain.Parent := frmFon;

Кстати,

frmMain.Parent := frmFon;

для чего делаете?

frmFon.OnCloseQuery := @frmFon_OnCloseQuery;

и поэтому постоянно выскакивает подтверждение выхода.
А если поставить в теле программы

begin
...
end.

до OnCloseQuery , то появляется пустое окно, на которое надо нажать, чтоб оно исчезло...
т.е. мне надо условие чтоб можно было перепрыгнуть show следующей формы.

procedure frmFon_OnShow (Sender: TObject; Action: string);
begin
    //Контроль запуска одного экземпляра программы
    if FindWindow('','already_launched')>0 then
        begin
            MessageBox('Уже запущен экземпляр программы','Ошибка',MB_OK+MB_ICONINFORMATION);
            Application.Minimize;
            frmFon.Close;
        end;

    with TForm.Create(Application) do
    begin
        Name := 'already_launched';
        BorderStyle := bsNone;
        Width:=0;
        Height:=0;
        Show;
        Hide;
    end;
   
    begin
        //При стиле "без рамки" убирает второе окно
        frmMain.Parent := frmFon;

        frmMain.Show;
        frmMain.TableGrid1.dbUpdate;
    end;
end;

begin
    frmFon.OnCloseQuery := @frmFon_OnCloseQuery;
end.

Если надо ловить глобально (а не только из одной папки), тогда можно попробовать так:

begin
if FindWindow('','already_launched')>0 then
    begin
        ShowMessage('Программа уже запущена');
        Application.Minimize;
        Form1.Close;
    end;

with TForm.Create(Application) do
    begin
        Name := 'already_launched';
        BorderStyle := bsNone;
        Width:=0;
        Height:=0;
        Show;
        Hide;
    end;
end.

Мне этот вариант больше нравится. И как я сам не догадался, что окно с нужной надписью можно самому создать? А то вечные приколы с главной формой и её заголовком. Беру себе в блокнотик )))

Люблю "сделать" красиво...

Ну это тогда винегрет... Или помидоры со шкурками.
По мне так лучше минимизировать операции записи на диск, даже с "какашкой" весом 22  г̶р̶а̶м̶м̶а̶  байта...

У меня прокатывает.

Как понял про TZipMode, она создает файл, и дальше смотрит его наличие

Не столько "наличие", сколько "занятость" другим, ранее открытым экземпляром.

Я должен "бумажку подать"?

И больше подходит с TZipMode, т.к. у меня выскакивает запрос на закрытие...

Реакция на Zip...

Это для случаев, когда из одной и той же папки выполняется повторная попытка запустить exe-шник.
zip - это контрольный файл, по которому проверяется запущенный экземпляр. Если "занят", значит программа уже открыта.