Запрет одновременной работы двух копий приложения

@aptos · Регистрация: 04.06.2013

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

Все, собственно, в вопросе. Нужно запретить запуск второй копии скомпилированного в VB6 .exe файла. Как это можно сделать? Желательно попроще. Спасибо!

quwy · 19.09.2014, 19:41

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

Желательно попроще.

Создавать файл при запуске, удалять при завершении. Если файл при запуске уже есть, завершаться.

Чтобы избежать ложного наличия файла при принудительном/аварийном завершении работы программы, создавать его средствами WinAPI с флагом FILE_FLAG_DELETE_ON_CLOSE.

@aptos · 19.09.2014, 19:52 **[ТС]**

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

Создавать файл при запуске, удалять при завершении. Если файл при запуске уже есть, завершаться.

Чтобы избежать ложного наличия файла при принудительном/аварийном завершении работы программы, создавать его средствами WinAPI с флагом FILE_FLAG_DELETE_ON_CLOSE.

Если говорите про WinAPI, то и сами функции сразу называйте.

quwy · 19.09.2014, 19:55

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

Если говорите про WinAPI, то и сами функции сразу называйте.

CreateFile

@The trick · 19.09.2014, 20:00

Самый простой App.PrevInstance, но это свойство актуально только на момент запуска приложения и привязано к имени файла. Самый правильный способ - это создать именованый объект ядра (например событие) и проверять его. Например:

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
Option Explicit
 
Private Declare Function CreateEvent Lib "kernel32" Alias "CreateEventW" (lpEventAttributes As Any, ByVal bManualReset As Long, ByVal bInitialState As Long, ByVal lpName As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Private Const ERROR_ALREADY_EXISTS As Long = 183&
 
Dim hEvent As Long
 
Private Sub Form_Load()
    hEvent = CreateEvent(ByVal 0&, False, 0, StrPtr(App.Title))
    If hEvent Then
        If Err.LastDllError = ERROR_ALREADY_EXISTS Then
            MsgBox "Ïðèëîæåíèå óæå çàïóùåíî"
        Else
            MsgBox "Ýòî ïåðâûé ýêçåìïëÿð"
        End If
    Else
        ' Ïðîèçîøëà îøèáêà
        End
    End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    CloseHandle hEvent
End Sub

@aptos · 19.09.2014, 20:19 **[ТС]**

Спасибо! То, что нужно!

@larystyle · 30.06.2020, 09:06

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

Добавлено через 1 час 24 минуты
выдает ошибку при запуске кода (*.VBS) в 3 строке символ 17!

@Pro_grammer · 30.06.2020, 09:52

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

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

Этот код и есть приложение. Закрывает сам себя, если уже запущен экземпляр.

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

при запуске кода (*.VBS)

Это вообще не в тему - VBS это скрипт, а не приложение. Да и не будет работать с win API в таком виде.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@aptos 13 / 13 / 3 Регистрация: 04.06.2013 Сообщений: 156

	Запрет одновременной работы двух копий приложения 19.09.2014, 19:35. Показов 3285. Ответов 7 Метки нет (Все метки) Все, собственно, в вопросе. Нужно запретить запуск второй копии скомпилированного в VB6 .exe файла. Как это можно сделать? Желательно попроще. Спасибо! 0

@aptos 13 / 13 / 3 Регистрация: 04.06.2013 Сообщений: 156
	19.09.2014, 20:19 [ТС]
	Спасибо! То, что нужно! 0

@larystyle 0 / 0 / 1 Регистрация: 12.06.2010 Сообщений: 29
	30.06.2020, 09:06
	Подскажите, где в коде то самое приложение, дубликат которого нужно закрыть? Добавлено через 1 час 24 минуты выдает ошибку при запуске кода (*.VBS) в 3 строке символ 17! 0

Запрет одновременной работы двух копий приложения

Решение