[Sotonisto]

CrOsP, спасиб - помогло

подскажите почему может не подхватывать стиль? [Files] Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: steam.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Windows 7 x64 версия Inno 5.3.7 (u) »

Это просто даже для такого как я

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

[Files]
Source: "D:\Programs\ISSkin\ISSkin.dll"; DestDir: {app}; Flags: dontcopy
Source: "D:\My Skin\steam.cjstyles"; DestDir: {tmp}; Flags: dontcopy

[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('steam.cjstyles');
LoadSkin(ExpandConstant('{tmp}\steam.cjstyles'), '');
Result := True;
end;

procedure DeinitializeSetup();
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
UnloadSkin();
end;

[Serega]

подскажите почему может »

Ошибка в 15 строке, неверный параметр... скрипт покажите или те строки, как вы экспортируете и загружаете скин.

Не хватает в Converter 0.1.3 пакетной обработки »

Я думаю это не критично и считаю не проблемой объединить два рег-файла в один в ручную, это не утилита для объединения рег-файлов, а конвертирование reg в iss.

[Jerichoman]

Скажите, пожалуйста, если precomp для лучшего сжатия файлов, то почему

будут файлы не .ff af_caves.pcf он будет весит больше значит он разжал этот файл

или потом во FreeArc эти файлы лучше сожмутся?

[REXE]

Пожалуйста подскажите в этом коде,мне надо чтобы текст в документе который сделается в некоторых местах переходил на новую строку

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

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:My Program.

[UninstallDelete]
Type: files; Name: "{app}\autoexec.cfg";

[code]
var
Page: TInputQueryWizardPage;

procedure InitializeWizard();
begin
Page := CreateInputQueryPage(wpWelcome, 'Текст_1', 'Текст_2', 'Введите ник для сетевой игры');
Page.Add('', False);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
SaveStringToFile(ExpandConstant('{app}\autoexec.cfg'), 'name ' + '"' + Page.Values[0] + '"' + #13#10, False);
end;

[Habetdin]

REXE, перенос строки - это

#13#10 »

[Sotonisto]

Люди, кто может дать скрипт вот такого инсталла

[Tukash]

Скажите, пожалуйста, если precomp для лучшего сжатия файлов, то почему Цитата: будут файлы не .ff af_caves.pcf он будет весит больше значит он разжал этот файл или потом во FreeArc эти файлы лучше сожмутся? »

да, сначала он как-бы "распаковывает" файл, а потом фриарком запаковываешь и получаеться меньший размер!

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

[CrOsP]

Sotonisto,

[Setup] AppName=My Program AppVerName=My Program v 1.5 DefaultDirName={pf}\My Program OutputDir=. Compression=lzma/ultra InternalCompressLevel=ultra SolidCompression=yes [Languages] Name: rus; MessagesFile: compiler:Languages\Russian.isl [code] var lbl1, lbl2, lbl3, lbl4, lbl5: TLabel; procedure initializeWizard(); begin WizardForm.PageDescriptionLabel.Hide; // создаём Label'ы, на который вешаем ссылку lbl1:= TLabel.Create(WizardForm); with lbl1 do begin AutoSize:= False; SetBounds(20, 40, 50, 13); Caption:= '|'; Transparent:= True; Parent:= WizardForm.MainPanel; end; lbl2:= TLabel.Create(WizardForm); with lbl2 do begin AutoSize:= False; SetBounds(50, 40, 50, 13); Caption:= 'lbl2'; Transparent:= True; Parent:= WizardForm.MainPanel; end; lbl3:= TLabel.Create(WizardForm); with lbl3 do begin AutoSize:= False; SetBounds(100, 40, 50, 13); Caption:= '|'; Transparent:= True; Parent:= WizardForm.MainPanel; end; lbl4:= TLabel.Create(WizardForm); with lbl4 do begin AutoSize:= False; SetBounds(130, 40, 50, 13); Caption:= 'lbl4'; Transparent:= True; Parent:= WizardForm.MainPanel; end; lbl5:= TLabel.Create(WizardForm); with lbl5 do begin AutoSize:= False; SetBounds(180, 40, 50, 13); Caption:= '|'; Transparent:= True; Parent:= WizardForm.MainPanel; end; end; procedure CurPageChanged(CurPageID: Integer); begin if CurPageID = wpSelectDir then begin lbl1.Font.Color:= clBlack; lbl1.Font.Style:= [fsBold]; lbl2.Font.Color:= clBlack; lbl2.Font.Style:= [fsBold]; lbl3.Font.Color:= clBlack; lbl3.Font.Style:= [fsBold]; lbl4.Font.Color:= clGray; lbl4.Font.Style:= []; lbl5.Font.Color:= clGray; lbl5.Font.Style:= []; end; if CurPageID = wpReady then begin lbl1.Font.Color:= clGray; lbl1.Font.Style:= []; lbl2.Font.Color:= clGray; lbl2.Font.Style:= []; lbl3.Font.Color:= clBlack; lbl3.Font.Style:= [fsBold]; lbl4.Font.Color:= clBlack; lbl4.Font.Style:= [fsBold]; lbl5.Font.Color:= clBlack; lbl5.Font.Style:= [fsBold]; end; end;

[Sotonisto]

Sotonisto прилепил что просил!»

Народ, не бы хотелось как нить к кнопкам выбора языка (от инсталла NFS) прикрепить распаковку озвучки
Ну кароч если выбрали Русскую озвучку для видео - в папку скопировался и распаковывался 7z SFX архив, а если выбирали английскую - просто шла установка без распаковки.
Но там с этими кнопками я мозк сломаю Сейчас они у меня "для прикола" - ничего не происходит если выбрать одну из них, а хотелось бы что бы работало

[Jerichoman]

Tukash,
И еще вопрос Это можно только каждый файл так или можно как-то всю папку целиком? И какие файлы лучше всего precomp'ить?