Unter welchen OS funzt dieser Code?

[AND51]

Hallo!

Ich möchte gern wissen, unter welchen betriebssystemen dieser Code aus dem CodeArchiv läuft.

Danke!

Code: Alles auswählen

; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=944&highlight=
; Author: Andreas
; Date: 08. May 2003

;############################# 
;Windows-Animationen anzeigen 
;Autor : Andreas 
;############################# 

Global AniLib.l,AniControl.l 
#Anilib = 1000 

Procedure InitAnimate(x,y,w,h,parent) 
    AniLib = OpenLibrary(#Anilib,"shell32.dll") 
    AniControl = CreateWindowEx_(0,"SysAnimate32","Ani",$54000006,x,y,w,h,parent,32000,AniLib,0) 
EndProcedure 

Procedure ExitAnimate() 
    DestroyWindow_(AniControl) 
    CloseLibrary(#Anilib) 
EndProcedure 

Procedure ShowAnimate(s.s) 
    SendMessage_(AniControl,$464,0,s) 
EndProcedure 

If OpenWindow(0, 10, 10, 480, 120, #PB_Window_MinimizeGadget, "Animate-Control") 
    If CreateMenu(0, WindowID()) 
        MenuTitle("Animates") 
        MenuItem( 1, "FINDFOLDER") 
        MenuItem( 2, "FINDFILE") 
        MenuItem( 3, "FINDCOMPUTER") 
        MenuItem( 4, "COPYFILES") 
        MenuItem( 5, "COPYFILE") 
        MenuItem( 6, "RECYCLEFILE") 
        MenuItem( 7, "DELETEFILE") 
        MenuBar() 
        MenuItem( 8, "Ende") 
    EndIf 
EndIf 

InitAnimate(10,10,300,100,WindowID()) 
Repeat 
    Select WaitWindowEvent() 
    Case #PB_EventMenu 
        Select EventMenuID() 
        Case 1 
            ShowAnimate("#150") 
        Case 2 
            ShowAnimate("#151") 
        Case 3 
            ShowAnimate("#152") 
        Case 4 
            ShowAnimate("#160") 
        Case 5 
            ShowAnimate("#161") 
        Case 6 
            ShowAnimate("#162") 
        Case 7 
            ShowAnimate("#163") 
        Case 8 
            PostMessage_(WindowID(),#WM_CLOSE,0,0) 
        EndSelect 
        
    Case #WM_CLOSE 
        ExitAnimate() 
        Quit = 1 
    EndSelect 
    
Until Quit = 1 
End
; ExecutableFormat=Windows
; FirstLine=1
; EnableXP
; EOF

[Karl]

; ExecutableFormat=Windows
; FirstLine=1
; EnableXP
; EOF[/code]

Sieht aus wie Windows, oder meinste jetzt eine spezielle Sorte wie 95, 98 etc.

Gruß Karl

[Kiffi]

[X] Windows 2000 Service Pack 4

[Deeem2031]

[X] Windows XP Service Pack 2 (PB3.94)
[ ] Windows XP Service Pack 2 (PB4.0b7)

[AND51]

Sieht aus wie Windows, oder meinste jetzt eine spezielle Sorte wie 95, 98 etc.

ja, das meine ich.

Also bei mir unter Windows XP SP2 läuft es, ich denke, es wird unter Win Xp mit Home/Prof./SP1/SP2 in beliebiger Kombination laufen.

Aber wie siehts mit 2000, NT, ME, 98 und 95 aus?

Dass 988 anders aussieht wie XP weiß ich, ich denke und hoffe mal, das die größe gleich ist, aber ob das überhaupt funktioniert möchte ich wissen.

[Helle]

Mit PB 3.94 getestet:
- NT 4.0 SP6 : o.K.
- XP Prof. x64 : o.K.
- Server 2003 : o.K.

Gruss
Helle

[Jason]

Hallo!

Ich möchte gern wissen, unter welchen betriebssystemen dieser Code aus dem CodeArchiv läuft.

Danke!

Hier z.B. unter Win98se...

[Falko]

Da fehlt noch WinMe. Das funst auch damit

[AND51]

Also kann ich diesen COde bedenkenlos in meinem Programm einsetzen und weiss, dass er auf allen OS von Win 95 bis XP laeuft? Dass jede Animation anders aussieht, ist mir natruelich klar.

Gut, dass ist alles, was ich wissen wollte.