Как запустить форму только один раз

[artemavd]

Добрый вечер! Думал, что легко найду в Интернете информацию по своему вопросу, а оказалось, что нет. Вопрос собственно в названии темы. Как показать формы только один раз? Например, как в некоторых программах стоит галочка "Не показывать при следующем запуске". Когда пользователь выбирает такую галочку, то при следующем запуске своей программы форма уже не показывается.

[AlDelta]

artemavd, а файл настроек? Или реестр?
Храните где-нибудь флаг о "показать" и все, а ,потом в зависимости от состояния этого флага, показывайте/не показывайте форму

Не все надо искать в интернете.

[artemavd]

Файл настроек? Мм...просто думал, что можно как-то без дополнительных файлов, кодом, программно.

[AlDelta]

artemavd, тогда реестр.

[mihali4]

Мой способ.

uses SyncObjs;
...
CheckEvent: TEvent;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
CheckEvent:= TEvent.Create( nil, false, true, 'MYPROJECT_CHECKEXIST' );
If CheckEvent.WaitFor(10)<>wrSignaled then
begin
ShowMessage('Сколько можно запускать одну и ту же программу ?');
Application.Terminate;
end else
...

[Bad-XxX]

if FindWindow('TForm1', 'Заголовок окна')<>0 then application.terminate;

А вообще, способов немеряно. Начиная от перебора списка процессов, заканчивая SendMessage.

[Alex Cones]

Имеется в виду "сплеш" форма. У неё функа "не показывать при следующем запуске". Либо пишите в реестре, либо в файл. Можете, конечно еще на сервере хранить или делать изменения в самом exe. Так же можно использовать Launcher.exe

[AlDelta]

ТС хочет всего лишь показывать/не показывать какую-то дополнительную форму(из разряда подсказок, при запуске основного приложения). Закрывать все приложение ему не надо.

[_SERGEYX_]

В компонентах JEDI есть крутой компонент JvTipOfDay.
Там же в его опциях есть свойство toShowOnStartUp. Но это свойство все равно где-то сохранять нужно.

[artemavd]

Но это свойство все равно где-то сохранять нужно.

Можно в файл сохранять, а при запуске проги считывать его значение оттуда и присваивать компоненту.