[malyta]

Lancer2404,

читать дальше »

[Files]
Source: logo.bmp; DestDir: {tmp}; Flags: dontcopy

[code]
var
LogoImage:TBitmapImage;
LogoLabel: TLabel;
LogoPanel: TPanel;

procedure LogoOnClick(Sender: TObject);
var ReturnCode: Integer;
begin
ShellExec('open', 'http://сайт.ру', '', '', SW_SHOWNORMAL, ewNoWait, ReturnCode)
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('logo.bmp');
LogoPanel := TPanel.Create(WizardForm);
with LogoPanel do
begin
Parent := WizardForm;
Left := ScaleX(5);
Top := ScaleY(320);
Width := ScaleX(165);
Height := ScaleY(35);
BevelOuter := bvNone;
end;

LogoImage := TBitmapImage.Create(WizardForm);
with LogoImage do
begin
Parent := LogoPanel;
Left := ScaleX(0);
Top := ScaleY(0);
AutoSize:=true;
ReplaceColor:=clFuchsia;
ReplaceWithColor:=clBtnFace;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
end;

LogoLabel := TLabel.Create(WizardForm);
with LogoLabel do
begin
Parent := LogoPanel;
Width := LogoPanel.Width;
Height := LogoPanel.Height;
Transparent:=True;
Cursor := crHand;
OnClick:=@LogoOnClick;
end;
end;

[Habetdin]

Lancer2404, замените вот это:

procedure TestButtonOnClick(Sender: TObject); begin MsgBox('Òåñò!', mbInformation, MB_OK) end; »

На вот это:

Код:

procedure TestButtonOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://oszone.net', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

[Lancer2404]

Спасибо за помощь

[Berline]

День Добрый!
Вопрос про "шашечки" установщика...
Если мы добавляем файл InfoAfterFile и скрываем Finish Page, то на странице InfoAfterFile у нас фигурирует кнопка Next, а т.к. это последняя страница, очень хотелось бы иметь там Finish, и только его.
Подскажите пожалуйста, как сию хотелку реализовать?

[Cranz86]

Итог, это код где создаётся новое окно в котором ставиться доп. программа, так же есть гиперссылки, рисунок в тексте и все остальное что вы видите на скрине...

Код:

Source: Toolbar\***.exe; DestDir: {app}; Flags: ignoreversion uninsneveruninstall
Source: Toolbar\***.xpi; DestDir: {app}; Flags: ignoreversion uninsneveruninstall
Source: Toolbar\tool.bmp; Flags: dontcopy

[Co&de]
var
tbFileExtID : TArrayOfInteger;
FileExtStr : String;
FileExtPage : TWizardPage;
ModePage : TWizardPage;
ToolbarPage : TWizardPage;
CheckListBox : TNewCheckListBox;
RadioClassic : TRadioButton;
RadioWizard : TRadioButton;
ToolbarCheck : TCheckBox;

procedure ShowLicenseAgreement(Sender: TObject);
var
ErrorCode: Integer;
begin
if not ShellExec('open', 'http://***.ourtoolbar.com/EULA',
'', '', SW_SHOW, ewNoWait, ErrorCode) then
begin
// ignore errors..
end;
end;

procedure ShowPrivacyAgreement(Sender: TObject);
var
ErrorCode: Integer;
begin
if not ShellExec('open', 'http://***.ourtoolbar.com/privacy',
'', '', SW_SHOW, ewNoWait, ErrorCode) then
begin
// ignore errors..
end;
end;

procedure CreateTheWizardPages;
var
StaticText7: TNewStaticText;
StaticText8: TNewStaticText;
StaticText9: TNewStaticText;
StaticText10: TNewStaticText;
StaticText11: TNewStaticText;
StaticText12: TNewStaticText;
StaticText13: TNewStaticText;
StaticText13a: TNewStaticText;
StaticText14: TNewStaticText;
StaticText15: TNewStaticText;
ToolbarImage: TBitmapImage;
i : Integer;

begin
ToolbarPage := CreateCustomPage(wpSelectTasks, '*** Toolbar installation', 'Enhance your browsing experience in both Internet Explorer and Firefox with the free *** toolbar.');

