home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / wsh.cab / shortcut.js < prev    next >
Text File  |  1997-12-05  |  2KB  |  64 lines
  1. // Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows
  2. //
  3. // ------------------------------------------------------------------------
  4. //               Copyright (C) 1996-1997 Microsoft Corporation
  5. //
  6. // Klient posiada pe│ne prawa do u┐ywania, modyfikowania, reprodukowania
  7. // i dystrybucji plik≤w przyk│adowych aplikacji (i/lub dowolnej 
  8. // ich zmodyfikowanej wersji), w spos≤b dla niego u┐yteczny, pod warunkiem 
  9. // zaakceptowania faktu, i┐ firma Microsoft nie zapewnia gwarancji i nie 
  10. // ponosi odpowiedzialno£ci za pliki przyk│adowych aplikacji.
  11. // ------------------------------------------------------------------------
  12.  
  13.  
  14. // Ten przyk│ad demonstruje w jaki spos≤b u┐ywaµ obiektu WshShell
  15. // w celu utworzenia skr≤tu na pulpicie
  16.  
  17. var vbOKCancel = 1;
  18. var vbInformation = 64;
  19. var vbCancel = 2;
  20.  
  21. var L_Welcome_MsgBox_Message_Text   = "Ten skrypt tworzy na pulpicie skr≤t do programu Notatnik.";
  22. var L_Welcome_MsgBox_Title_Text     = "Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows";
  23. Welcome();
  24.  
  25. // ********************************************************************************
  26. // *
  27. // * Metody powi╣zane ze skr≤tami
  28. // *
  29.  
  30. var WSHShell = WScript.CreateObject("WScript.Shell");
  31.  
  32.  
  33. // Odczytanie £cie┐ki przy u┐yciu obiektu WshSpecialFolders
  34. var DesktopPath = WSHShell.SpecialFolders("Desktop");
  35.  
  36. // Utworzenie obiektu skr≤tu na pulpicie
  37. var MyShortcut = WSHShell.CreateShortcut(DesktopPath + "\\Skr≤t do Notatnik.lnk");
  38.  
  39. // Ustaw w│a£ciwo£ci obiektu shortcut i zapisz je
  40. MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\\notepad.exe");
  41. MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%");
  42. MyShortcut.WindowStyle = 4;
  43. MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\\notepad.exe, 0");
  44. MyShortcut.Save();
  45.  
  46. WScript.Echo("Skr≤t do programu Notatnik zosta│ umieszczony na twoim pulpicie.");
  47.  
  48. //////////////////////////////////////////////////////////////////////////////////
  49. //
  50. // Witamy
  51. //
  52. function Welcome() {
  53.     var WSHShell = WScript.CreateObject("WScript.Shell");
  54.     var intDoIt;
  55.  
  56.     intDoIt =  WSHShell.Popup(L_Welcome_MsgBox_Message_Text,
  57.                               0,
  58.                               L_Welcome_MsgBox_Title_Text,
  59.                               vbOKCancel + vbInformation );
  60.     if (intDoIt == vbCancel) {
  61.         WScript.Quit();
  62.     }
  63. }
  64.