MS_RAMIS Posted August 22, 2015 Share Posted August 22, 2015 (edited) А точнее: "вот часть кода". Проблема не в этом куске. Т.к. вижу подключаемый скрипт скина, то полагаю, что в нём скорее всего и проблема. спасибо, без скина все работает ))) а что все скины так косячат или есть рабочии скины ??? или может в коде скин что то не так ?? [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 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 22, 2015 Share Posted August 22, 2015 а что все скины так косячат или есть рабочии скины ? А кто сказал, что это они косячат?Это вообще-то из-за неправильно построенного кода. а по поводу музыки что то сделать можно ? Можно. @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted August 22, 2015 Share Posted August 22, 2015 А кто сказал, что это они косячат? Это вообще-то из-за неправильно построенного кода. подскажите если не затруднит, как это исправить? где и что изменить ? извините просто я не ас... @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 22, 2015 Share Posted August 22, 2015 подскажите если не затруднит, как это исправить? где и что изменить ? Для начала, неплохо было бы увидеть часть скрипта, отвечающую за скин. @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted August 22, 2015 Share Posted August 22, 2015 (edited) код скин писал уже выше, вот еще раз [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 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 22, 2015 Share Posted August 22, 2015 (edited) @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 1 @ Quote Link to comment Short link Share on other sites More sharing options...
MS_RAMIS Posted August 22, 2015 Share Posted August 22, 2015 выдает ошибку @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 22, 2015 Share Posted August 22, 2015 выдает ошибку Такую мелочь и сам мог исправить. з.ы. подправил пример выше. @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted August 24, 2015 Share Posted August 24, 2015 (edited) Кто что думает по этому поводу? У меня и у многих других всё нормально отображает Edited August 24, 2015 by -zav- @ Quote Link to comment Short link Share on other sites More sharing options...
Yusha Posted August 25, 2015 Share Posted August 25, 2015 (edited) Кто что думает по этому поводу? Кодировка. Обычно такое у пользователей с другой ОС... типа Европейцев. Осмелюсь предположить, что используется языковой пакет или кастом месседж? Кодировку там проверяйте. Edited August 25, 2015 by Yusha @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 25, 2015 Share Posted August 25, 2015 Кто что думает по этому поводу? Собран на юникоде? @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted August 25, 2015 Share Posted August 25, 2015 (edited) Собран на юникоде? Сам инно - юникод расширенный. Файл test.iss был в двух вариантах, на кириллице и UTF-8 , в обоих случаях именно у этого товарища кракозябры. Говорит что винда 8 рус Edited August 25, 2015 by -zav- @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 25, 2015 Share Posted August 25, 2015 Сам инно - юникод расширенный. Ну тогда настройка региональных стандартов вряд ли чем-то поможет, но всё же, можно попробовать выставить русский язык для программ, не поддерживающих юникод. @ Quote Link to comment Short link Share on other sites More sharing options...
ADBokaT57 Posted August 26, 2015 Share Posted August 26, 2015 Кто что думает по этому поводу? В [CustomMessages] прописываешь? Или сразу в коде? @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted August 26, 2015 Share Posted August 26, 2015 В [CustomMessages] прописываешь? Или сразу в коде? В коде. Вопрос решился. У этого товарища всё таки европейская винда оказалась. Переключил на русский для программ и всё нормально стало. @ Quote Link to comment Short link Share on other sites More sharing options...
ADBokaT57 Posted August 26, 2015 Share Posted August 26, 2015 В коде. Вопрос решился. У этого товарища всё таки европейская винда оказалась. Переключил на русский для программ и всё нормально стало. По-хорошему нужно все фразы в коде прописать в [CustomMessages], тогда такой проблемы не будет. @ Quote Link to comment Short link Share on other sites More sharing options...
Yusha Posted August 26, 2015 Share Posted August 26, 2015 Обычно такое у пользователей с другой ОС... типа Европейцев Вопрос решился. У этого товарища всё таки европейская винда оказалась "О" - опыт. Но вы нашли причину, но не устранили ее. @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted August 26, 2015 Share Posted August 26, 2015 "О" - опыт. Но вы нашли причину, но не устранили ее. И как я её могу устранить? Подскажите. @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted August 26, 2015 Share Posted August 26, 2015 Съездить и переустановить ему систему. @ Quote Link to comment Short link Share on other sites More sharing options...
ADBokaT57 Posted August 26, 2015 Share Posted August 26, 2015 И как я её могу устранить? Подскажите. По-хорошему нужно все фразы в коде прописать в [CustomMessages], тогда такой проблемы не будет. @ Quote Link to comment Short link Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.