[ЧаВо] Альтернативный метод создания простейшего RePack'а игры

#define MyAppName "WinSnap"
#define MyAppVersion "14.5"
#define MyAppPublisher "WIN"
#define MyAppURL "http://megatorrents.org/forum/tracker.php?pid=487680&sid=c6e5a7b400b49d9d2de8d605f034cd1e"
#define MyAppExeName "WinSnap.exe"
[Setup]
AppId={{2CEBC7A1-7CDE-4DCC-AF57-FD9AE639510C}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\My Program
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputBaseFilename=setup
SetupIconFile=C:\Users\Администратор\Desktop\урок2\1.ico
Compression=lzma
SolidCompression=true
InternalCompressLevel=ultra64
WizardImageFile=C:\Users\Администратор\Desktop\урок2\1.bmp
WizardSmallImageFile=C:\Users\Администратор\Desktop\урок2\2.bmp
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked; OnlyBelowVersion: 0,6.1
[Files]
Source: C:\Users\Администратор\Desktop\урок2\ISSkin.dll; Flags: dontcopy
Source: C:\Users\Администратор\Desktop\урок2\1.cjstyles; Flags: dontcopy
Source: C:\Users\Администратор\Desktop\урок2\logo.bmp; Flags: dontcopy
Source: C:\Users\Администратор\Desktop\урок2\CallbackCtrl.dll; Flags: dontcopy
Source: C:\Users\Администратор\Desktop\урок2\Splash.png; Flags: dontcopy
Source: C:\Users\Администратор\Desktop\урок2\Splash.png; Flags: dontcopy
Source: C:\Users\Администратор\Desktop\урок2\isgsg.dll; Flags: dontcopy
Source: C:\Users\Администратор\Desktop\урок2\isgsg.dll; Flags: dontcopy
Source: D:\Program Files\WinSnap\WinSnap.exe; DestDir: {app}; Flags: ignoreversion
Source: D:\Program Files\WinSnap\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
Name: {group}\{cm:ProgramOnTheWeb,{#MyAppName}}; Filename: {#MyAppURL}
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: quicklaunchicon
[CustomMessages]
FinishedLabel=Программа {#MyAppName} установлена на Ваш компьютер. Приложение можно запустить с помощью соответствующего значка.%n%nНажмите «Завершить», чтобы выйти из программы установки.
Error2=Установка %n{#MyAppName} %nне завершена.
Error3=%nВо время установки произошла ошибка, пожалуйста отключите сторонние программы и повторите попытку установки.%n%n%nНажмите «Завершить», чтобы выйти.
WelcomeLabel1= Программа установит игру {#MyAppName} на Ваш компьютер.
WelcomeLabel2= Нажмите «Далее», чтобы продолжить, или «Отмена», чтобы выйти
FinisLabel1=Игра %n{#MyAppName}%n установлена на Ваш%n компьютер.%nRePack bu denis-1223
FinisLabel2=%n%nДля ее запуска выберите%n соотвествующий ярлык%n в меню "Пуск" или на Рабочем столе. %n%nНажмите «Завершить», %nчтобы выйти из программы установки.
[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';
var
PageNameLabel, PageDescriptionLabel, WelcomeLabel1,WelcomeLabel2,FLabel1, FLabel2, WLabel1, WLabel2, WelcomeLabel4,FinishedHeadingLabel, FinishedHeadingLabel1,WelcomeLabel3: TLabel;
procedure WizardImage();
begin
  WizardForm.WizardBitmapImage.Width:= ScaleX(497);
  WizardForm.WizardBitmapImage2.Width:= ScaleX(497);
  WelcomeLabel1:= TLabel.Create(WizardForm);
  WelcomeLabel1.Left := ScaleX(35);
  WelcomeLabel1.Top := ScaleY(89);
  WelcomeLabel1.Width := ScaleX(205);
  WelcomeLabel1.Height := ScaleY(219);
  WelcomeLabel1.AutoSize := False;
  WelcomeLabel1.WordWrap := True;
  WelcomeLabel1.Alignment := taCenter;
  WelcomeLabel1.Font.Size := 12;
  WelcomeLabel1.Font.Color:= clblack;
  WelcomeLabel1.Font.Style:= [fsBold]
  WelcomeLabel1.Font.Name:= 'Georgia'
  WelcomeLabel1.ShowAccelChar := False;
  WelcomeLabel1.Caption :=ExpandConstant('{cm:WelcomeLabel1}');
  WelcomeLabel1.Transparent := True;
  WelcomeLabel1.Parent := WizardForm.WelcomePage;
  WLabel1 := TLabel.Create(WizardForm);
  WLabel1.Left := ScaleX(35);
  WLabel1.Top := ScaleY(90);
  WLabel1.Width := ScaleX(205);
  WLabel1.Height := ScaleY(219);
  WLabel1.AutoSize := False;
  WLabel1.WordWrap := True;
  WLabel1.Alignment := taCenter;
  WLabel1.Font.Size := 12;
  WLabel1.Font.Color:= clwhite;
  WLabel1.Font.Style:= [fsBold]
  WLabel1.Font.Name:= 'Georgia'
  WLabel1.ShowAccelChar := False;
  WLabel1.Caption :=ExpandConstant('{cm:WelcomeLabel1}');
  WLabel1.Transparent := True;
  WLabel1.Parent := WizardForm.WelcomePage;
  WelcomeLabel2:= TLabel.Create(WizardForm);
  WelcomeLabel2.Left := ScaleX(35);
  WelcomeLabel2.Top := ScaleY(160);
  WelcomeLabel2.Width := ScaleX(210);
  WelcomeLabel2.Height := ScaleY(234);
  WelcomeLabel2.AutoSize := False;
  WelcomeLabel2.WordWrap := True;
  WelcomeLabel2.Alignment := taCenter;
  WelcomeLabel2.Font.Size := 12;
  WelcomeLabel2.Font.Color:= clblack;
  WelcomeLabel2.Font.Style:= [fsBold]
  WelcomeLabel2.Font.Name:= 'Georgia'
  WelcomeLabel2.ShowAccelChar := False;
  WelcomeLabel2.Caption :=ExpandConstant('{cm:WelcomeLabel2}');
  WelcomeLabel2.Transparent := True;
  WelcomeLabel2.Parent := WizardForm.WelcomePage;
  WLabel2 :=TLabel.Create(WizardForm);
  WLabel2.Left := ScaleX(35);
  WLabel2.Top := ScaleY(159);
  WLabel2.Width := ScaleX(210);
  WLabel2.Height := ScaleY(234);
  WLabel2.AutoSize := False;
  WLabel2.WordWrap := True;
  WLabel2.Alignment := taCenter;
  WLabel2.Font.Size := 12;
  WLabel2.Font.Style:= [fsBold]
  WLabel2.Font.Color:= clwhite;
  WLabel2.Font.Name:= 'Georgia'
  WLabel2.ShowAccelChar := False;
  WLabel2.Caption := ExpandConstant('{cm:WelcomeLabel2}');
  WLabel2.Transparent := True;
  WLabel2.Parent := WizardForm.WelcomePage;
  FinishedHeadingLabel:= TLabel.Create(WizardForm);
  FinishedHeadingLabel.Left := ScaleX(35);
  FinishedHeadingLabel.Top := ScaleY(89);
  FinishedHeadingLabel.Width := ScaleX(210);
  FinishedHeadingLabel.Height := ScaleY(100);
  FinishedHeadingLabel.AutoSize := False;
  FinishedHeadingLabel.WordWrap := True;
  FinishedHeadingLabel.Alignment := taCenter;
  FinishedHeadingLabel.Font.Size := 12;
  FinishedHeadingLabel.Font.Color:= clblack;
  FinishedHeadingLabel.Font.Style:= [fsBold]
  FinishedHeadingLabel.Font.Name:= 'Georgia'
  FinishedHeadingLabel.ShowAccelChar := False;
  FinishedHeadingLabel.Caption :=ExpandConstant('{cm:FinisLabel1}');
  FinishedHeadingLabel.Transparent := True;
  FinishedHeadingLabel.Parent := WizardForm.FinishedPage;
  FLabel1 := TLabel.Create(WizardForm);
  FLabel1.Left := ScaleX(35);
  FLabel1.Top := ScaleY(90);
  FLabel1.Width := ScaleX(210);
  FLabel1.Height := ScaleY(100);
  FLabel1.AutoSize := False;
  FLabel1.Alignment := taCenter;
  FLabel1.WordWrap := True;
  FLabel1.Font.Size := 12;
  FLabel1.Font.Name := 'Georgia'
  FLabel1.Font.Color:= clwhite;
  FLabel1.Font.Style:= [fsBold]
  FLabel1.ShowAccelChar := False;
  FLabel1.Caption := ExpandConstant('{cm:FinisLabel1}');
  FLabel1.Transparent := True;
  FLabel1.Parent := WizardForm.FinishedPage;
  (*FinishedHeadingLabel1:= TLabel.Create(WizardForm);
  FinishedHeadingLabel1.Left := ScaleX(35);
  FinishedHeadingLabel1.Top := ScaleY(160);
  FinishedHeadingLabel1.Width := ScaleX(210);
  FinishedHeadingLabel1.Height := ScaleY(234);
  FinishedHeadingLabel1.AutoSize := False;
  FinishedHeadingLabel1.WordWrap := True;
  FinishedHeadingLabel1.Alignment := taCenter;
  FinishedHeadingLabel1.Font.Size := 12;
  FinishedHeadingLabel1.Font.Color:= clblack;
  FinishedHeadingLabel1.Font.Style:= [fsBold]
  FinishedHeadingLabel1.Font.Name:= 'Georgia'
  FinishedHeadingLabel1.ShowAccelChar := False;
  FinishedHeadingLabel1.Caption :=ExpandConstant('{cm:FinisLabel2}');
  FinishedHeadingLabel1.Transparent := True;
  FinishedHeadingLabel1.Parent := WizardForm.FinishedPage;
  FLabel2 :=TLabel.Create(WizardForm);
  FLabel2.Top := ScaleY(35);
  FLabel2.Left := ScaleX(159);
  FLabel2.Width := ScaleX(210);
  FLabel2.Height := ScaleY(234);
  FLabel2.AutoSize := False;
  FLabel2.WordWrap := True;
  FLabel2.Alignment := taCenter;
  FLabel2.Font.Size := 12;
  FLabel2.Font.Name := 'Georgia'
  FLabel2.Font.Style:= [fsBold]
  FLabel2.Font.Color:= clwhite;
  FLabel2.ShowAccelChar := False;
  FLabel2.Caption := ExpandConstant('{cm:FinisLabel2}');
  FLabel2.Transparent := True;
  FLabel2.Parent := WizardForm.FinishedPage;   *)
  WizardForm.WelcomeLabel1.Hide;
  WizardForm.WelcomeLabel2.Hide;
  WizardForm.FinishedLabel.Hide;
  WizardForm.FinishedHeadingLabel.Hide;
end;
procedure WizardSmallImage();
begin
  WizardForm.WizardSmallBitmapImage.SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.MainPanel.Height);
  PageNameLabel:= TLabel.Create(WizardForm)
  with WizardForm.PageNameLabel do
  PageNameLabel.SetBounds(Left, Top, Width, Height);
  PageNameLabel.Transparent:= True;
  PageNameLabel.Font:= WizardForm.PageNameLabel.Font;
  PageNameLabel.Font.Color:= clblack;
  PageNameLabel.Parent:= WizardForm.MainPanel;
  PageDescriptionLabel:= TLabel.Create(WizardForm);
  with PageDescriptionLabel do
  begin
  Left:= WizardForm.PageDescriptionLabel.Left-12;
  Top:= WizardForm.PageDescriptionLabel.Top;
  Height:= WizardForm.PageDescriptionLabel.Height;
  Width:= ScaleX(280);
  AutoSize:= False;
  WordWrap:= True;
  Font.Name:= WizardForm.PageDescriptionLabel.Font.Name;
  Transparent:= True;
  Parent:= WizardForm.MainPanel;
  end;
  WizardForm.PageNameLabel.Hide;
  WizardForm.PageDescriptionLabel.Hide;
end;
procedure LogoOnClick(Sender: TObject);
var ResCode: Integer;
begin
  ShellExec('', 'http://megatorrents.org/forum/tracker.php?pid=487680&sid=c6e5a7b400b49d9d2de8d605f034cd1e', '' , '', SW_SHOW, ewNoWait, ResCode)
end;
procedure Logo();
var
  BtnPanel: TPanel;
  BtnImage: TBitmapImage;
begin
  ExtractTemporaryFile('logo.bmp')
  BtnPanel:=TPanel.Create(WizardForm)
  with BtnPanel do begin
    Left:=20
    Top:=325
    Width:=132
    Height:=27
    Cursor:=crHand
    OnClick:=@logoOnClick
    Parent:=WizardForm
  end
  (*BtnImage:=TBitmapImage.Create(WizardForm)
  with BtnImage do begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp')
    Parent:=BtnPanel
  end      *)
end;
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
procedure Splash();
begin
    ExtractTemporaryFile('Splash.png');
    ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);
end;
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('1.cjstyles');
LoadSkin(ExpandConstant('{tmp}\1.cjstyles'), '');
Result := True;
end;
procedure InitializeWizard;
  begin
  Logo();
  Splash();
  WizardImage();
  WizardSmallImage();
  WizardForm.CancelButton.BringToFront;
  end;

end
  (*BtnImage:=TBitmapImage.Create(WizardForm)
  with BtnImage do begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp')
    Parent:=BtnPanel
  end      *)