Как отменить повторные запуски, если программа уже запущена?

@CronMix · Регистрация: 23.11.2010

Студворк — интернет-сервис помощи студентам

Подскажите, как можно сделать, чтоб если моя программа уже запущенна, то не загружалась вторая ?
Желательно код... хотя объяснения и подсказки тоже пойдут...

@gnomis · 31.01.2011, 05:43

Приветик!
в форм лоад напиши такую вещу!
if app.previnstance then end
и тогда при запуске второго єкземпляра проги он будет закрываться!

@Дмитри5 · 31.01.2011, 06:51

Интересно, а я пользовался вот так:

If App.PrevInstance = True Then
If MsgBox('Ïðîãðàììà óæå çàïóùåíà!', vbCritical, 'Ïðîãðàììà ' & Me.Caption) = vbOK Then Unload Me: End
End If

или это разные условия (вещи)?

@Дмитри5 · 31.01.2011, 06:55

Извините, это так вредничает ХР. Я Копировал код из VB....
If App.PrevInstance = True Then
If MsgBox('Программа уже запущена!', vbCritical, 'Программа ' & Me.Caption) = vbOK Then Unload Me: End
End If

Это исправил кирилицу прямо на сайте:

)

@Дмитри5 · 31.01.2011, 07:16

Ваш вариант оченб эффективен....но
P.S. = но если файлы находятся в разных папках - то эта мера не помогает: они открываются!!!

@CronMix · 31.01.2011, 07:23 **[ТС]**

Для начала и такой способ подойдет..

А я придумал лучше,только не реализовал:
Можно искать процесс таким-же именем и убивать его

@gnomis · 31.01.2011, 08:09

по моему это намного сложнее! И не всегда будет работать! ;-)

31.01.2011, 17:12

Есть такая штука - семафор. Первый экземпляр его захватывает, а последующим не дает.

31.01.2011, 18:20

2CatsTail:
Очч-ч-чень интересно!
А можно поподробнее (хотя бы URL 'в тему')?

31.01.2011, 21:15

MSDN: CreateMutex, CreateSemaphore и прочие связанные с синхронизацией объекты...

@Tool · 31.01.2011, 21:42

Привет всем !
Семафор представляет собой счетчик , который считается установленным
если его значения больше нуля. Макс. значение семафора устанавливается его создателем. Если процесс ожидает освобождения семафора, то функция ожидания завершается немедленно, если значение семафора больше нуля (установлен), счетчик семафора уменьшается при этом на 1.Когда процесс освобождает семафор, счетчик увеличивается на 1 вплоть до его допустимого максимального значения.
При создании семафору присваивается какое-то максимальное значение,
хотя можно процессу и создать семафор с нулевым счетчиком,завершить его инициализацию, а затем присвоить ему макс.значение , когда он будет готов к работе с другими приложениями.
Имейте ввиду , Windows не следит за тем , какие процессы обращаются к семафору, поэтому ЛЮБОЙ процесс может освободить семафор даже тогда когда он и не ожидает этого семафора. По этой причине необходимо освобождать семафоры к которым ваше приложение обращалось через функцию ожидания.
Функции для работы с семафорами :
1) CreateSemaphore - создает семафор.
2) OpenSemaphore - открывает существующий.
3) ReleaseSemaphore - освобождает семафор ( увел. знач. счетчика )

Но к чему такие страсти ?
Не проще ли при запуске проги , найти дескриптор своего окна и имя его класса через API и дальше либо тихо ( или громко :-) ) скончаться если найдено , либо запуститься если нет.
Удачи. И да прибудет с вами сила :-)

@CronMix · 01.02.2011, 07:31 **[ТС]**

А немиогли бы вы привести пример кода с использованием семафоров ?

01.02.2011, 10:50

Вот как это делал я (5 мин. назад)

1. Создаем проект. Добавляем форму. Сажаем кнопку. Пишем обработчик:

Visual Basic
1
2
3
4
Private Sub Command1_Click()
        If (semHNDL <> 0) Then RC& = ReleaseSemaphore(semHNDL, 1, CC&)
        End
End Sub

2. Добавляем к проекту модуль. В код заносим:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Declare Function CreateSemaphore Lib 'kernel32' Alias 'CreateSemaphoreA' (ByVal lpSemaphoreAttributes As Long, ByVal lInitialCount As Long, ByVal lMaximumCount As Long, ByVal lpName As String) As Long
Public Declare Function ReleaseSemaphore Lib 'kernel32' (ByVal hSemaphore As Long, ByVal lReleaseCount As Long, lpPreviousCount As Long) As Long
 
Global semHNDL As Long
 
Sub Main()
 
    Err.Clear
 
    semHNDL = 0
 
    semHNDL = CreateSemaphore(0, 0, 1, 'Cats_Tail')
 
    RC& = Err.LastDllError
 
    If (RC& <> 0) Or (semHNDL = 0) Then
    
       '::: Это - не первый экземпляр
    
       MsgBox 'Повторный запуск!'
    
       End
    
    End If
 
    Form1.Show
 
