Чтобы мой 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 файла подряд
это гораздо меньший промежуток чем может сделать юзер
одно успевало установить заголовок раньше чем другое начинало искать.
хотя метод конечно не лишен недостатков.
просто нашел ,скопировал ,проверил - работает и ладно.

Точно также как закрывается форма
когда уничтожается последняя ссылка на нее.
Вероятно тут поможет передать порожденному
объекту ссылку на самого себя для сохранения
(этот способ я иногда применяю для экземпляра формы чтобы он мог
сам себя держать)

PS У меня на некоторых машинах не закрывается если разорвать связь
Set objApp = Nothing
но на некоторых все равно закрывается
т.е. есть связь между порождаемым и порадившим.

У меня инициация обновления как раз из самого ADP и происходит

1)ПриложениеADE
2)проверка версии (при загрузке и по таймеру из скрытой формы сейчас хочу от таймера избавится в пользу WinSock)
3)Если есть новая версия то закрузка обновляльщика и запуск его и самому завершится
4)обновляльщик содержит в себе сценарий обновления (может быть несколько файлов и пр.) ждет пока осеовное плиложение завершится и перезаписывает его

5)обновляльщик закачивает новый проект запускает его и завершается

PS файлы обновляльщика и основного проекта находятся в базе
и закачиваются ADODB.Stream.SaveToFile что гораздо быстрее чем копировать файловой системой.

>Теперь юзеры подают заявки (в формализованном виде).
>Клиентская часть локально неспеша дорабатывается.
>Обновление выходит не чаще раза в неделю.

Могу подсказать следующую стадию

DBA не имеет доступа к рабочей базе
DBA не учавствует в сапорте
Разработка ведется на специально выделенном сервере разработки
после тестирования готовятся скрипты по обновлению
серверной и клиентской части
после тестирования скриптов они выдаются DBO для обновления серверной части
и доменному админу для включения в плагон,
а сапорттер следит как усе прошло.
Причем DBA,DBO,GUI_O,Сапортер,Домен админ и Тестер это разные люди
и ни один из них не отрывает в процессе ж от стула

PS жаль тока жить в эту пору прекрасную ...
а тут админа даже сервис паки накатить не уговориш
вот и приходится все самому из кода делать
(в этом плане мне очень полезен бывает промежуточный проект обновляльщик
в котором можно не только файл скопировать но и др. черные дела поделать.