[fantik]

Black Babay

Думаю, по коду поймешь :

Код:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.1.1.0
 Author:         fantik

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------
#include <File.au3>
; Script Start - Add your code below here

if $CmdLine[0] = 0 Then 
	Run ( "regedit.exe" );
ElseIf $CmdLine[0] = 1 Then
	
	$file = FileOpen ( $CmdLine[1], 0 );
	if $file = -1 Then Exit ;
	$text = FileRead ( $file );
	FileClose ( $file ) ;
	
	$text = StringReplace ( $text, "%ProgramFiles%", @ProgramFilesDir ) ;
	$text = StringReplace ( $text, "%ProgramFilesDblSlash%", StringReplace (@ProgramFilesDir, '\', '\\') ) ;
	
	$text = StringReplace ( $text, "%Windows%", @WindowsDir ) ;
	$text = StringReplace ( $text, "%WindowsDblSlash%", StringReplace (@WindowsDir, '\', '\\') ) ;
	
	$text = StringReplace ( $text, "%System%", @SystemDir ) ;
	$text = StringReplace ( $text, "%SystemDblSlash%", StringReplace (@SystemDir, '\', '\\') ) ;
	
	$text = StringReplace ( $text, "%SystemRoot%", @WindowsDir ) ;
	$text = StringReplace ( $text, "%SystemRootDblSlash%", StringReplace (@WindowsDir, '\', '\\') ) ;
	
	$temp = _TempFile(@TempDir, "reg_", ".reg") ;
	$file = FileOpen ( $temp, 2 );
	if $file = -1 Then 
		MsgBox  ( 0, "Ошибка", "Чёртов файл $temp не может быть создан" ) ;
		Exit ;
	EndIf
	FileWrite ( $file, $text );
	FileClose ( $file ) ;
	
	RunWait('regedit.exe /s "'&$temp&'"') ;
	
	FileDelete ( $temp ) ;
	
EndIf

Нужная программа только в том случае, если не пользоваться InnoSetup. Так как в нём уже додумал скрипт, который делает то же самое, но красивее, так как в Inno есть много хорошо реализованных вещей. Тестирую.