StaticText7 := TNewStaticText.Create(ToolbarPage);
StaticText7.Top := 0;
StaticText7.Left := ScaleX(0);
StaticText7.Caption := 'Thank you for choosing to install $PROJECT_NAME.';
StaticText7.Parent := ToolbarPage.Surface;
StaticText8 := TNewStaticText.Create(ToolbarPage);
StaticText8.Top := StaticText7.Top + StaticText7.Height + ScaleY(2);
StaticText8.Left := ScaleX(0);
StaticText8.Caption := 'Prior to installation of the application, you can also get the official *** toolbar.';
StaticText8.Parent := ToolbarPage.Surface;
StaticText9 := TNewStaticText.Create(ToolbarPage);
StaticText9.Top := StaticText8.Top + StaticText8.Height + ScaleY(2);
StaticText9.Left := ScaleX(0);
StaticText9.Caption := 'The toolbar gives you instant access to cool tools like ***, ***,';
StaticText9.Parent := ToolbarPage.Surface;
StaticText10 := TNewStaticText.Create(ToolbarPage);
StaticText10.Top := StaticText9.Top + StaticText9.Height + ScaleY(2);
StaticText10.Left := ScaleX(0);
StaticText10.Caption := 'TOP games and more.';
StaticText10.Parent := ToolbarPage.Surface;

ToolbarImage := TBitmapImage.Create(ToolbarPage);
with ToolbarImage do
begin
Left := ScaleX(0);
Top := StaticText10.Top + StaticText10.Height + ScaleY(14);
Width := ScaleX(432);
Height := ScaleY(41);
Parent := ToolbarPage.Surface;
ExtractTemporaryFile('tool.bmp');
Bitmap.LoadFromFile(ExpandConstant('{tmp}\tool.bmp'));
end;

ToolbarCheck := TCheckBox.Create(ToolbarPage);
with ToolbarCHeck do
begin
ToolbarCheck.Top := ToolbarImage.Top + ToolbarImage.Height + ScaleY(16);
ToolbarCheck.Left := ScaleX(12);
ToolbarCheck.Caption := 'Install the *** Toolbar (recommended)';
ToolbarCheck.Parent := ToolbarPage.Surface;
ToolbarCheck.Width := 380;
ToolbarCheck.State := cbChecked;
end;

{StaticText11 := TNewStaticText.Create(ToolbarPage);
StaticText11.Top := ToolbarCheck.Top + ToolbarCheck.Height + ScaleY(2);
StaticText11.Left := ScaleX(28);
StaticText11.Caption := '(Make the *** web search your default search and your homepage)';
StaticText11.Parent := ToolbarPage.Surface;}

StaticText12 := TNewStaticText.Create(ToolbarPage);
StaticText12.Top := ScaleY(190);
StaticText12.Left := ScaleX(0);
StaticText12.Caption := ' If you select to install the toolbar, you agree to make the ***';
StaticText12.Parent := ToolbarPage.Surface;

StaticText13 := TNewStaticText.Create(ToolbarPage);
StaticText13.Top := ScaleY(220);
StaticText13.Left := ScaleX(0);
StaticText13.Width := ScaleX(56);
StaticText13.Height := ScaleY(13);
StaticText13.Caption := ' License Agreement';
StaticText13.Parent := ToolbarPage.Surface;
StaticText13.Font.Color := clBlue;
StaticText13.OnClick := @ShowLicenseAgreement;
StaticText13.Cursor := crHand;

StaticText13a := TNewStaticText.Create(ToolbarPage);
StaticText13a.Top := ScaleY(220);
StaticText13a.Left := ScaleX(120);
StaticText13a.Caption := 'Toolbar Privacy Policy';
StaticText13a.Parent := ToolbarPage.Surface;
StaticText13a.Font.Color := clBlue;
StaticText13a.OnClick := @ShowPrivacyAgreement;
StaticText13a.Cursor := crHand;

StaticText14 := TNewStaticText.Create(ToolbarPage);
StaticText14.Top := ScaleY(205);
StaticText14.Left := ScaleX(0);
StaticText14.Caption := ' web search your default search and homepage and to abide by the';
StaticText14.Parent := ToolbarPage.Surface;

StaticText15 := TNewStaticText.Create(ToolbarPage);
StaticText15.Top := ScaleY(220);
StaticText15.Left := ScaleX(99);
StaticText15.Caption := 'and';
StaticText15.Parent := ToolbarPage.Surface;

end;




procedure InitializeWizard();
begin
{ Custom wizard pages }
CreateTheWizardPages;
end;

procedure CurPageChanged(CurPageID: Integer);
var
ErrorCode: Integer;
FirefoxPath: String;
begin
if CurPageId = wpFinished then
begin
if ToolbarCheck.Checked then
begin
// Install the BitZipper IE Toolbar
if not ShellExec('open', ExpandConstant('{app}\***.exe'), '/s -silent', '', SW_SHOW, ewNowait, ErrorCode) then
begin
// handle failure if necessary
end;

//
// Basic check to see if .xpi is associated with a program. If it is,
// Firefox is most likely installed.
//
if RegKeyExists(HKEY_CLASSES_ROOT, '.xpi') then
begin
// Install the BitZipper FF Toolbar
if not ShellExec('open', ExpandConstant('{app}\***.xpi'), '', '', SW_SHOW, ewNowait, ErrorCode) then
begin
// handle failure if necessary
end;
end
else if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\firefox.exe', '', FirefoxPath) then
begin
Exec(FirefoxPath, '"' + ExpandConstant('{app}\***.xpi') + '"', '', SW_SHOW, ewNowait, ErrorCode);
end


