Скрипты Inno Setup. Помощь и советы [часть 3]

Gnom_aka_Lexander · Отправлено: **20:08, 22-02-2011** | #**861**

my-94, Там по логике даже -

Цитата my-94:

begin
with WizardForm.NextButton do
begin
Left := ScaleX(175);
end; »

В самом конце процедуры InitializeWizard(); нужно поставить еще один энд (два бегина

)
Подсказка - после строчки

Код:

BackgroundBitmapText.Parent := MainForm;

my-94 · Отправлено: **20:57, 22-02-2011** | #**862**

Лександер

Вот вставил как всё написано всё равно ни как

Gnom_aka_Lexander · Отправлено: **21:35, 22-02-2011** | #**863**

my-94, у тебя получается, только если написать за тебя?

Код:

[Setup]
AppId={{4E7C4AAA-6115-4228-B387-707B52DDCD89}
AppName=My Program
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=no
;disablereadypage=true

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

[Messages]
BeveledLabel=111

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Files]
Source: Office2007.cjstyles; DestDir: {tmp}; Flags: dontcopy nocompression
Source: ISSkin.dll; DestDir: {tmp}; Flags: dontcopy nocompression
source: 1.bmp; DestDir: {tmp}; Flags: dontcopy nocompression
Source: isgsg.dll; DestDir: {tmp}; Flags: dontcopy nocompression
Source: splash.png; DestDir: {tmp}; Flags: dontcopy nocompression

[_Code]
var
  AboutButton, CancelButton, URLButton: TButton;
  BackgroundBitmapImage: TBitmapImage;
  BackgroundBitmapText: TNewStaticText;
  BmpFile: TBitmapImage;

procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

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';

function InitializeSetup(): Boolean;
begin
 ExtractTemporaryFile('Office2007.cjstyles');
 LoadSkin(ExpandConstant('{tmp}\Office2007.cjstyles'), '');
 Result := True;
end;

procedure DeinitializeSetup();
begin
 UnloadSkin();
end;

procedure AboutButtonOnClick(Sender: TObject);
begin
  MsgBox('Это демо версия программы.', mbInformation, mb_Ok);
end;

procedure URLLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://forum.ru-board.com/topic.cgi?forum=5&topic=35848&start=40#lt', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('1.bmp'); //Извлекаем файл, который пойдет в окно инсталлятора
//Вставляем изображение в окно инсталлятора, для каждой страницы нужно добвлять изображение заново
ExtractTemporaryFile('splash.png');
BmpFile:= TBitmapImage.Create(WizardForm);
with BmpFile do begin
Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
SetBounds(ScaleX(0), ScaleY(0), ScaleX(497), ScaleY(313));
Stretch:= true;
Parent:= WizardForm.WelcomePage;
end;

BmpFile:= TBitmapImage.Create(WizardForm);
with BmpFile do begin
Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
SetBounds(ScaleX(0), ScaleY(0), ScaleX(497), ScaleY(313));
Stretch:= true;
Parent:= WizardForm.FinishedPage;
end;

ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\splash.png',1000,3000,1000,0,255,False, $FFFFFF,10);

with WizardForm do
begin
WelcomeLabel1.Hide;
WelcomeLabel2.Hide;
FinishedHeadingLabel.Hide;
FinishedLabel.Hide;
end;
begin
with WizardForm.NextButton do
begin
Left := ScaleX(175);
end;
  CancelButton := WizardForm.CancelButton;
  AboutButton := TButton.Create(WizardForm);
  with AboutButton do begin
  Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
  Top := CancelButton.Top;
  Width := CancelButton.Width;
  Height := CancelButton.Height;
  Caption := '&Repack info';
  OnClick := @AboutButtonOnClick;
  Parent := WizardForm;
  end;

  URLButton := TButton.Create(WizardForm);
  with URLButton do begin
  Left := AboutButton.Left + AboutButton.Width + ScaleX(10);
  Top := CancelButton.Top;
  Width := CancelButton.Width;
  Height := CancelButton.Height;
  Caption := 'Сайт';
  OnClick := @URLLabelOnClick;
  Parent := WizardForm;
end;
  end;
  BackgroundBitmapImage := TBitmapImage.Create(MainForm);
  BackgroundBitmapImage.Left := ScaleX(50);
  BackgroundBitmapImage.Top := ScaleY(100);
  BackgroundBitmapImage.AutoSize := True;
  BackgroundBitmapImage.Bitmap := WizardForm.WizardBitmapImage.Bitmap;
  BackgroundBitmapImage.Parent := MainForm;

  BackgroundBitmapText := TNewStaticText.Create(MainForm);
  BackgroundBitmapText.Left := BackgroundBitmapImage.Left;
  BackgroundBitmapText.Top := BackgroundBitmapImage.Top + BackgroundBitmapImage.Height + ScaleY(8);
  BackgroundBitmapText.Caption := 'TBitmapImage';
  BackgroundBitmapText.Parent := MainForm;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
  if CurPageID <> wpWelcome then begin
  AboutButton.Hide; URLButton.Hide end else begin
  AboutButton.Show; URLButton.Show; end;
end;

выделил

my-94 · Отправлено: **21:43, 22-02-2011** | #**864**

Лександер

Выдели пожалуйста жирным что ты вставил

Gnom_aka_Lexander · Отправлено: **21:50, 22-02-2011** | #**865**

my-94, Выделил
Чтобы научится - бери готовые, разбирай их, и много-много думай - как чего работает, если спрашивать даже такие мелочи - как вставить в скрипт уже готовый код - сложно будет научится.
И еще - есть такая кнопа - Полезное сообщение - не забывай жать ее, если помогли тебе.
И еще, маленький секрет открою - я тоже очень-очень хочу научится писать скрипты

my-94 · Отправлено: **21:52, 22-02-2011** | #**866**

Спасибо хочу тоже научится скрипты писать

R.i.m.s.k.y. · Конфигурация компьютера

Цитата Лександер:

И еще, маленький секрет открою - я тоже очень-очень хочу научится писать скрипты »

Цитата my-94:

Спасибо хочу тоже научится скрипты писать »

чего там учиться, наливай да пей!

lettergold · Отправлено: **13:08, 23-02-2011** | #**868**

Мой инсталятор должен проверят какая стоит ОС ,и в нужную устанавливать файл.
делаю так:

Код:

Source: F:\Программа по ОС\Win7\RICHED20.DLL; DestDir: {app}; Flags: ignoreversion; MinVersion: ,6.1.7600; 
Source: F:\Программа по ОС\XP\riched20.dll; DestDir: {app}; Flags: ignoreversion; OnlyBelowVersion: ,6.1.7600;

То есть если Windows7 и выше,то с этой папки : Win7\RICHED20.DLL , и соответственно если ниже, то с другой.

Но при компиляции вот такая ошибка:

Column: Parameter "OnlyBelowVersion" is not a valid value. (Параметр "OnlyBelowVersion" не является допустимым значением.)

Подскажите в чем ошибка?

XXXler · Конфигурация компьютера

мб потому как:

Код:

OnlyBelowVersion: 0, 6.1.7600

lettergold · Отправлено: **17:42, 23-02-2011** | #**870**

Спасибо!