Чтобы мой ADE-ник юзера не могли запустить два раза
я при запуске проверяю а не запущен ли он уже
если запущен активирую первый,а второй завершаю(или не запускаю).

Как условие "если уже файл открыт" ищу win окно с определенным заголовком
только заголовок надо делать по возможности уникальным (например используя кавычки)
ато возможны баги когда за прогу будет принята
открытая для просмотра одноименная папка

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

Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public gHwnd As Long
Private mm As String
Private mFindStr As String
Private chkFind As Boolean

Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_SHOWWINDOW = &H40


'SetTitle strProjectName при старте установить условленный заголовок
'SetTitle "" при завершении сбросить

'--Обновляет заголовок приложения
Sub SetTitle(strPN As String)
On Error Resume Next
CurrentProject.Properties("AppTitle").Value = strPN
Application.RefreshTitleBar
End Sub


Public Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String, Ret As Long
Dim I As Long
Ret = GetWindowTextLength(hWnd)
sSave = Space(Ret)

GetWindowText hWnd, sSave, Ret + 1

If Len(Trim(sSave)) > 0 Then
'Debug.Print sSave & "-" & hwnd
I = InStr(1, sSave, " - [")
If I > 0 Then
mm = Mid(sSave, 1, I - 1)
If mm = mFindStr Then
gHwnd = hWnd
chkFind = True
EnumWindowsProc = False
Exit Function
End If
Else
mm = sSave
If mm = mFindStr Then
mm = sSave
gHwnd = hWnd
chkFind = True
EnumWindowsProc = False
Exit Function
End If
End If
End If
EnumWindowsProc = True
End Function
Function IsLoadedPr(FindStr As String) As Boolean
gHwnd = 0
chkFind = False
mFindStr = FindStr
Call EnumWindows(AddressOf EnumWindowsProc, 0)
IsLoadedPr = chkFind
End Function

После в коде проверяеш
If IsLoadedPr(strProjectName) Then

если да значит приложение с таким заголовком запущено
PS нормальные герои всегда идут в обход :)

>дважды например даблклик на кнопке таскбара
не не получится
одно успеет все равно раньше
другое его найдет и завершится не устанавливая свой заголовок
>могут и обе версии друг друга найти и выгрузиться
Не не могут
я же только после проверки заголовок устанавливаю на условный.
баг может быть тока один
приложение будет принимать за себя другое приложение если
у него окажется такой-же заголовок (случай с одноименной папкой)
для этого надо чуток уникальности добавить в строку
например кавычек или имя юзера

>Два приложения запустятся (с небольшим интервалом)
Я пробовал запускать из bat файла подряд
это гораздо меньший промежуток чем может сделать юзер
одно успевало установить заголовок раньше чем другое начинало искать.
хотя метод конечно не лишен недостатков.
просто нашел ,скопировал ,проверил - работает и ладно.