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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

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

	Как отменить повторные запуски, если программа уже запущена? 31.01.2011, 04:53. Показов 2835. Ответов 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
	Прикольно! Спасибо за пример!