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

[Hawk[BZ]]

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

[BOO]

Очень просто:
If App.PrevInstance Then End

[Ramzes]

К дополнению только скажу что мона еще msgbox добавить чтоб юзверя не злить, он и без этого готов весь мир разорвать!

[Amed]

Добавлю ещё, что так блокируется запуск двух копий программы из одного exe-файла. Юзер может скопировать программу в другую папку и оттуда преспокойно запустить. Так что лучше сделать в программе какое-то поле с кодовым словом и при запуске второй копии искать это окно с этим словом среди запущенных окон. Осуществляется через API. Интересно? Тогда могу привести пример (может, кто-то сделает это за меня )

[Netta]

Нужно задекларировать эти функции:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

И при запуске программы проверить:

If App.StartMode <> vbSModeStandalone Then
BlockLoad = True
Exit Sub
End If
If App.PrevInstance = True Then
Exit Sub
End If
' Is the main window already up?
OtherWnd = FindWindow(vbNullString, "Foreground Form ")
If OtherWnd <> 0 Then
' Make sure it's the same process - don't want
' to interfere with others
Call GetWindowThreadProcessId(OtherWnd, pid)
If pid = GetCurrentProcessId() Then
' Main window is up in the same process,
' so exit
Exit Sub
End If
End If

[Ramzes]

Нужно задекларировать эти функции:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

И при запуске программы проверить:

If App.StartMode <> vbSModeStandalone Then
BlockLoad = True
Exit Sub
End If
If App.PrevInstance = True Then
Exit Sub
End If
' Is the main window already up?
OtherWnd = FindWindow(vbNullString, "Foreground Form ")
If OtherWnd <> 0 Then
' Make sure it's the same process - don't want
' to interfere with others
Call GetWindowThreadProcessId(OtherWnd, pid)
If pid = GetCurrentProcessId() Then
' Main window is up in the same process,
' so exit
Exit Sub
End If
End If

А зачем, кода все делаеться в одну строку.

(или я дурак, или ты из ума вижел?)

[Amed]

Добавлю ещё, что так блокируется запуск двух копий программы из одного exe-файла. Юзер может скопировать программу в другую папку и оттуда преспокойно запустить. Так что лучше сделать в программе какое-то поле с кодовым словом и при запуске второй копии искать это окно с этим словом среди запущенных окон. Осуществляется через API. Интересно? Тогда могу привести пример (может, кто-то сделает это за меня )

[Ramzes]

С таким же упехом намного легче в //windows/temp можно содавать временный файл. при входе в прогу проверять его наличие, или содержимое.
А примерчик всеравно напиши, интересно.