Создание инсталляторов для модпаков на базе Inno Setup

[MS_RAMIS 0]

А точнее: "вот часть кода".

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

спасибо, без скина все работает ))) а что все скины так косячат или есть рабочии скины ???

 

или может в коде скин что то не так ??

 

[Files]
Source: Files\skin.cjstyles; DestDir: {app}; Attribs: hidden system
Source: Files\ISSkin.dll; DestDir: {app}; Attribs: hidden system

[Code]
procedure LoadSkin(lpszPath: PAnsiChar; lpszIniFileName: PAnsiChar); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload';
procedure UnloadSkin; external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload';

function InitializeSetup: Boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\isskin.dll')) then ExtractTemporaryFile('isskin.dll');
  if not FileExists(ExpandConstant('{tmp}\skin.cjstyles')) then ExtractTemporaryFile('skin.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\skin.cjstyles'), '');
  Result:=True;
end;

function InitializeUninstall: Boolean;
begin
  FileCopy(ExpandConstant('{app}\uninstall\isskin.dll'), ExpandConstant('{tmp}\isskin.dll'), False);
  FileCopy(ExpandConstant('{app}\uninstall\skin.cjstyles'), ExpandConstant('{tmp}\skin.cjstyles'), False);
  LoadSkin(ExpandConstant('{tmp}\skin.cjstyles'), '');
  Result:=True;
end;

 

 

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

 

а по поводу музыки что то сделать можно ??? 

Edited August 22, 2015 by MS_RAMIS

[Kotyarko_O 1,906]

 

 

а что все скины так косячат или есть рабочии скины ?

А кто сказал, что это они косячат?

Это вообще-то из-за неправильно построенного кода.

 

 

 

а по поводу музыки что то сделать можно ?

Можно.

[MS_RAMIS 0]

 

 

А кто сказал, что это они косячат? Это вообще-то из-за неправильно построенного кода.

 

подскажите если не затруднит, как это исправить? где и что изменить ?    

извините просто я не ас... 

[Kotyarko_O 1,906]

 

 

подскажите если не затруднит, как это исправить? где и что изменить ?

Для начала, неплохо было бы увидеть часть скрипта, отвечающую за скин.

[MS_RAMIS 0]

код скин писал уже выше, вот еще раз

[Files]
Source: Files\skin.cjstyles; DestDir: {app}; Attribs: hidden system
Source: Files\ISSkin.dll; DestDir: {app}; Attribs: hidden system

[Code]
procedure LoadSkin(lpszPath: PAnsiChar; lpszIniFileName: PAnsiChar); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload';
procedure UnloadSkin; external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload';

function InitializeSetup: Boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\isskin.dll')) then ExtractTemporaryFile('isskin.dll');
  if not FileExists(ExpandConstant('{tmp}\skin.cjstyles')) then ExtractTemporaryFile('skin.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\skin.cjstyles'), '');
  Result:=True;
end;

function InitializeUninstall: Boolean;
begin
  FileCopy(ExpandConstant('{app}\uninstall\isskin.dll'), ExpandConstant('{tmp}\isskin.dll'), False);
  FileCopy(ExpandConstant('{app}\uninstall\skin.cjstyles'), ExpandConstant('{tmp}\skin.cjstyles'), False);
  LoadSkin(ExpandConstant('{tmp}\skin.cjstyles'), '');
  Result:=True;
end;

могу еще и файлы isskin.dll и дать skin.cjstyles если нужно  Edited August 22, 2015 by MS_RAMIS

[Kotyarko_O 1,906]

@MS_RAMIS, должно быть так:

[Files]
Source: Files\skin.cjstyles; DestDir: {app}; Attribs: hidden
Source: Files\ISSkin.dll; DestDir: {app}; Attribs: hidden

[Code]
procedure LoadSkin(lpszPath: PAnsiChar; lpszIniFileName: PAnsiChar); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload';
procedure UnloadSkin; external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload';
procedure UninstLoadSkin(lpszPath: string; lpszIniFileName: string); external 'LoadSkin@{app}\ISSkin.dll stdcall uninstallonly';
procedure UninstUnloadSkin(); external 'UnloadSkin@{app}\ISSkin.dll stdcall uninstallonly';
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external '[email protected] stdcall';

function InitializeSetup(): Boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\ISSkin.dll')) then ExtractTemporaryFile('ISSkin.dll');
  if not FileExists(ExpandConstant('{tmp}\skin.cjstyles')) then ExtractTemporaryFile('skin.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\skin.cjstyles'), '');
  Result := True;
end;

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

Function InitializeUninstall(): Boolean;
begin
 Result := True;
 UninstLoadSkin(ExpandConstant('{app}\skin.cjstyles'), ''); 
end;

Procedure DeinitializeUninstall();
begin
 UninstUnloadSkin();
 UnloadDLL(ExpandConstant('{app}\ISSkin.dll'));
 DeleteFile(ExpandConstant('{app}\ISSkin.dll'));
 DeleteFile(ExpandConstant('{app}\skin.cjstyles'));
end;

Edited August 22, 2015 by Kotyarko_O

[MS_RAMIS 0]

выдает ошибку 

 

[Kotyarko_O 1,906]

выдает ошибку 

Такую мелочь и сам мог исправить.

з.ы. подправил пример выше.

[-zav- 188]

Кто что думает по этому поводу?

У меня и у многих других всё нормально отображает

Edited August 24, 2015 by -zav-

[Yusha 8]

Кто что думает по этому поводу?

Кодировка. Обычно такое у пользователей с другой ОС... типа Европейцев.

Осмелюсь предположить, что используется языковой пакет или кастом месседж? Кодировку там проверяйте.

Edited August 25, 2015 by Yusha

[Kotyarko_O 1,906]

 

 

Кто что думает по этому поводу?

Собран на юникоде?

[-zav- 188]

Собран на юникоде?

Сам инно - юникод расширенный. Файл  test.iss  был в двух вариантах, на кириллице  и UTF-8 ,  в обоих случаях именно у этого товарища кракозябры.

Говорит что винда 8  рус

Edited August 25, 2015 by -zav-

[Kotyarko_O 1,906]

 

 

Сам инно - юникод расширенный.

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

[ADBokaT57 17]

Кто что думает по этому поводу?

В [CustomMessages] прописываешь? Или сразу в коде?

[-zav- 188]

В [CustomMessages] прописываешь? Или сразу в коде?

В коде.   Вопрос решился. У этого товарища всё таки европейская винда оказалась. Переключил на русский для программ и всё нормально стало.

[ADBokaT57 17]

В коде.   Вопрос решился. У этого товарища всё таки европейская винда оказалась. Переключил на русский для программ и всё нормально стало.

По-хорошему нужно все фразы в коде прописать в [CustomMessages], тогда такой проблемы не будет.

[Yusha 8]

 

 

Обычно такое у пользователей с другой ОС... типа Европейцев

 

 

Вопрос решился. У этого товарища всё таки европейская винда оказалась

 

 

"О" - опыт. 

Но вы нашли причину, но не устранили ее.

[-zav- 188]

 

 

"О" - опыт. 

Но вы нашли причину, но не устранили ее.

 

И как я её могу устранить? Подскажите.

[AtotIK 580]

Съездить и переустановить ему систему.

[ADBokaT57 17]

И как я её могу устранить? Подскажите.

 

 

По-хорошему нужно все фразы в коде прописать в [CustomMessages], тогда такой проблемы не будет.