И еще об автозагрузке

Практика показывает, что при выключении компьютера Windows расстается с нашей фоновой программкой мучительно трудно. Может кто-нибудь посоветует, как избавить его от этих мук?

> Александр Ривилис
Спасибо за совет!
Вставил в цикл задержку 0,1сек и теперь модуль работает и выходит из работы вполне корректно.
Мне вот что неожиданно - неужели никого не заинтересовала идея и никому нечего покритиковать?

Возможно кто-нибудь будет тестировать код, поэтому привожу модифицированный (и надеюсь более безопасный) вариант полностью:

Sub Main()
    Dim app As Object
    'параметр обеспечивающий автозагрузку при повторных запусках AutoCAD в продолжении сеанса Windows
    Dim Flag As Boolean
    Flag = True
    On Error Resume Next
    Do
       Do
            Err.Clear
            'получаем объект "AutoCAD.Application"
            Set app = GetObject(, "AutoCAD.Application")
            If (Err.Number = 429) Then
            'AutoCAD не запущен
                Flag = True
            End If
            'pause
          [b]Call vPause[/b]
        Loop While (Err.Number = 429) 'end do
        If (Flag) Then
            If (app.Version = "15.06") Then
               app.ActiveDocument.SendCommand "(load ""MyStartUp.lsp"") "
               Flag = False
            End If
        End If
        Set app = Nothing
    Loop While (Err.Number <> 429) 'end do
End Sub
Private Sub vPause()
    Dim PauseTime As Single
    Dim Start As Single
    Dim Finish As Single
'задержка на 0,1 сек
    PauseTime = 0.1
    Start = Timer
    Do While (Timer < Start + PauseTime)
        DoEvents
    Loop
End Sub

> ShaggyDoc
Это то все хорошо и правильно. Есть только один, но большой минус, такой знаете ли минусище: ну вот привыкли пользователи, понимашь, открывать программы двойным кликом по файлу. И это, наверное, правильно. А acaddoc оставлять мне не хочется. Именно для этого случая такая программка и згодиться.

> ShaggyDoc
Конечно хочется сделать попроще. Но не только мне, а и каждому пищущему свое Приложение. И  - или я буду топить acaddoc.lsp неизвестного коллеги, или он будет топить мой, ведь ACAD загружает и выполняет только один такой файл. Боюсь, что Пользователь нас не поймет.
Был хороший вариант автозапуска через файл *.mnl, но с появлением в ACAD2006 меню *.cui
я счел за лучшее отказаться от подгрузки своего меню и добавлять его программным способом.
То есть все поиски сводятся к борьбе за независимость своего Приложения. (По привычке чуть не добавил:"...и от здравого смысла")

Да. Результаты зависят от "значимости" Приложения. Если это какой-то "довесок", а их могут быть сотни, из разных источников, то конечно они должны просто куда-нибудь дописываться, к "основному" приложению. Если надо - могут использовать свои фрагментарные меню со своим mnl.
Основные проблемы здесь с несовместимостью и некорректным кодом "довесков". Кроме того, необходимы определенные настройки.
Для больших приложений может использоваться и свое меню. В ruCAD сейчас сделано 2 интерфейса, между которыми можно переключаться прямо на лету. Один - "традиционный", в котором используется полное меню с добавлением наиболее часто используемых стандартных команд. Второй - "современный", в котором загружается стандартное меню и меню ruCAD в виде фрагментарного.
Если надо подключить какой-то "довесок", его вписывают в шаблон acaddoc.lsp. Если надо еще какое-то фрагментарное меню - его записывают в список подгружаемых меню. Если "довесок" со своим меню написан правильно - будут подгружаться и его функции.
Если же имеем свалку из разношерстных "лиспов" или еще чего-то, то ничего хорошего не получится. Впрочем, некоторым это нравится - бесконечно настраивать, адаптировать, "тюнинговать". А другим надо много и быстро делать работы - "на конвейере".
Надо определяться с концепцией рабочего места и применять соответствующие решения.

> LeonidSN
Была как-то аналогичная проблема, но разбор полетов оказался наиболее эффективным. Вылета AutoCAD'a я не получил ни разу. Черт, сейчас уже не помню, как я это обошел, а разбираться сейчас некогда. Есть предложение - напиши мне на мыло, пообщаемся на эту тему :)(только вряд ли раньше сегодняшнего вечера).