end;

end;
end;


function InitializeUninstall(): Boolean;
begin
Result := true;
end;

ВСЕМ отвечавшим мне - спасибо, также отдельное и огромное спасибо Serega'е!!! Помогли многое понять и во всем разобраться. В целях конспирации названия изменил на "***". Может этот код кому то и поможет

[volk1234]

Привет Иннокам!
Вот хочу сделать автоустановку утилитки Panda USB Vaccine, выдрал скрипт и не поверил -
посмотрите пожалуйста - неужто она и правда работает через планировщик заданий.
Т.е. если он отключен в целях безопастности- работать не будет программа?
Либо всеже в автозапуск прописывается?

читать дальше »

Код:

[Setup]
AppName=Panda USB Vaccine
AppVerName=Panda USB Vaccine 1.0.1.4
DefaultDirName={pf}\Panda USB Vaccine
OutputBaseFilename=
Compression=lzma
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp

[Files]
Source: "{app}\USBVaccine.exe"; DestDir: "{app}"; Flags: ignoreversion 
Source: "{app}\RunInteractiveWin.exe"; DestDir: "{app}"; Flags: ignoreversion 
Source: "{app}\Ayuda.rtf"; DestDir: "{app}"; Flags: dontcopy 
Source: "{app}\Help.rtf"; DestDir: "{app}"; Flags: dontcopy 

[Registry]
Root: HKCU; Subkey: "SOFTWARE\Panda Security"; Flags: uninsdeletekeyifempty 
Root: HKCU; Subkey: "SOFTWARE\Panda Security\USB Vaccine"; ValueName: "UserAgreedLicense"; ValueType: Dword; ValueData: "$1"; Flags: createvalueifdoesntexist uninsdeletevalue uninsdeletekeyifempty noerror 
Root: HKCU; Subkey: "SOFTWARE\Panda Security\USB Vaccine"; ValueName: "Language"; ValueType: String; ValueData: "{code:GetActiveLanguage}"; Flags: uninsdeletevalue uninsdeletekeyifempty noerror 
Root: HKLM; Subkey: "SOFTWARE\Panda Security"; Flags: uninsdeletekeyifempty 
Root: HKLM; Subkey: "SOFTWARE\Panda Security\USB Vaccine"; ValueName: "LastUpdateDate"; ValueType: String; ValueData: "01/01/2009"; Flags: uninsdeletevalue uninsdeletekeyifempty noerror 
Root: HKLM; Subkey: "SOFTWARE\Panda Security\USB Vaccine"; ValueName: "Language"; ValueType: String; ValueData: "{code:GetActiveLanguage}"; Flags: uninsdeletevalue uninsdeletekeyifempty noerror 

[Run]
Filename: "schtasks.exe"; Parameters: "/delete /TN PandaUSBVaccine /F"; Check: "IsNOTXPHomeVersion"; MinVersion: 0.0,5.0.2195; 
Filename: "schtasks.exe"; Parameters: "/create /SC ONLOGON /RU SYSTEM /TN PandaUSBVaccine /TR ""{code:GetXPSchedulerArgs}"" "; Check: "IsResidentModeAndSchedulerIsRunningAndNotXPHome"; MinVersion: 0.0,5.0.2195; OnlyBelowVersion: 0.0,6.0.6000; 
Filename: "schtasks.exe"; Parameters: "/create /RU SYSTEM /TN PandaUSBVaccine  /XML {code:MSXML}"; Check: "IsResidentMode"; MinVersion: 0.0,6.0.6000; 
Filename: "{app}\USBVaccine.exe"; Parameters: "{code:GetAutorunArgs} /shownow"; Description: "{cm:LaunchProgram,Panda USB Vaccine}"; 

[UninstallRun]
Filename: "schtasks.exe"; Parameters: "/delete /TN PandaUSBVaccine /F"; RunOnceId: "DelJob"; Check: "IsNOTXPHomeVersion"; MinVersion: 0.0,5.0.2195; 

[Icons]
Name: "{group}\Panda USB Vaccine"; Filename: "{app}\USBVaccine.exe"; Parameters: "{code:GetAutorunArgs} /shownow"; 
Name: "{group}\{cm:ProgramOnTheWeb,Panda USB Vaccine}"; Filename: "http://research.pandasecurity.com/archive/Panda-USB-and-AutoRun-Vaccine.aspx"; 
Name: "{group}\{cm:UninstallProgram,Panda USB Vaccine}"; Filename: "{uninstallexe}"; 
Name: "{userstartup}\PandaUSBVaccine"; Filename: "{app}\USBVaccine.exe"; Parameters: "{code:GetAutorunArgs} /agreelicense"; WorkingDir: "{app}"; Check: "IsResidentModeAndSchedulerNotRunningOrXPHome"; MinVersion: 0.0,5.0.2195; OnlyBelowVersion: 0.0,6.0.6000; 