End Sub

3. Устанавливаем startup-объект - 'SUB MAIN'

4. Транслируем и заускаем. Хоть из одной директории, хоть из разных.
Хоть с сетевого диска.

5. Подробности: у Эпплмана в его 'Библии API'

@aes5 · 01.02.2011, 11:14

Где-то я видел еще вариант - через атомы (GlobalAddAtom).

01.02.2011, 12:20

Прикольно!
Спасибо за пример!

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@CronMix 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 71

	Как отменить повторные запуски, если программа уже запущена? 31.01.2011, 04:53. Показов 2765. Ответов 14 Метки нет (Все метки) Подскажите, как можно сделать, чтоб если моя программа уже запущенна, то не загружалась вторая ? Желательно код... хотя объяснения и подсказки тоже пойдут... 0

@gnomis 0 / 0 / 0 Регистрация: 31.01.2011 Сообщений: 7
	31.01.2011, 05:43
	Приветик! в форм лоад напиши такую вещу! if app.previnstance then end и тогда при запуске второго єкземпляра проги он будет закрываться! 0

@Дмитри5 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 139
	31.01.2011, 06:51
	Интересно, а я пользовался вот так: If App.PrevInstance = True Then If MsgBox('Ïðîãðàììà óæå çàïóùåíà!', vbCritical, 'Ïðîãðàììà ' & Me.Caption) = vbOK Then Unload Me: End End If или это разные условия (вещи)? 0

@Дмитри5 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 139
	31.01.2011, 06:55
	Извините, это так вредничает ХР. Я Копировал код из VB.... If App.PrevInstance = True Then If MsgBox('Программа уже запущена!', vbCritical, 'Программа ' & Me.Caption) = vbOK Then Unload Me: End End If Это исправил кирилицу прямо на сайте:) 0

@Дмитри5 0 / 0 / 0 Регистрация: 28.09.2010 Сообщений: 139
	31.01.2011, 07:16
	Ваш вариант оченб эффективен....но P.S. = но если файлы находятся в разных папках - то эта мера не помогает: они открываются!!! 0

@CronMix 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 71
	31.01.2011, 07:23 [ТС]
	Для начала и такой способ подойдет.. А я придумал лучше,только не реализовал: Можно искать процесс таким-же именем и убивать его 0

@gnomis 0 / 0 / 0 Регистрация: 31.01.2011 Сообщений: 7
	31.01.2011, 08:09
	по моему это намного сложнее! И не всегда будет работать! ;-) 0

CatsTail
	31.01.2011, 17:12
	Есть такая штука - семафор. Первый экземпляр его захватывает, а последующим не дает.

Comanche
	31.01.2011, 18:20
	2CatsTail: Очч-ч-чень интересно! А можно поподробнее (хотя бы URL 'в тему')?

Messir
	31.01.2011, 21:15
	MSDN: CreateMutex, CreateSemaphore и прочие связанные с синхронизацией объекты...

@Tool 0 / 0 / 1 Регистрация: 09.01.2011 Сообщений: 47
	31.01.2011, 21:42
	Привет всем ! Семафор представляет собой счетчик , который считается установленным если его значения больше нуля. Макс. значение семафора устанавливается его создателем. Если процесс ожидает освобождения семафора, то функция ожидания завершается немедленно, если значение семафора больше нуля (установлен), счетчик семафора уменьшается при этом на 1.Когда процесс освобождает семафор, счетчик увеличивается на 1 вплоть до его допустимого максимального значения. При создании семафору присваивается какое-то максимальное значение, хотя можно процессу и создать семафор с нулевым счетчиком,завершить его инициализацию, а затем присвоить ему макс.значение , когда он будет готов к работе с другими приложениями. Имейте ввиду , Windows не следит за тем , какие процессы обращаются к семафору, поэтому ЛЮБОЙ процесс может освободить семафор даже тогда когда он и не ожидает этого семафора. По этой причине необходимо освобождать семафоры к которым ваше приложение обращалось через функцию ожидания. Функции для работы с семафорами : 1) CreateSemaphore - создает семафор. 2) OpenSemaphore - открывает существующий. 3) ReleaseSemaphore - освобождает семафор ( увел. знач. счетчика ) Но к чему такие страсти ? Не проще ли при запуске проги , найти дескриптор своего окна и имя его класса через API и дальше либо тихо ( или громко :-) ) скончаться если найдено , либо запуститься если нет. Удачи. И да прибудет с вами сила :-) 0

@CronMix 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 71
	01.02.2011, 07:31 [ТС]
	А немиогли бы вы привести пример кода с использованием семафоров ? 0

@aes5 0 / 0 / 0 Регистрация: 04.03.2009 Сообщений: 79
	01.02.2011, 11:14
	Где-то я видел еще вариант - через атомы (GlobalAddAtom). 0

Comanche
	01.02.2011, 12:20
	Прикольно! Спасибо за пример!