home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / x082082.zip / install / sound048.cmd < prev   
OS/2 REXX Batch file  |  1998-10-16  |  1KB  |  35 lines
  1. /* enable new XFolder system sounds
  2.    Polish version (048)
  3.    (W) (C) Ulrich Möller. All rights reserved.
  4.  */
  5.  
  6. /* these are the titles of the sounds to be created */
  7. ShutdownSound       = "XFolder: Zamkni⌐cie systemu"
  8. RestartWPSSound     = "XFolder: Restart WPS"
  9. ContextOpenSound    = "XFolder: Otwarcie menu"
  10. ContextSelectSound  = "XFolder: Wybór menu"
  11. CnrSelectSound      = "XFolder: Podwójne klikni⌐cie folderu"
  12.  
  13. /* do not change the following */
  14. call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  15. call SysLoadFuncs
  16.  
  17. parse source dir;
  18. parse var dir x1 x2 dir;
  19. dir = filespec("D", dir)||filespec("P", dir);
  20. dir = left(dir, lastpos("\INSTALL", translate(dir)))||"wav\";
  21.  
  22. MMINI = GetBootDrive()||"\MMOS2\MMPM.INI";
  23. rc = SysINI(MMINI, "MMPM2_AlarmSounds", "555", dir||"autoshut.wav#"||ShutdownSound||"#70");
  24. rc = SysINI(MMINI, "MMPM2_AlarmSounds", "556", dir||"autoshut.wav#"||RestartWPSSound||"#70");
  25. rc = SysINI(MMINI, "MMPM2_AlarmSounds", "558", dir||"ckckk.wav#"||ContextOpenSound||"#100");
  26. rc = SysINI(MMINI, "MMPM2_AlarmSounds", "559", dir||"dudubeep.wav#"||ContextSelectSound||"#100");
  27. rc = SysINI(MMINI, "MMPM2_AlarmSounds", "560", dir||"dudubeep.wav#"||CnrSelectSound||"#100");
  28.  
  29. exit;
  30.  
  31. GetBootDrive: procedure
  32.     parse upper value VALUE( "PATH",, "OS2ENVIRONMENT" ) with "\OS2\SYSTEM" -2 boot_drive +2
  33. return boot_drive
  34.  
  35.