Windows Vista/7-Animationen

[RSBasic]

Guten Abend,


als man noch Windows XP hatte, hatte man noch die Möglichkeit, eine von Windows bereitgestellte Animation in seiner eigenen Anwendung zu verwenden. Leider ist es ab Vista nicht mehr möglich. Die Animationen sind zwar in der shell32.dll weiterhin vorhanden, aber diese sind "leer" bzw. man sieht nichts, wenn man sie wiedergibt.
Ich habe mich gefragt, ob es eventuell in anderen DLL-Dateien andere Animationen gibt. Und ja, in der Tat gibt es welche. Ich hab mal ein wenig weitergesucht und habe noch mehr gefunden. Zwar sind es zum Schluss nicht sehr viele Animationen, die ich gefunden habe, aber ich denke mal, es ist trotzdem nützlich für euch, wenn ihr sowas bei euch im Programm einbauen möchtet.
Ich habe die Animationen mal zusammengefasst und jeweils einen Screenshot erstellt:

• setupapi.dll
  60:
  
  61:
  
• hdwwiz.cpl
  120:
  
• syncui.dll
  133:
  
  134:
  
• srchadmin.dll
  1301:
  
• pnpui.dll
  150:
  
  151:
  
  152:
  
• printui.dll
  430:
  
  435:
  
• gpedit.dll
  4:
  
• certmgr.dll
  105:
  
• ieframe.dll
  544:
  
  14336:
  
  16935:
  

Zum Ausführen bzw. Ausprobieren könnt ihr den folgenden Code verwenden:

Code: Alles auswählen

EnableExplicit

Define EventID
Define hanim
Define hshell

hshell = LoadLibrary_("setupapi.dll")

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  hanim = CreateWindowEx_(0, "SysAnimate32", "", #ACS_AUTOPLAY | #ACS_CENTER | #ACS_TRANSPARENT | #WS_CHILD | #WS_VISIBLE | #WS_CLIPCHILDREN | #WS_CLIPSIBLINGS, 10, 10, 280, 100, WindowID(0), 0, GetModuleHandle_(0), 0)
 
  SendMessage_(hanim, #ACM_OPEN, hshell, 60)
 
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      FreeLibrary_(hshell)
      End
    EndIf
  ForEver
EndIf

Oder die bereits erstellten Codes im Code-Archiv:
http://www.purearea.net/pb/CodeArchiv/W ... dSearch.pb
http://www.purearea.net/pb/CodeArchiv/W ... dowsAVI.pb
http://www.purearea.net/pb/CodeArchiv/W ... mations.pb

Viel Spaß.

PS: Keine Gewährleistung, ob diese Animationen unter Windows XP ebenfalls funktionieren.

[RSBasic]

Hier noch ein paar, die ich gefunden habe...

• ACCTRES.dll
  801:
  
• dskquoui.dll
  1046:
  
• ieakui.dll
  201:
  
  404:
  
• msieftp.dll
  256:
  
  257:
  
  258:
  
• objsel.dll
  208:
  
• wiadefui.dll
  1000:
  
  1001:
  
  1002:
  
  1003:
  
  1004:
  
  1005:
  
  1006:
  
• irftp.exe
  7001:
  

[HeX0R]

Vielen Dank dafür!

Aber könntest du bitte Leerzeichen in deinem Code verbauen?
Dieses seitliche Scrollen macht das Lesen des Beitrags zu einer echten Qual...

[TheCube]

Die meisten (nicht alle) vom 1.Post habe ich mal aus Interesse unter XP ausprobiert:
"setupapi.dll" ; #### XP: nein ###
"syncui.dll" ; #### XP: Ja ###
"srchadmin.dll" ; #### XP: nein ###
"pnpui.dll" ; #### XP: nein ###
"printui.dll" ; #### XP: nein ###
"ieframe.dll" ; #### XP: Ja ### (Auch wenn der Background der HandAnim ziemlich kaputt aussieht)

"Nein" heisst: Es wird unter XP nichts angezeigt.

[RSBasic]

Danke ihr beiden fürs Feedback.

@HeX0R
Kein Problem, habs rasch angepasst.

@TheCube
Danke fürs Testen unter Windows XP, gut zu wissen.