Inno Setup. Сделайте за меня

Статус
В этой теме нельзя размещать новые ответы.
A

assembler

Новичок
Компоненты(выбор языков,кряки) при тестовом прогоне распаковываются все вместе, а при ручной вписании процентов, не распаковываются вообще нечего. Не пойму, что прописать ,что-бы по отдельности распаковались?

Нужен, понятливый и четкий ответ. Спасибо!


if not ISArcExtract ( 1, 0, ExpandConstant('{src}\G1.bin'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;

if not ISArcExtract ( 2, 0, ExpandConstant('{src}\G2.bin'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;



[Default options]

[Compression methods]

[External compressor:srep]
packcmd = srep {options} $$arcdatafile$$.tmp $$arcpackedfile$$.tmp
unpackcmd = srep -d - - <stdin> <stdout>
 
Последнее редактирование:
PUNISHER

PUNISHER

Участник
assembler,
Код: 
if not ISArcExtract ( 1, 25, ExpandConstant('{src}\G1.bin'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break; 

if not ISArcExtract ( 2, 25, ExpandConstant('{src}\G2.bin'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
вот так вот прописываешь если с процентами.

а при тестовом прогоне все правильно происходит, т.е распаковка всех компонентов. после тестового прогона кладешь рядом со скриптом файл records.inf и в скрипте перед #define records убираешь точку с запятой. после чего компилируешь новый инсталлятор и кладешь со своими архивами.
 
A

assembler

Новичок
PUNISHER написал(а):
assembler,
Код: 
if not ISArcExtract ( 1, 25, ExpandConstant('{src}\G1.bin'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break; 

if not ISArcExtract ( 2, 25, ExpandConstant('{src}\G2.bin'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
вот так вот прописываешь если с процентами.

а при тестовом прогоне все правильно происходит, т.е распаковка всех компонентов. после тестового прогона кладешь рядом со скриптом файл records.inf и в скрипте перед #define records убираешь точку с запятой. после чего компилируешь новый инсталлятор и кладешь со своими архивами.
Нажмите для раскрытия...
Сейчас попробую... спасибо за ответ,PUNISHER!

Попробовал, Не получилось!!!
 
Последнее редактирование:
AVG

AVG

Новичок
Подскажите плиз как прописать чтобы после установки удалялись выбранные файлы?
 
Mailchik

Mailchik

Старожил
Проверенный
AVG,
[SOURCE="inno"][Setup]
AppName=Test
AppVerName=Test v1.0
DefaultDirName={pf}\Test

[Files]
Source: {win}\help\*; DestDir: {app}\; Flags: external recursesubdirs

Код: 
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then begin
    DeleteFile(ExpandConstant('{app}\amovie.hlp'));
  end;
end; [/SOURCE][/SPOILER]
 
Последнее редактирование:
  • Like
Реакции: AVG
A

assembler

Новичок
Компоненты выбора таблетки,языков в тестовом режиме распаковываются и все создается, а в нормальном режиме не распаковывается, вообще... и при тестовой и обычной распаковке дорожка прогресс бара доходит до 75% и стоит а процесс распаковки продолжается...

Вот скрипт и исдан(скрипт):


http://rghost.ru/40213554
 
STALKER-56

STALKER-56

Мимокрокодил
Добрый вечер можете научить пользоваться с botva2
 
Последнее редактирование:
Evilboy

Evilboy

Новичок
Can anyone plz tell me the code for thing like If i made a simple installer and want to add a cjstyle to it.

Any idea how to do that!!
 
STALKER-56

STALKER-56

Мимокрокодил
Evilboy написал(а):
Can anyone plz tell me the code for thing like If i made a simple installer and want to add a cjstyle to it.

Any idea how to do that!!
Нажмите для раскрытия...
Style or what? here's the code.
[SOURCE="inno"][Files]
Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: steam.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

sortfilesbyextension

[Icons]
Name: "{group}\{cm:UninstallProgram,1}"; Filename: "{uninstallexe}"

[UninstallDelete]
Type: filesandordirs; Name: "{app}"

Код: 
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 InitializeWizard;
begin
  WizardForm.BeveledLabel.Enabled:=True;
end;

procedure DeinitializeSetup;
begin
  ShowWindow(WizardForm.Handle,0);
  UnloadSkin();
end;[/SOURCE][/SPOILER]
 
LexBell

LexBell

Борода
Супер модератор
assembler, убери соответствующие компоненты просто.
 
A

assembler

Новичок
Gnom написал(а):
assembler, убери соответствующие компоненты просто.
Нажмите для раскрытия...

Если я убираю соответствующие компоненты, то те компоненты которые мне нужны, чтобы распаковывались они не распакуются!
[MOD="Gnom"]Прочитай справку к исдону. ВНИМАТЕЛЬНО. Посмотри правильность привязки компонентов к распаковке.[/MOD]

Добавлено через 6 минут
assembler написал(а):
Если я убираю соответствующие компоненты, то те компоненты которые мне нужны, чтобы распаковывались они не распакуются!
Прочитай справку к исдону. ВНИМАТЕЛЬНО. Посмотри правильность привязки компонентов к распаковке.
Нажмите для раскрытия...
Читали уже, но смысла нет! Если знайте ответ, или как помочь могите не ссылайте к исдону

будьте добры!

Может как то их скрыть или в скрипте надо что то подправить...?

Gnom
Я заплачу, если нужно.
 
LexBell

LexBell

Борода
Супер модератор
assembler, нужно удалить ненужные компоненты и проверить правильность привязки компонентов к распаковке.
Это все, что нужно сделать.
assembler написал(а):
Я заплачу, если нужно.
Нажмите для раскрытия...
Чтобы заплатить мне - у тебя не хватит денег. за подачки в 100 рублей я не работаю.
 
Evilboy

Evilboy

Новичок
STALKER-56 написал(а):
Style or what? here's the code.
[SOURCE="inno"][Files]
Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: steam.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

sortfilesbyextension

[Icons]
Name: "{group}\{cm:UninstallProgram,1}"; Filename: "{uninstallexe}"

[UninstallDelete]
Type: filesandordirs; Name: "{app}"

Код: 
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 InitializeWizard;
begin
  WizardForm.BeveledLabel.Enabled:=True;
end;

procedure DeinitializeSetup;
begin
  ShowWindow(WizardForm.Handle,0);
  UnloadSkin();
end;[/SOURCE][/SPOILER][/QUOTE]
getting this error:[url]http://imgur.com/Bg0FM[/url]
Нажмите для раскрытия...
 
A

assembler

Новичок
Gnom написал(а):
assembler, нужно удалить ненужные компоненты и проверить правильность привязки компонентов к распаковке.
Это все, что нужно сделать.

Чтобы заплатить мне - у тебя не хватит денег. за подачки в 100 рублей я не работаю.
Нажмите для раскрытия...
Покажи на скрипте пример, пожалуйста..
Потому что я проверял и делал так но результат 0


Скрипт: http://rghost.ru/40226453

IsDone.iss http://rghost.ru/40226446
 
LexBell

LexBell

Борода
Супер модератор
Evilboy, че непонятного-то. тебе на твоем родном языке пишется, что ошибка в линии 60 знак 1, неверное значение. а если ты своего родного языка не понимаешь, пиши на русском, чтоб хотя-бы остальным было понятно.
 
Статус
В этой теме нельзя размещать новые ответы.
Сверху