[bagrat]

Rikill, вылазает

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

может чего-то у меня нет7

[Rikill]

bagrat, это твой скрипт, я всего лишь пофиксил ошибки, эта ошибка потому что у тебя не рестулзовская версия
качаешь это http://rghost.ru/4978694 кидаешь в папку с инно содержимое папок в архиве Inno Setup_ANSI - FullVCL запускаешь файл iscc в папке с инно, потом это кидаешь в папку с инно http://narod.ru/disk/7868304001/Inno...10319.rar.html а имеенно файлы из папки архива ANSI потом кидаешь в папку islanguages http://vadimsva.ucoz.org/Inno_Setup_E_rus.7z это из папки архива ANSi, запускаешь Compil32ex.exe под кнопкой закрытия нажми languages и выбери русский потом инструменты - настройки "ассоциировать с файлами .iss
всё!

[Rikill]

Neutron, будь повежливей, там ничего не вижу нигде росписи никакой, не нравится категорически сборка гнома.

Да, вроде нормальное отображение, только сверху и снизу, по краям, слишком много чёткости (завышена пикселизация). »

эт картинка такая, потом исправлю

[bagrat]

выполнил следующее скачал
http://rghost.ru/4978694 назову проще *
http://narod.ru/disk/7868304001/Inno...10319.rar.html **
http://vadimsva.ucoz.org/Inno_Setup_E_rus.7z *** далее

в папку с установленной инно сетап кидаем содержимое *, C:\Program Files\Inno Setup 5\InnoSetup_ANSI\FullVCL соглашаемся на замену файлов и запускаю файл iscc в папке FullVCL

в папку с установленной инно сетап кидаю содержимое ** только из папки ANSI следующие файлы: Compil32Ex.exe, Templates.dat , ISLanguages\*.lng

Из*** копируем файлы Russian_ansi.lng, Russian_unicode.lng в папку в ISLanguages

запускаем Compil32ex.exe ,отправить ярлык Compil32ex.exe на рабочий стол

ВОT теперь будет понятно всем

[LinkOFF]

Как сделать приоритет установки в инсталляторе(Высокий,обычный и низкий)

[VinTagE]

LinkOFF,
Тут смотри
-----------------------------------

Или вот пример от troyan90
Скачать пример

[LinkOFF]

Помогите пожалуйста присоеденить скрипт для размещения окна установки в правом нижнем углу экрана
вот сам скрипт http://rghost.ru/16317291

[ssv14]

помогите плз, уже весь мозг вывернул, как из сформированного массива по маске файлов, в процедуре Recode..., удалять строку файла перед удалением самого файла?

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

[Setup]
AppName=Recode
AppVerName=Recode
OutputDir=.
OutputBaseFilename=Recode
DefaultDirName={pf}\Recode
AppendDefaultDirName=False
DisableDirPage=True


[code]
var
Files: Array of String;
S: String;
n: Integer;

function StringToArray(Text, Cut: String): array of String;
var i, k: Integer;

begin
SetArrayLength(Result, 0);
if Cut = '' then Cut:= #1310; //если шаблон пуст, считаем переводы строк

Repeat k:=Pos(Cut,Text);
if k = 1 then begin Delete(Text, 1, Length(Cut)); CONTINUE
end;
SetArrayLength(Result, GetArrayLength(Result) +1);
i:=GetArrayLength(Result)-1;
if k = 0 then
Result[i]:=Text
else begin
Result[i]:= Copy(Text, 1, k -1);
Delete(Text, 1, Length(Result[i]) + Length(Cut));
end;
Until Length(Text) * k = 0;
end;

procedure FindFiles(FromDir: String; Mask: String);
var FindResult: Boolean;
FSR, DSR: TFindRec;

begin
FindResult:=FindFirst(AddBackslash(FromDir)+Mask, FSR);
while FindResult do begin
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then begin
S:= S + AddBackslash(fromDir) + FSR.Name +'|';
end;
FindResult:= FindNext(FSR);
end;

FindResult:= FindFirst(AddBackslash(FromDir)+ '*.*', DSR);
while FindResult do begin
if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and not ((DSR.Name = '.') or (DSR.Name = '..')) then begin
FindFiles(AddBackSlash(FromDir)+ DSR.Name, Mask);
end;
FindResult:= FindNext(DSR);
end;

FindClose(FSR);
FindClose(DSR);
end;


//-------Начало----распаковка OGG------------------------------------------------
procedure RecodeOgg;
var ResultCode: integer; CurFile: String;

begin
FindFiles(ExpandConstant('{app}\hl2\sound\'), '*.ogg'); //Находим все файлы по маске, в выбранной папке
Files:= StringToArray(S, '|'); //Переводим в массив
WizardForm.ProgressGauge.Max:= GetArrayLength(Files)-1; //Получаем кол-во файлов

for n:=(GetArrayLength(Files)-1) downto 0 do begin
CurFile:= Files[n];
StringChange(CurFile, AddBackslash(ExpandConstant('{app}\hl2\sound\')), '');
Exec(ExpandConstant('{app}\hl2\sound\oggdec.exe'), '-Q '+ AddQuotes(CurFile), '', SW_Hide, EwWaitUntilTerminated, ResultCode); //Для каждого файла запускаем декодер
DeleteFile(Files[n]); //Удаляем ненужный файл
WizardForm.FilenameLabel.Caption:= Files[n]; //Двигаем прогрессбар
WizardForm.ProgressGauge.Position:= WizardForm.ProgressGauge.Position +1;
end;

DeleteFile(ExpandConstant('{app}\hl2\sound\oggdec.exe'));
end;
//-------Конец----распаковка OGG------------------------------------------------



//-------Начало----распаковка WV ------------------------------------------------
procedure RecodeWV;
var ResultCode: integer; CurFile: String;

begin
FindFiles(ExpandConstant('{app}\hl2\sound\'), '*.wv'); //Находим все файлы по маске, в выбранной папке
Files:= StringToArray(S, '|'); //Переводим в массив
WizardForm.ProgressGauge.Max:= GetArrayLength(Files)-1; //Получаем кол-во файлов

for n:=(GetArrayLength(Files)-1) downto 0 do begin
CurFile:= Files[n];
StringChange(CurFile, AddBackslash(ExpandConstant('{app}\hl2\sound\')), '');
Exec(ExpandConstant('{app}\hl2\sound\wvunpack.exe'), '-t -q -y '+ AddQuotes(CurFile), '', SW_Hide, EwWaitUntilTerminated, ResultCode); //Для каждого файла запускаем декодер
DeleteFile(Files[n]); //Удаляем ненужный файл
WizardForm.FilenameLabel.Caption:= Files[n]; //Двигаем прогрессбар
WizardForm.ProgressGauge.Position:= WizardForm.ProgressGauge.Position +1;
end;

DeleteFile(ExpandConstant('{app}\hl2\sound\wvunpack.exe'))
end;
//-------Конец----распаковка WV ------------------------------------------------



procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
WizardForm.ProgressGauge.Position := 0;
WizardForm.StatusLabel.Caption := 'Decompressing audio files, please wait...';
RecodeOgg;
WizardForm.ProgressGauge.Position := 0;
WizardForm.StatusLabel.Caption := 'Decompressing audio files, please wait...';
RecodeWV;
end;
end;