home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / fr / ectbarre / paperbmp.ect < prev    next >
Text File  |  1995-03-20  |  735b  |  22 lines
  1. rem Macro de selection de papier peint au hasard dans une liste
  2. rem Indiquez dans les registres de chaines la liste des fichiers
  3. rem Specifiez le chemin complet si votre fichier n'est pas dans le
  4. rem repertoire de WINDOWS
  5. $A=$Fichier1.bmp
  6. $B=$Fichier2.bmp
  7. $C=$Fichier3.bmp
  8. $D=$Fichier4.bmp
  9. $E=$Fichier5.bmp
  10. rem Definition d'une constante designant le nombre de fichiers BMP
  11. define($NbrBMP,!5)
  12. rem lire le nom du papier peint actuel  pour le comparer avec le futur 
  13. rem si c'est le meme au retire au sort
  14. $Z=READINI($WIN.INI,$DESKTOP,$WALLPAPER,$NULL,!128)
  15. rem Precisez dans RANDOM le nombre de fichiers
  16. :Tirage
  17. !A=RANDOM(NbrBMP)
  18. rem Remarquez l'indexation $!A
  19. IF[CMP($!A,$Z)]==FALSE
  20. GOTO($:Tirage)
  21. DESKTOP($!A,!0)
  22.