[Iska]

хотелось просто сделать все при помощи .reg файла, но, видно, не судьба »

Теоретически — можно, практически — нецелесообразно.

[paerpo]

Теоретически — можно, практически — нецелесообразно. »

Кому-как. Просто есть ещё требование: нужно, чтобы при установке приложения "мелькало как можно меньше черных окошек" (запись в реестр идет во время установки приложения). Поэтому и хотелось бы писать в реестр значения при помощи .reg файла, а не скрипта.

Буду признателен, если всё же кто-нибудь подскажет, как это можно попробовать сделать хотя бы теоретически, а то ничего полезного на просторах интернета найти не получилось.

[Iska]

paerpo, используйте WSH — мелькать не будет.

Например:

читать дальше »

Код:

Option Explicit

Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_LOCAL_MACHINE = &H80000002

Dim strValue


With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\default").Get("StdRegProv")
	If .GetStringValue(HKEY_LOCAL_MACHINE, "SOFTWARE\New_Prog", "Install", strValue) = 0 Then
		If .SetStringValue(HKEY_CLASSES_ROOT, "*\shell\proba\command", "", "cmd.exe /c ""start ""New_Prog"" """ & strValue & "Prog.exe"" %1""") = 0 Then
			WScript.Echo "[cmd.exe /c ""start ""New_Prog"" """ & strValue & "Prog.exe"" %1""]"
		Else
			WScript.Echo "Can't find registy path [HKEY_CLASSES_ROOT\*\shell\proba\command]."
		End If
	Else
		WScript.Echo "Can't find registy path [HKEY_LOCAL_MACHINE\SOFTWARE\New_Prog\Install]."
	End If
End With

WScript.Quit 0