Сделать в реестре запись, которая будет отображена в окне "Установка и удаление программ"

@Bob78 · Регистрация: 24.12.2015

Студворк — интернет-сервис помощи студентам

Уважаемые профи, доброго времени суток!

Прошу помочь в решении такой задачи:

1. При появлении файлов в директории, копируем файлы в новую директорию.
2. Сделать запись в реестре на VBS Script, видимую в окне "Установка и удалении программ", откуда эту запись можно было бы удалить. При выполнении операции удаления должна быть удалена и директория-получатель файлов.

С п.1 более-менее понятно, а вот с п.2 не очень.

ОС Windows XP Proffesional SP2

Помогите плиз!
Заранее спасибо!

@Bob78 · 24.12.2015, 21:55 **[ТС]**

Вот такая задача, уточняю))

2. Сделать запись в реестре на VBS Script, видимую в окне "Установка и удалении программ" (см. вложение), откуда эту запись можно было бы удалить. При выполнении операции удаления должна быть удалена и директория, в которую был скопирован файл.

Сделать в реестре запись, которая будет отображена в окне "Установка и удаление программ"

@Bob78 · 25.12.2015, 11:45 **[ТС]**

В окне "Установка и удалении программ" запись отображается, скрипт uninstall.vbs сам по себе работает верно.

НО при попытке удаления записи через "Установка и удалении программ" возникает след. диагностика (см. скриншот), запись из "Установка и удалении программ" и реестра удаляется, но скрипт uninstall.vbs не срабатывает.

Подскажите плиз как это можно побороть?? Спасибо.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
 
Dim fso, fl, ret, WshShell, new_folder, old_folder, File, uninstall_text 
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject( "Wscript.Shell")
 
If not fso.FolderExists("c:\vre") then 
 fso.CreateFolder("c:\vre")
end if  
 
If not fso.FolderExists("c:\vre1") then 
 fso.CreateFolder("c:\vre1")
end if
 
Set old_folder= fso.GetFolder("c:\vre")
Set new_folder= fso.GetFolder("c:\vre1")
 
 
'Создаем uninstall.vbs в папке old_folder
' FSO.CreateFolder install_dir
Set File = FSO.OpenTextFile(old_folder + "\uninstall.vbs", 2, True)
uninstall_text = "Set WshShell = CreateObject(""WScript.Shell"")" & vbNewLine & _ 
"Set FSO = CreateObject(""Scripting.FileSystemObject"")" & vbNewLine & _ 
"FSO.DeleteFolder """ & new_folder & """, True" & vbNewLine & _ 
"WshShell.RegDelete ""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MySuperProg"""
File.Write uninstall_text
File.Close
 
 
              
    For Each fl In fso.GetFolder(old_folder.Path).Files     
            ret = ret & "В каталог " & Chr(34) & old_folder.Path & Chr(34) & " пришел файл " & Chr(34) & fl.Name & Chr(34) & vbCrLf
                If ret <> vbNullString Then MsgBox ret 
                      
         
            ' копируем файл в новую папку
        fso.CopyFile old_folder.Path&""& fl.Name, new_folder.Path &""& fl.Name, true
 
                WScript.Echo "Процесс копирования завершен"
                        
            ' запись в реестр
                ' WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\!1\DisplayName", new_folder.Path &""& fl.Name 
 
                  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MySuperProg\DisplayName", "Моя Супер Прога"
                  WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MySuperProg\UninstallString", """" & new_folder & "\uninstall.vbs"""
 
        WScript.Echo "Запись в реестре сделана"    
 
    Next

Dragokas · 29.12.2015, 22:04

Bob78, неверно составлена коммандная строка.
Нужно

Visual Basic
1
wscript "путь\xxx.vbs"

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Bob78 2 / 2 / 1 Регистрация: 24.12.2015 Сообщений: 8

	VBS Сделать в реестре запись, которая будет отображена в окне "Установка и удаление программ" 24.12.2015, 15:00. Показов 1805. Ответов 3 Метки vbs, реестр (Все метки) Уважаемые профи, доброго времени суток! Прошу помочь в решении такой задачи: 1. При появлении файлов в директории, копируем файлы в новую директорию. 2. Сделать запись в реестре на VBS Script, видимую в окне "Установка и удалении программ", откуда эту запись можно было бы удалить. При выполнении операции удаления должна быть удалена и директория-получатель файлов. С п.1 более-менее понятно, а вот с п.2 не очень. ОС Windows XP Proffesional SP2 Помогите плиз! Заранее спасибо! 0

@Bob78 2 / 2 / 1 Регистрация: 24.12.2015 Сообщений: 8
	24.12.2015, 21:55 [ТС]
	Вот такая задача, уточняю)) 2. Сделать запись в реестре на VBS Script, видимую в окне "Установка и удалении программ" (см. вложение), откуда эту запись можно было бы удалить. При выполнении операции удаления должна быть удалена и директория, в которую был скопирован файл. 0