PureBoard

Verfasst: **18.04.2006 16:19**

Hallo!

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

Danke!

; 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

Verfasst: **18.04.2006 16:22**

AND51 hat geschrieben: ; ExecutableFormat=Windows
; FirstLine=1
; EnableXP
; EOF[/code]

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

Gruß Karl

Verfasst: **18.04.2006 16:22**

[X] Windows 2000 Service Pack 4

Verfasst: **18.04.2006 16:25**

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

Verfasst: **18.04.2006 17:08**

Karl hat geschrieben: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.

Verfasst: **18.04.2006 17:26**

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

Gruss
Helle

Verfasst: **24.04.2006 09:37**

AND51 hat geschrieben:Hallo!

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

Danke!

Hier z.B. unter Win98se...

Verfasst: **29.04.2006 22:47**

Da fehlt noch WinMe. Das funst auch damit

Verfasst: **30.04.2006 00:10**

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.

PureBoard

Unter welchen OS funzt dieser Code?

Unter welchen OS funzt dieser Code?

Re: Unter welchen OS funzt dieser Code?

Re: Unter welchen OS funzt dieser Code?

Re: Unter welchen OS funzt dieser Code?