Вопрос Вопрос по переделыванию скрипта L.A. Noire 0.0.1.8

agrei678

Новичок
vint56,
;Название игры
#define appname "The Elder Scrolls V. Skyrim"
;Версия игры
#define appver "1.4.27.0.4"
;Ваш ник
#define RePacker "Степаныч"
;Exe
#define exe "SkyrimLauncher.exe"
;Реестр
;#define Registry
;Сколько требуется для установки
#define NeedSize "5000000000"

#define Splash /* Отключить или включить сплэш */

#define NeedMem 512
#define SecondProgressBar
#define Components
#define records
#define facompress

;#define PrecompInside
;#define SrepInside
;#define MSCInside
;#define precomp "0.42"
;#define unrar
;#define XDelta
;#define PackZIP

[Setup]
AppId={{49BA2453-69E4-4985-A03A-CD7FC9A69E14}
AppName={#appname}
AppVerName={#appname} v{#appver}
DefaultDirName={pf}\{#appname}
DefaultGroupName=Games\{#appname}
AllowNoIcons=yes
OutputDir=.
ShowTasksTreeLines=yes
OutputBaseFilename={#appname}
VersionInfoCopyright={#RePacker}
VersionInfoDescription={#appname} / RePack by {#RePacker}
WizardImageFile=Files\164x314.bmp
WizardSmallImageFile=Files\55x58.bmp
#ifdef NeedSize
ExtraDiskSpaceRequired={#NeedSize}
#endif

#ifdef Components
[Types]
Name: full; Description: HighResTexturePack + Fix; Flags: iscustom

[Components]
Name: textures; Description: HighResTexturePack + Fix; Types: full; ExtraDiskSpaceRequired: 100000000
#endif

#ifdef Registry
[Registry]
Root: HKLM; Subkey: Software\ProFrager; ValueName: path; ValueType: String; ValueData: {app}; Flags: uninsdeletekey; Check: CheckError
Root: HKLM; Subkey: Software\ProFrager; ValueName: name; ValueType: String; ValueData: Data; Flags: uninsdeletekey; Check: CheckError
#endif

[Icons]
Name: "{group}\{#appname}{#appver}"; Filename: "{app}\{#exe}";
Name: "{group}\{cm:UninstallProgram,{#appname}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\{#appname}"; Filename: "{app}\{#exe}"; Tasks: desktopicon

[Tasks]
Name: desktopicon; Description: Добавить ярлык на рабочий стол; GroupDescription: Создание ярлыков:
Name: Redist; Description: Дополнительное программное обеспечение:
Name: Redist\DirectXCheck; Description: Обновить DirectX; Flags: unchecked
Name: Redist\PhysXCheck; Description: Установить Nvidia PhysX; Flags: unchecked
Name: Redist\VCCheck; Description: Установить Microsoft Visual C++ Redist; Flags: unchecked

[Run]
Check: CheckError and not IsWin64Check: CheckError and IsWin64

[Files]
Source: Include\English.ini; DestDir: {tmp}; Flags: dontcopy
Source: Include\unarc.dll; DestDir: {tmp}; Flags: dontcopy
Source: ISDone.dll; DestDir: {tmp}; Flags: dontcopy
#ifdef Splash
Source: "InstallFiles\isgsg.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "InstallFiles\KrinkelsTeam.png"; DestDir: "{app}"; Flags: ignoreversion
#endif
#ifdef records
Source: records.inf; DestDir: {tmp}; Flags: dontcopy
#endif

#ifdef PrecompInside
Source: Include\CLS-precomp.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\packjpg_dll.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\packjpg_dll1.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\zlib1.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef SrepInside
Source: Include\CLS-srep.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef MSCInside
Source: Include\CLS-MSC.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef facompress
Source: Include\facompress.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef precomp
#if precomp == "0.38"
Source: Include\precomp038.exe; DestDir: {tmp}; Flags: dontcopy
#else
#if precomp == "0.4"
Source: Include\precomp040.exe; DestDir: {tmp}; Flags: dontcopy
#else
#if precomp == "0.41"
Source: Include\precomp041.exe; DestDir: {tmp}; Flags: dontcopy
#else
#if precomp == "0.42"
Source: Include\precomp042.exe; DestDir: {tmp}; Flags: dontcopy
#else
Source: Include\precomp038.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp040.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp041.exe; DestDir: {tmp}; Flags: dontcopy
Source: Include\precomp042.exe; DestDir: {tmp}; Flags: dontcopy
#endif
#endif
#endif
#endif
#endif
#ifdef unrar
Source: Include\Unrar.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef XDelta
Source: Include\XDelta3.dll; DestDir: {tmp}; Flags: dontcopy
#endif
#ifdef PackZIP
Source: Include\7z.dll; DestDir: {tmp}; Flags: dontcopy
Source: Include\packZIP.exe; DestDir: {tmp}; Flags: dontcopy
#endif

[CustomMessages]
russian.ExtractedFile=Извлекается файл:
russian.Extracted=Распаковка архивов...
russian.CancelButton=Отменить распаковку
russian.Error=Ошибка распаковки!
russian.ElapsedTime=Прошло:
russian.RemainingTime=Осталось времени:
russian.EstimatedTime=Всего:
russian.AllElapsedTime=Время установки:

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

procedure ShowSplashScreen(p1: HWND; p2: AnsiString; p3, p4, p5, p6, p7: Integer; p8: Boolean; p9: Cardinal; p10: Integer);
external 'ShowSplashScreen@{tmp}\isgsg.dll stdcall delayload';

procedure Splash();
begin
ExtractTemporaryFile('isgsg.dll');
ExtractTemporaryFile('KrinkelsTeam.png');
ShowSplashScreen(WizardForm.Handle, ExpandConstant('{tmp}\KrinkelsTeam.png'), 1000, 3000, 1000, 0, 255, False, $FFFFFF, 10);
end;

procedure InitializeWizard;
begin
#ifdef Splash
Splash();
#endif
end;

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

;----------------------------------------------------------------------------------------------------

Выдаёт ошибку: ShowSplashScreen(p1
пробовал на разных скриптах ,оналогично , или выдаёт ошибку в оконцовке #endif
[spoiler/]
 
Последнее редактирование:

vint56

Ветеран
Проверенный
agrei678,
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Files]
Source: "Files\isgsg.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "Files\KrinkelsTeam.png"; DestDir: "{app}"; Flags: ignoreversion

[ Code]
procedure ShowSplashScreen(p1: HWND; p2: AnsiString; p3, p4, p5, p6, p7: Integer; p8: Boolean; p9: Cardinal; p10: Integer);
external 'ShowSplashScreen@{tmp}\isgsg.dll stdcall delayload';
procedure Splash();
begin
ExtractTemporaryFile('isgsg.dll');
ExtractTemporaryFile('KrinkelsTeam.png');
ShowSplashScreen(WizardForm.Handle, ExpandConstant('{tmp}\KrinkelsTeam.png'), 1000, 3000, 1000, 0, 255, False, $FFFFFF, 10);
end;

procedure InitializeWizard;
begin
Splash();
end;
 
Последнее редактирование:

agrei678

Новичок
vint56, Подскажите пожалуйста ,в какой раздел прописывать файлы установочные., и в какую ппку закидывать :help:
 

agrei678

Новичок
vint56,
а как вот сюда музыку добавить и клики, как в Need for Speed™ Undercover ? :$
 
Последнее редактирование:
Сверху