home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / setbitm.zip / setbitm.cmd next >
OS/2 REXX Batch file  |  1998-05-20  |  946b  |  27 lines
  1. /* setbitm.cmd Version 314 Release 159g  */
  2. /* modification du bitmap de fond d'ecran */
  3. /* change desktop's background - modification du bitmap de fond d'ecran */
  4. /* 20/05/98 Santoni Pierre santoni@aix.pacwan.net */
  5. /* in comments: variations */
  6. call sysFileTree 'c:\os2\bitmap\*.bmp', 'thebumps','FO'
  7. /* call sysFileTree 'MyDir\*.bmp', 'thebumps','FO' for other directory */
  8. /* find the next:
  9.   j=RANDOM(1,thebumps.0)
  10.   can replace lines while 'eaob='
  11.   sysputea unnecessaruy
  12. */
  13. j=thebumps.0 + 1
  14. if SysGetEA('setbitm.cmd','lastbmp','oldname')=0 then
  15.   do i=1 to j-1
  16.     if thebumps.i==oldname then j=i+1
  17.     end
  18. if j==thebumps.0 + 1 then j=1
  19. eaob=thebumps.j
  20. lob="Background="eaob",s,1"
  21. /* lob="Background="eaob",t"  tiled */
  22. /* lob="Background="eaob",s,x"  multiplied x*x times */
  23. /* lob="Background="eaob",n"  normal */
  24. if SysSetObjectData("<WP_DESKTOP>",lob) then
  25.   call SysPutEA "setbitm.cmd","lastbmp",eaob
  26. Return
  27.