home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 December (Special) / PCWorld_2004-12_Special_cd.bin / Windows / tipyatriky / tipyatriky.exe / deskini.vbs < prev    next >
Text File  |  2003-07-13  |  3KB  |  77 lines
  1. set MyShell = CreateObject("Wscript.Shell")
  2. set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. windir = MyShell.ExpandEnvironmentStrings("%WINDIR%")
  4.  
  5.  
  6. If Wscript.Arguments.Count = 0 Then
  7.     WoBinIch=Wscript.ScriptFullName
  8.     MyFiles.CopyFile WoBinIch, windir & "\"
  9.     If Not KeyExists("HKCR\directory\shell\desktop.ini\") Then
  10.         MyShell.RegWrite "HKCR\directory\shell\desktop.ini\", "Na&stavenφ slo₧ky"
  11.         MyShell.RegWrite "HKCR\directory\shell\desktop.ini\Command\", "wscript.exe " & Windir & "\deskini.vbs " & Chr(34) & "%1" & Chr(34) & ""
  12.         MsgBox "RozÜφ°enß nastavenφ slo₧ky byla ·sp∞Ün∞ nainstalovßna. V kontextovΘm menu ka₧dΘ slo₧ky se objevφ novß polo₧ka " & Chr(34) & "Nastavenφ slo₧ky" & Chr(34) & ", s nφ₧ m∙₧ete editovat soubor Desktop.ini libovolnΘ slo₧ky", 64, "Skript PC WORLDu: RozÜφ°enß nastavenφ slo₧ky"
  13.     Else
  14.         MyShell.RegDelete("HKCR\directory\shell\desktop.ini\Command\")
  15.         MyShell.RegDelete("HKCR\directory\shell\desktop.ini\")
  16.         MsgBox "RozÜφ°enß nastavenφ slo₧ky byla ·sp∞Ün∞ odinstalovßna", 64, "Skript PC WORLDu: Odinstalovßnφ rozÜφ°enφ slo₧ek"
  17.  
  18.     End If
  19.     wscript.quit
  20. End if
  21.  
  22. eingabe=wscript.arguments(0)
  23.  
  24. If Not MyFiles.FileExists(Eingabe & "\desktop.ini") Then
  25. Set DesktopINI = MyFiles.CreateTextFile(Eingabe & "\desktop.ini", False)
  26. DesktopINI.WriteLine "[.ShellClassInfo]"
  27. DesktopINI.WriteLine "InfoTip="
  28. DesktopINI.WriteLine "IconFile="
  29. DesktopINI.Writeline "IconIndex="
  30. DesktopINI.WriteLine "ConfirmFileOp=0"
  31. DesktopINI.WriteLine
  32. DesktopINI.WriteLine ";Tato Üablona vßm nabφzφ nejb∞₧n∞jÜφ konfiguraci Desktop.INI:"
  33. DesktopINI.WriteLine ";"
  34. DesktopINI.WriteLine ";InfoTip="
  35. DesktopINI.WriteLine ";Sem m∙₧ete napsat popis nastavenφ."
  36. DesktopINI.WriteLine ";Nap°φklad: InfoTip=Moje slo₧ka"
  37. DesktopINI.WriteLine ";"
  38. DesktopINI.WriteLine ";IconFile="
  39. DesktopINI.WriteLine ";Tento °ßdek udßvß soubor, jeho₧ ikona mß b²t p°i°azena tΘ slo₧ce,"
  40. DesktopINI.WriteLine ";ve kterΘ le₧φ soubor Desktop.INI."
  41. DesktopINI.WriteLine ";Nap°φklad: IconFile=C:\WINDOWS\SYSTEM\SHELL32.DLL"
  42. DesktopINI.WriteLine ";"
  43. DesktopINI.WriteLine ";IconIndex="
  44. DesktopINI.WriteLine ";Z ka₧dΘho souboru ikon, kter² je napsßn za polo₧kou IconFile=, musφ"
  45. DesktopINI.WriteLine ";b²t vybrßna konkrΘtnφ ikona. ╚φslovßnφ ikon zaΦφnß nulou."
  46. DesktopINI.WriteLine ";Nap°φklad: IconIndex=12"
  47. DesktopINI.WriteLine ";"
  48. DesktopINI.WriteLine ";Poslednφ °ßdek s ConfirmFileOP=0 nenφ bezpodmφneΦn∞ nutn²,"
  49. DesktopINI.WriteLine ";ale nem∞l by b²t odstra≥ovßn, proto₧e potlaΦuje chybovΘ hlßÜenφ,"
  50. DesktopINI.WriteLine "; pokud by se slo₧ka odstra≥ovala."
  51. DesktopINI.Close
  52. End If
  53.  
  54.  
  55. set handle = MyFiles.GetFolder(Eingabe)
  56. n=handle.attributes 
  57. x = n - 16             
  58. if x - 32 => 0 then x = x - 32
  59. if x mod 2 = 1 then x = x - 1
  60. if x < 4 then handle.attributes = n + 4
  61. n=handle.attributes
  62.  
  63.  
  64. MyShell.Run windir & "\notepad.exe " & Eingabe & "\desktop.ini"
  65.  
  66.  
  67. Function KeyExists(key)
  68. on error resume next
  69. wert = MyShell.RegRead(key)
  70. if err.Number=0 then
  71.     KeyExists = true
  72. else
  73.     KeyExists = false
  74. err.Clear
  75. end if
  76. end function
  77.