Замена контрола Animation

[GM]

Вообщем есть такой контрол Animation(Microsoft Common Controls 6-2), он отображает примитивную анимацию типа копирования файла, удаления в корзину и т.п. в отдельном потоке.
Скиньте мне, пожалуйста, пример или код, чтобы юзать этот контрол без Microsoft Common Controls, и еще можна б было проигровать стандартные анимации без внешних AVI файлов.
Помню у меня был где-то такой пример, только не могу его найти.
Заранее благодарю.

[Faust]

Исходники AVI проигрывателя
Что же касается стандартных анимаций, то, наверное, их можно нарыть в ресурсах винды. (где-то как LoadResPicture)

[GM]

Спасибо, но это чуточку не то. Там создавался с помощью CreateWindow объект класса SysAnimate32, предназначеный именно для проигрования таких роликов.

[GM]

А хоть примерно как это сделать никто не знает.

[BV]

Да на здоровье!
Вот из одного моего проекта...

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

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Function ShowAVI(ByVal sFileName As String, pb As PictureBox) As Boolean
    Dim sMCICmd As String
    Dim sReturn As String * 128
    Dim nWidth As Long, nHeight As Long
    Dim lStart As Long, lPos As Long
    sMCICmd = "open " & sFileName & " type avivideo alias video parent " & pb.hwnd & " style child"
    Call mciSendString(sMCICmd, 0&, 0, 0)
    Call mciSendString("where video destination", ByVal sReturn, Len(sReturn) - 1, 0)
    lStart = InStr(1, sReturn, Chr$(32))
    lPos = InStr(lStart + 1, sReturn, Chr$(32))
    lStart = InStr(lPos + 1, sReturn, Chr$(32))
    nWidth = Mid$(sReturn, lPos, lStart - lPos) * Screen.TwipsPerPixelX
    nHeight = Mid$(sReturn, lStart + 1) * Screen.TwipsPerPixelY
    pb.Move 0, 0
    If nWidth < picWidth Then pb.Width = picWidth Else pb.Width = nWidth
    If nHeight < picHeight Then pb.Height = picHeight Else pb.Height = nHeight
    Call mciSendString("put video window at " & (pb.Width - nWidth) \ (2 * Screen.TwipsPerPixelX) & Chr$(32) & _
        (pb.Height - nHeight) \ (2 * Screen.TwipsPerPixelY) & Chr$(32) & nWidth \ Screen.TwipsPerPixelX & _
        Chr$(32) & nHeight \ Screen.TwipsPerPixelY, 0&, 0, 0)
    Call mciSendString("play video repeat", 0&, 0, 0)
    ShowAVI = True
End Function

Ну а AVI грузи в ресурсы, потом LoadResData...

[GM]

Вы меня не понимаете, я знаю как проигровать AVI, но я б хотел юзать SysAnimate32, т.к. он работает в отдельном потоке, и поддерживает стандартные анимации. Ну ладно если никто не знает, буду сам чо-то пробовать.