home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxini.zip / TEST.CMD < prev   
OS/2 REXX Batch file  |  1993-10-15  |  922b  |  34 lines
  1. /*REXX*/
  2. call rxfuncadd 'IniLoadFuncs', 'REXXINI', 'IniLoadFuncs'
  3. call IniLoadFuncs
  4.  
  5. wfile = 'C:\OS2\MDOS\WINOS2\WIN.INI'
  6.  
  7. say "The current Windows Wallpaper is" IniGet('Wallpaper', 'Desktop', wFile)
  8.  
  9. say "The [Desktop] section contains the following fields"
  10. handle = IniOpen('Desktop', wFile)
  11. call IniEnum 'Desktop', handle
  12. do i = 1 to Desktop.0
  13.   say Desktop.i '=' IniGet(Desktop.i, handle)
  14. end
  15.  
  16. say "Changing Granularity and Spacing"
  17. handle = IniOpen('Desktop', wFile)
  18. call IniSet 'GridGranularity', 10, handle
  19. call IniSet 'IconSpacing', 50, handle
  20. call IniSave handle
  21. call IniClose handle
  22.  
  23. say ""
  24. say "The [Desktop] section now contains the following:"
  25. call IniLoad 'Desktop', wFile
  26. say "Pattern = " Desktop.Pattern
  27. say "Wallpaper = " Desktop.Wallpaper
  28. say "GridGranularity =" Desktop.GridGranularity
  29. say "IconSpacing =" Desktop.IconSpacing
  30.  
  31. call IniDropFuncs
  32. say "That's all folks!"
  33.  
  34.