Некоторые программы на vb6 не запускаются на XP: звук ошибки

[Rody66]

Это конечно что-то новенькое, но. По какой то причине последние мои 2 программы вообще не запускаются на Win XP Sp 3. Причем на 2-х разных семерках эти программы отлично работают.
Что происходит? При запуске программы слышен звук о критической ошибки и ничего более, при этом процесс этой программы на ничтожное время появляется в диспетчере и моментально завершается. На этой винде проверенно - если программе не хватает каких то компонентов, то она как и все нормальные ОС выдаст об этом мессагу, после чего завершиться, но такого не происходит. Может какие то апи ф-ции противозаконные используются что такое поведение?
Проверялось на виртуалке и на ноуте.

[ger_kar]

Стили Windows XP используются?

[Rody66]

Стили Windows XP используются?

Что за стили? Манифест прикреплен и все. Даже InitCommonControls не используется. Может в этом беда кстати?

[ger_kar]

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

[Rody66]

В ресурсах.
Да, в манифесте дело, убрал - заработало. Может кривой он просто? Или какие могут быть варианты?

[ger_kar]

Варианты могут быть разными, например почему

Даже InitCommonControls не используется.

Или InitCommonControlsEx?
Для начала прочти эту тему.
Потом правильно примени InitCommonControls либо InitCommonControlsEx (в MSDN рекомендуется использовать InitCommonControlsEx). Почему именно её, нам простым смертным не ведомо .
Но под действием этого совета я использую InitCommonControlsEx примерно так:

Декларейшин

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

Private Type InitCommonControlsEx
    dwSize As Long
    dwICC As Long
End Type

Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (ByRef TLPINITCOMMONCONTROLSEX As InitCommonControlsEx) As Long

Небольшая функция

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

Public Function InitCommonControlsXP() As Boolean
   
    Const ICC_USEREX_CLASSES As Long = &H200
    Dim udtICCEx As InitCommonControlsEx
   
    On Error Resume Next
   
    udtICCEx.dwSize = Len(udtICCEx): udtICCEx.dwICC = ICC_USEREX_CLASSES
    InitCommonControlsXP = InitCommonControlsEx(udtICCEx)
   
End Function

И в обработчике события Form_Initialize в самом начале

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

Private Sub Form_Initialize()
     
    'Инициируем стили WinXP
    InitCommonControlsXP
...


[Rody66]

Большое спасибо за помощь, InitCommonControlsExпомог.