home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 6 File / 06-File.zip / hog3.zip / hog3obj.cmd < prev    next >
OS/2 REXX Batch file  |  1996-04-06  |  3KB  |  84 lines
  1. /* Erzeugt einen HOG-Folder, EXE-Objekt und INF-Objekt */
  2.  
  3. /* Externe Funktionen laden */
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7.  
  8. say "------------------- WPS Object Create Programm-------------------------------"
  9. arg path
  10.  
  11. MIT_PARAMETER=0            /* 0: Das Objektfeld Parameter bleibt leer */
  12.                            /* 1: Das Objektfeld Parameter enthält [LW:PATH] */
  13. CR='0D0A'x
  14. Count=1                    /* C D E F */
  15.  
  16. if(path=="PATH"|path=="") then
  17. do
  18.   path=Directory()     /* Aktuellen Pfad für OBJECTID benutzen */
  19.   Say "Keine Angabe, also aktueller Pfad"
  20. end
  21.  
  22. Say "Arguments: ["||Path||"]"
  23.  
  24.  
  25. say "------------------- CREATE FOLDER -------------------------------------------"
  26. say "path" path
  27.  
  28. Klasse  ="WPFolder"                     /* Objektart: Ordner      */
  29. Titel   ="HOG3"                         /* Objekttitel            */
  30. Position="<WP_DESKTOP>"                 /* Wohin kommt das Objekt */
  31. Setup   ="OBJECTID=<HOG3__FOLDER>"       /* Folder ID              */
  32.  
  33. ret=SysCreateObject(Klasse,Titel,Position,Setup)
  34. say Klasse Titel Position Setup
  35. if ret then say " .. ok"
  36. else        say "Error"
  37.  
  38. say "------------------- CREATE INF OBJECT ---------------------------------------"
  39.  
  40. Object  =path||"\HOG3.INF"
  41. Klasse  ="WPProgram"                    /* Objektart: Programm    */
  42. Titel   ="Hog3 Help"                    /* Objekttitel            */
  43. Position="<HOG3__FOLDER>"                /* Wohin kommt das Objekt */
  44. Setup   ='PROGTYPE=PM;'||,
  45.          'EXENAME=VIEW.EXE;'||,
  46.          'PARAMETERS='Object';'||,
  47.          'OBJECTID=<'Object'>;';
  48.  
  49. ret=SysCreateObject(Klasse,Titel,Position,Setup)
  50. say Klasse Titel Position Setup
  51. if ret then say " .. ok"
  52. else        say "Error"
  53.  
  54. say "------------------- CREATE PROGAMM OBJECT -----------------------------------"
  55.  
  56. do i = 1 to count
  57.   LW=D2C(66+i)||":\"      /* 'B'+1.... */
  58.  
  59.   Object  =path||"\HOG3.EXE"
  60.   Klasse  ="WPProgram"                    /* Objektart: Programm    */
  61.   Titel   ="Hog3"                         /* Objekttitel            */
  62.   Position="<HOG3__FOLDER>"                /* Wohin kommt das Objekt */
  63.   Setup   ="EXENAME="||Object
  64.  
  65.   if MIT_PARAMETER==1 then
  66.   do
  67.      Titel   ="Hog3"||CR||"Drive "||LW       /* Objekttitel            */
  68.      Setup   ="EXENAME="||Object||";"||,
  69.               "PARAMETERS="||LW
  70.   end
  71.  
  72.   ret=SysCreateObject(Klasse,Titel,Position,Setup)
  73.   say Klasse Titel Position Setup
  74.   if ret then say " .. ok"
  75.   else        say "Error"
  76.  
  77.   say "-----------------------------------------------------------------------------"
  78.  
  79.   if MIT_PARAMETER==0 then leave;
  80.  
  81. end
  82. exit 0
  83.  
  84.