Интересный глюк

[kuhtiov]

В программе реализована функция автообновления. Схема следующая, есть два исполняемых файла:
Programs.exe и updater.exe. Программа “programs.exe” при запуске запускает файл “updater.exe”. “updater.exe” в свою очередь проверяет наличие обновлений на сайте для файла “programs.exe”. Если есть обновление для “programs.exe”, она (updater.exe) убивает процесс “programs.exe”, скачивает исполняемый файл, запускает “programs.exe”, после чего “updater.exe” выгружается. Все бы хорошо, но есть одно НО! В программе “programs.exe” есть такой код

Код: Выделить всё

If App.PrevInstance = True Then
       
PushButton = MsgBox("Программа уже запущена. Повторный запуск запрещен", 16, " programs.exe")
End
End If



И когда после обновления пытается запуститься программа “programs.exe”, вылазит ошибка "Программа уже запущена. Повторный запуск запрещен”. Тут сразу можно было предположить, что процесс висит в памяти, НО файл “programs.exe” успешно заменился, соответственно, он не мог быть запущен иначе была бы ошибка. Если нажать “Ok” и запустить программу повторно, она превосходно загружается. Скажите, с чем может быть связан такой глюк?

[iGrok]

А если подождать завершения после убиения процесса?
WaitForSingleObject, все дела..

[kuhtiov]

Хм.... кажется я начинаю понимать происхождение глюка, но не понимаю как его решить

Код: Выделить всё

Private sub Form_Load()

....
                           If GetApp(PathProg & "\programs.exe") = True Then
                           
                                bRet = GetApp(PathProg & "\programs",True)
                               

                                'hProcess = OpenProcess(SYNCHRONIZE, 0, Shell(PathProg & "\programs", vbNormalFocus))

                                WaitForSingleObject hProcess, INFINITE
                           
                            End If
....
end sub


Function GetApp(sAppFile As String, Optional Terminate As Boolean = False) As Boolean   ' Äëÿ óáèéñòâà ïðîöåññîâ
On Error Resume Next
    Dim hSnapShot As Long, uProcess As PROCESSENTRY32
    Dim rProcessFound As Long
    Dim sFileName As String
    Dim lFLenght As Long
    Dim lhProcess As Long
   
    hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
    uProcess.dwSize = Len(uProcess)
    rProcessFound = Process32First(hSnapShot, uProcess)
       
    Do While rProcessFound
        sFileName = Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, _
                            InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0))
        lFLenght = Len(sFileName)
        If LCase(sFileName) = LCase(Right(sAppFile, lFLenght)) Then
            If Terminate Then
                lhProcess = OpenProcess(PROCESS_TERMINATE, False, uProcess.th32ProcessID)
                TerminateProcess lhProcess, 0&
                CloseHandle lhProcess
            End If
            GetApp = True
        End If
        rProcessFound = Process32Next(hSnapShot, uProcess)
    Loop
   
    CloseHandle hSnapShot
End Function


Было

Код: Выделить всё

    bRet = GetApp(PathProg & "\programs",True)

, поменял на

Код: Выделить всё

    bRet = GetApp(PathProg & "\programs",False)

Теперь, программа матерится, но продолжает запускаться O_o

P.S. Если сделать WaitForSingleObject, то программа судя по всему пытается еще раз запуститься, т.е. у меня это сообщение стало вываливаться не один раз, а 2 раза подряд. ч.з.х?

[kuhtiov]

хм.. разобрался. У меня после того как файл скачивался, был код

Код: Выделить всё

Shell PathProg & "\WinRepository.exe"

. Закоментил его и все заработало. Не понимаю правда почему?

[kuhtiov]

А нет, ошибочка. Вообще не обновляется блин блинский

[hclubmk]

она (updater.exe) убивает процесс “programs.exe”

а просто закрыть мессагой?

[iGrok]

Вот смотрю я код, и не понимаю, что же это ты такое тяжёлонаркотическое употреблял?

Во-первых, за каким чёртом ты два раза вызываешь свой "GetApp"?
Во-вторых, если ты запускаешь апдейтер из основной программы, почему не передать ему сразу PID основной программы, и зачем надо её по всей винде искать?
В-третьих, если оба приложения твои, то почему-бы не воспользоваться IPC для того, чтобы дать основному сигнал на завершение, вместо того, чтобы стрелять ему в бошку из гранатомёта (TerminateProcess)?

[kuhtiov]

Вот смотрю я код, и не понимаю, что же это ты такое тяжёлонаркотическое употреблял?

Во-первых, за каким чёртом ты два раза вызываешь свой "GetApp"?
Во-вторых, если ты запускаешь апдейтер из основной программы, почему не передать ему сразу PID основной программы, и зачем надо её по всей винде искать?
В-третьих, если оба приложения твои, то почему-бы не воспользоваться IPC для того, чтобы дать основному сигнал на завершение, вместо того, чтобы стрелять ему в бошку из гранатомёта (TerminateProcess)?

У меня был пример убийства процесса, вот я и решил им воспользоваться. Второй вызов GetApp, я убрал. Заметил, что в Windows 7 такой глюк не наблюдается.

Пользоваться IPC, думаю не стоит. Вдруг программа по какой-то причине не выгрузится, файл не подменяться. Стрелять ему в бошку из гранатомёта Надежнее. Тем более что в моем случаи, это безопасно. Если ошибаюсь, поправьте.

[Особист]

Я автообновление решал так:
- лежат в папке 2 ехе: launch.exe и prog.exe
- основной запускаемый файл, у меня он зовётся launch.exe - программа, которая проверяет обновление и если находит, то перезаписывает старый файл prog.exe новым (скажем этот файл зовется prog.exe).
- если обновление закачано, или не требуется, с помощью shell запускаем основной exe.

Раньше пробовал как автор топика, но быстро отказался именно из-за подобных багов.

[kuhtiov]

Я автообновление решал так:
- лежат в папке 2 ехе: launch.exe и prog.exe
- основной запускаемый файл, у меня он зовётся launch.exe - программа, которая проверяет обновление и если находит, то перезаписывает старый файл prog.exe новым (скажем этот файл зовется prog.exe).
- если обновление закачано, или не требуется, с помощью shell запускаем основной exe.

Раньше пробовал как автор топика, но быстро отказался именно из-за подобных багов.

Это не совсем правильно, т.е. например при запуске программе в windows 7, винда каждый раз будет спрашивать разрешение на запуск второй программы.

[Особист]

kuhtiov, я теоретически предполагал что так может быть, поэтому свой обновляемый исполняемый файл назвал не prog.exe, а prog.dll (к примеру) и Shell'ом запускал. Проверял на Win 7 и в Висте - запроса на подтверждение запуска не было, хотя вообще он присутствует.
PS сама запускаемая программа у меня копировалась / качалась в Application Data, и оттуда же запускалась с помощью Shell.