home *** CD-ROM | disk | FTP | other *** search
- DefineVariables
-
- ;; Define Windows Group Information
- Text [DEMODK_Executable] := demodkpc.exe
- Text [DEMODK_GroupTitle] := DK Multimedia
- Text [DEMODK_GroupfileName] := DKMULTIM.Grp
-
- ;; Define Windows Icon Information
- Text [DEMODK_IconTitle] := DΘmo Nathan MM
- Text [DEMODK_IconFile] := [InstallFromDrive]:\DEMODK\demodk.Ico
-
-
- EndDefineVariables
-
- ;;
- ;; Begin Main Script Execution
- ;;
-
- Do SetupDemoDk
-
- ;; Product Introduction Screen(s)
- Dialog PressAKey @xy(center,center) Use
- Bienvenue,
-
- ce programme installe l'ic⌠ne de la dΘmonstration
- des produits de la gamme Nathan MultimΘdia :
-
- .cMon Premier Dictionnaire Super GΘnial Nathan !
- .cLe MystΦre du Passager Clandestin
- .cComment τa Marche
-
-
- EndDialog
-
- Delay 1000
-
-
-
-
-
- ;; Installation Menu
- ClearScreen
- Do Install
- Do ByeBye
-
- ;; Install Base Product Files
- Procedure Install
-
-
- [DEMODK_Executable] := [InstallFromDrive]:\DEMODK\demodkpc.exe
- [DEMODK_IconFile] := [InstallFromDrive]:\DEMODK\demodk.Ico
- ;; CrΘation du groupe
- ClearScreen
- Do AddIconsStd
- Do RuntimeVFW
- EndProcedure
-
- ;; CrΘation du groupe et ajout des ic⌠nes
- Procedure AddIconsStd
- ShowWindow Minimize
- BuildprogramGroup "[DemoDk_GroupTitle]" [DemoDk_GroupFileName]
- [DEMODK_Executable] "[DemoDk_IconTitle]" [DemoDk_IconFile]
- EndBuildProgramGroup
- Delay 1000
- ShowWindow Maximize
- EndProcedure
-
- Procedure RunTimeVFW
-
- Dialog [YesOrNo1] @xy(center,center) UseHeader "Installation de VidΘo pour Windows"
-
- Pour profiter des vidΘos de la dΘmonstration,
- il faut que VidΘo pour Windows soit installΘ
- sur votre machine.
-
- Souhaitez-vous installer VidΘo pour Windows ?
- (Dans le doute, repondez oui.)
-
- EndDialog
- if [YesOrNo1]=YesCharacter
- run [InstallFromDrive]:\DEMODK\VFW\DISK1\INSTALL.EXE
- endif
- EndProcedure
-
- Procedure ByeBye
- Dialog PressAKey @xy(center,center) UseHeader "Installation terminΘe"
- L'installation est terminΘe.
-
- Si vous avez installΘ VidΘo pour Windows,
- n'oubliez pas de relancer Windows avant de
- lancer la dΘmonstration.
-
- Votre Θcran doit Ωtre configurΘ en 256 couleurs
- pour profiter au mieux de cette dΘmonstration.
-
- Pour lancer la dΘmonstration, cliquez deux
- fois sur l'ic⌠ne "DΘmo Nathan MM" dans le
- groupe "DK Multimedia".
-
- EndDialog
- SoLong
- EndProcedure
-
-
- ;; -----------------------------------------------------------------------
- Procedure SetupDemodk
- SetTopLineTo Produits Nathan MultimΘdia : dΘmonstration
- SetDefaultBitMap Off
- SetBackGroundColor 0 0 255 0 0 128 TopToBottom
- ShowWindow Maximized
- EndProcedure
-
-
- EndScript
-