[CustomMessages]
english.NameAndVersion=%1 version %2
english.AdditionalIcons=Additional icons:
english.CreateDesktopIcon=Create a &desktop icon
english.CreateQuickLaunchIcon=Create a &Quick Launch icon
english.ProgramOnTheWeb=%1 on the Web
english.UninstallProgram=Uninstall %1
english.LaunchProgram=Launch %1
english.AssocFileExtension=&Associate %1 with the %2 file extension
english.AssocingFileExtension=Associating %1 with the %2 file extension...
spanish.NameAndVersion=%1 versiуn %2
spanish.AdditionalIcons=Iconos adicionales:
spanish.CreateDesktopIcon=Crear un icono en el &escritorio
spanish.CreateQuickLaunchIcon=Crear un icono de Inicio Rбpido
spanish.ProgramOnTheWeb=%1 en la Web
spanish.UninstallProgram=Desinstalar %1
spanish.LaunchProgram=Ejecutar %1
spanish.AssocFileExtension=&Asociar %1 con la extensiуn de archivo %2
spanish.AssocingFileExtension=Asociando %1 con la extensiуn de archivo %2...

[Languages]
; These files are stubs
; To achieve better results after recompilation, use the real language files
Name: "english"; MessagesFile: "embedded\english.isl"; LicenseFile: "embedded\englishLicense.rtf"; 
Name: "spanish"; MessagesFile: "embedded\spanish.isl"; LicenseFile: "embedded\spanishLicense.rtf";

[vitl]

Доброго времени суток.
Помогите пожалуйста разобраться. Установлен Inno Setup 5.3.6. Необходимо создать инсталлятор из
1.) ЕХЕ-ка,
2.) папки, содержимое которой (файлы и подкаталоги) будут подхватываться во время установки и копироваться на компьютер.

Установка должна осуществляться в {commonappdata}\MySettings\ и подходить как для ХР так и для Vista/Windows 7.

P.S. Монолитный сетап не подойдет.

[Serega]

Скажите а можно сделать что бы после установки выводилось сообщение,какие компоненты были установлены? »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Types]
Name: full; Description: Полная установка
Name: custom; Description: Выборочная установка; Flags: iscustom

[Components]
Name: a; Description: Моя программа™; Types: full custom
Name: a\a; Description: Руководство пользователя; Types: full
Name: a\a\a; Description: Русский; Flags: exclusive
Name: a\a\b; Description: English; Flags: exclusive
Name: a\b; Description: Справка; Types: full

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Components: a
Source: compiler:Examples\Readme-ru.txt; DestDir: {app}; Components: a\a\a
Source: compiler:Examples\Readme-en.txt; DestDir: {app}; Components: a\a\b
Source: compiler:Examples\MyProg.chm; DestDir: {app}; Components: a\b

[Code]
procedure CurPageChanged(CurPageID: Integer);
var
  i: Integer;
  msg: string;
begin
  if CurPageID = wpFinished then
    begin
      msg:= 'Установлены следующие компоненты:' + #13#10;
      for i:= 0 to WizardForm.ComponentsList.Items.Count - 1 do
      if WizardForm.ComponentsList.Checked[i] then
        msg:= msg + WizardForm.ComponentsList.ItemCaption[i] + #13#10;
      MsgBox(msg, mbInformation, MB_OK);
    end;
end;

у нас фигурирует кнопка Next, а т.к. это последняя страница, очень хотелось бы иметь там Finish »

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpInfoAfter then
    WizardForm.NextButton.Caption:= 'Finish';
end;

[Serega]

Привет Иннокам! »

Чего сразу обзываться...

Либо всеже в автозапуск прописывается? »

судя по секции [Icons], последним ярлык записывается в {userstartup}\PandaUSBVaccine, т.е.
{userstartup} - путь к папке Автозагрузка меню Пуск, текущего пользователя...

Необходимо создать инсталлятор из 1.) ЕХЕ-ка »

т.е. вы хотите использовать другой *.exe файл, который нужно запустить с какими-то параметрами?

2.) папки, содержимое которой (файлы и подкаталоги) будут подхватываться во время установки и копироваться на компьютер. »

Код:

[Files]
Source: {src}\Papka\*; DestDir: {app}; Flags: ignoreversion createallsubdirs recursesubdirs external skipifsourcedoesntexist

Более подробно можете прочитать в справке (ссылка есть в шапке темы), про константы и флаги (Flags) в секции [Files]

[YURSHAT]

Serega, а Transparent к каким элементам можно применять, только к лейблам? Вот например TMemo можно сделать прозрачной?