Форумы GIS-Lab.info

Добрый день!

Решил написать утилитку к MapInfo, добавляющую на панель "Команд" кнопку запуска другой утилиты

Include "mapbasic.def"
Declare Sub Main
Declare Sub Start111

Sub Main
Alter ButtonPad ID 4
Add Separator
PushButton
Icon 121 File "ico32.dll"
Calling Start111
HelpMsg "Запускает программу 111\nЗапустить программу 111"
Enable
End sub

Sub Start111
Run Application "E:\LiteTools\SOURCE\111.MBX"
End sub

Но в том случае если утилита "111.MBX" уже запущена выходит ошибка "Запустить снова 111.MBX во время выполнения прикладной программы не удалось" и моя утилита закрывается
Подскажите как добавить процедуру проверки "запущенности" программы.

Sub Start111
onerror goto ex
Run Application "E:\LiteTools\SOURCE\111.MBX"
Exit Sub
ex:
note "111.MBX уже загружена!"
End sub

Большое спасибо!)

А можно и через DDE посмотреть список запущенных утилит. В руководстве есть даже конкретный пример.