home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December / PCWorld_2002-12_cd.bin / Software / Komercni / Baltik / katA.exe / katA / SDH / SDH_Run.js < prev    next >
Text File  |  2002-09-19  |  1KB  |  46 lines
  1. //Spusteni zadaneho Baltikova programu
  2.  
  3. //Zadali jsme potrebny parametr?
  4. if( WScript.Arguments.length == 0 ) {
  5.     //Nezadali
  6.     WScript.Echo( "Nenφ zadßn nßzev programu!" );
  7. }else{
  8.    //Zadali
  9.     
  10.     //Vytvor objekt ktery umi to, co potrebuji
  11.     var shell  = WScript.CreateObject("WScript.Shell");
  12.     
  13.     //Zjisti nazev souboru, ktery chci spustit
  14.     var bKey   = shell.RegRead( "HKCR\\.bpr\\" );
  15.     //WScript.Echo( "Nazev souboru: " + bKey );
  16.     
  17.     //Zjisti nazev klice s cestou k Baltikovi
  18.     var bbKey = shell.RegRead( "HKCR\\" + bKey + "\\shell\\" );
  19.     //WScript.Echo( "Nazev klice: " + bbKey );
  20.     
  21.     //Zjisti prikaz, kterym pruzkumnik ten program spousti
  22.     var baltie = shell.RegRead( "HKCR\\" + bKey + "\\shell\\" +
  23.                  bbKey + "\\command\\" );
  24.     //WScript.Echo( "Prikaz: " + baltie );
  25.  
  26.  
  27.    //Precti parametr = spousteny program
  28.     var pgm    = WScript.Arguments.Item(0);
  29.     //WScript.Echo( "Parametr: " + pgm );
  30.     
  31.  
  32.    //Najdi retezec, ktery potrebujeme nahradit     
  33.     var start  = baltie.indexOf( "%1" );
  34.     
  35.     //Vytvor prikaz, ktery chci spustit
  36.     var cmd    = baltie.slice( 0, start ) +
  37.                  pgm + "\" /r";
  38.     /*+*
  39.     WScript.Echo( "KlφΦ:   " + bKey + 
  40.                 "\nP°φkaz: " + baltie +
  41.                 "\nPovel:  " + cmd );
  42.     /*-*/
  43.     
  44.     //Spust vytvoreny prikaz
  45.     shell.run( cmd );
  46. }