KLASS
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
пример файла about.reg:
Код:
REGEDIT4
; регистрируем новый тип файлов, с расширением .prog
[HKEY_CLASSES_ROOT\.prog]
@="progfile"
; для этого типа файлов прописываем в меню "Создать" подменю "About"
[HKEY_CLASSES_ROOT\.prog\ShellNew]
"NullFile"=""
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\progfile]
@="About"
; иконка у нового типа файлов
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\progfile\DefaultIcon]
@=hex(2):25,53,79,73,74,65,6d,52,6f,6f,74,25,5c,53,79,73,74,65,6d,33,32,5c,73,\
68,65,6c,6c,33,32,2e,64,6c,6c,2c,2d,31,35,31,00
; открываем этот тип файлов блокнотом
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\progfile\shell\open\command]
@=hex(2):25,53,79,73,74,65,6d,52,6f,6f,74,25,5c,73,79,73,74,65,6d,33,32,5c,4e,\
4f,54,45,50,41,44,2e,45,58,45,20,25,31,00
|
В итоге будет создаваться файл About.prog.
Можно усложнить, например, чтобы создаваемый текстовый документ имел ВСЕГДА имя_файла для которого этот текстовый документ создается:
Для этого пишем пару файлов:
файл note.vbs
Код:
Dim fso, sFile, nFile, WshShell , f
If WScript.Arguments.Count = 1 Then
Set fso = CreateObject("Scripting.FileSystemObject")
sFile= WScript.Arguments.Item(0)
nFile=Replace(sFile, fso.GetExtensionName(sFile), "txt")
Set f = fso.OpenTextFile(nFile, 2, true)
f.Write ""
f.Close
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\Windows\Notepad.exe " & nFile, 1, false
Set fso = Nothing
Set WshShell = Nothing
End If
WScript.Quit
|
А вторым файлом, назовем его note.reg, прописываем в реестре пути к первому
Код:
REGEDIT4
[HKEY_CLASSES_ROOT\*\shell\Описание файла\command]
@="wscript.exe \"Диск:\\путь\\к\\файлу\\note.vbs\" \"%L\" //B"
|
Теперь, при клике правой кнопкой на любом файле, будет меню "Описание файла", при нажатии на которое, получаем Текстовый документ с именем файла на котором клацнули.
|
