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

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

Rhianarkipom,
удалите

Код:

[Messages]
ButtonNext=Install

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

Цитата Rhianarkipom:

Помогите исправить кнопку на странице приветствия (WelcomePage) вместо "Install" должно быть "Next"

Код:

 procedure CurPageChanged(CurPageID: Integer);
  begin
  case CurPageID of
   wpWelcome:
  begin
   WizardForm.NextButton.Caption:= 'Далее'
  end;
 end;
end;

292944028 · Отправлено: **22:14, 03-07-2016** | #**1603**

Rhianarkipom · Отправлено: **12:40, 04-07-2016** | #**1604**

Цитата ZVSRus:

Код:
procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
WizardForm.NextButton.Caption:= 'Далее'
end;
end;
end; »

Если удалить секцию [Messages] вместо "Install" становиться "Next"
Извините меня, не полностью вопрос вчера описал

Вопрос:
На странице приветствия должна быть кнопка "Next", где выбор папки там должна быть кнопка "Install"
Вот этот код полностью игнорирует: WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall) - Установщик будет мультиязычный (несколько языков)

Помогите пожалуйста мне сделать

Скрытый текст

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{07BF4756-493A-4A92-8C99-65465807D1B5}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

DisableDirPage=yes
DisableProgramGroupPage=yes
DisableReadyMemo=yes
DisableReadyPage=yes
DisableStartupPrompt=yes
DisableWelcomePage=no
DisableFinishedPage=no

[Messages]
ButtonNext=Install

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[code]
var
MainPage : TWizardPage;
edtFolderToInstall : TEdit;
InstallLocation : String;

procedure BrowseClick(Sender : TObject);
var
Dir : String;
begin
Dir := edtFolderToInstall.Text;
if BrowseForFolder('Select Folder',Dir,false) then
edtFolderToInstall.Text := Dir;
end;

procedure InitializeWizard();
var
lblFolderToInstall : TLabel;
btnFolderToInstall : TButton;

begin
MainPage := CreateCustomPage(wpWelcome,'Select Destination Location','Where should {#MyAppName} be installed ?');
lblFolderToInstall := TLabel.Create(MainPage);
lblFolderToInstall.Parent := MainPage.Surface;
lblFolderToInstall.Top := 10;
lblFolderToInstall.Left := 10;
lblFolderToInstall.Caption := 'If you would like to select a different folder, Click Browse.'

edtFolderToInstall := TEdit.Create(MainPage);
edtFolderToInstall.Parent := MainPage.Surface;

edtFolderToInstall.Top := 40;
edtFolderToInstall.Left := 7;
edtFolderToInstall.Width := 321;
edtFolderToInstall.Text := WizardDirValue;

btnFolderToInstall := TButton.Create(MainPage);
btnFolderToInstall.Parent := MainPage.Surface;
btnFolderToInstall.Top := 38;
btnFolderToInstall.Left := 340;
btnfolderToInstall.Caption := 'Browse...';
btnFolderToInstall.OnClick := @BrowseClick;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpWelcome:
begin
WizardForm.NextButton.Caption:= 'Next >';
end;
end;
end;

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

Цитата Rhianarkipom:

На странице приветствия должна быть кнопка "Next", где выбор папки там должна быть кнопка "Install" »

Скрытый текст

Код:

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{07BF4756-493A-4A92-8C99-65465807D1B5}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

DisableDirPage=yes
DisableProgramGroupPage=yes
DisableReadyMemo=yes
DisableReadyPage=yes
DisableStartupPrompt=yes
DisableWelcomePage=no
DisableFinishedPage=no

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

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[code]
var
MainPage : TWizardPage;
edtFolderToInstall : TEdit;
InstallLocation : String;

procedure BrowseClick(Sender : TObject);
var
Dir : String;
begin
Dir := edtFolderToInstall.Text;
if BrowseForFolder('Select Folder',Dir,false) then
edtFolderToInstall.Text := Dir;
end;

procedure InitializeWizard();
var
lblFolderToInstall : TLabel;
btnFolderToInstall : TButton;

begin
MainPage := CreateCustomPage(wpWelcome,'Select Destination Location','Where should {#MyAppName} be installed ?');
lblFolderToInstall := TLabel.Create(MainPage);
lblFolderToInstall.Parent := MainPage.Surface;
lblFolderToInstall.Top := 10;
lblFolderToInstall.Left := 10;
lblFolderToInstall.Caption := 'If you would like to select a different folder, Click Browse.'

edtFolderToInstall := TEdit.Create(MainPage);
edtFolderToInstall.Parent := MainPage.Surface;

edtFolderToInstall.Top := 40;
edtFolderToInstall.Left := 7;
edtFolderToInstall.Width := 321;
edtFolderToInstall.Text := WizardDirValue;

btnFolderToInstall := TButton.Create(MainPage);
btnFolderToInstall.Parent := MainPage.Surface;
btnFolderToInstall.Top := 38;
btnFolderToInstall.Left := 340;
btnfolderToInstall.Caption := 'Browse...';
btnFolderToInstall.OnClick := @BrowseClick;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
MainPage.ID:
begin
WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall);
end;
end;
end;

Rhianarkipom · Отправлено: **14:54, 04-07-2016** | #**1606**

Как создать Label в окне выбора папки, и сменить заголовок окна "Обзор папок" ?

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

Rhianarkipom, не понятно и не информативно.

Rhianarkipom · Отправлено: **11:51, 05-07-2016** | #**1608**

Цитата nik1967:

Rhianarkipom, не понятно и не информативно »

Я имел ввиду : Нужно сделать как на скриншоте

Смотрите скриншот!
http://forum.oszone.net/attachment.p...8&d=1467633076

Скрытый текст

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
AppId={{56AC41C4-C68E-4E95-89A2-98EBF2F72921}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
DisableWelcomePage=no
DisableReadyMemo=yes
DisableReadyPage=yes
DisableFinishedPage=no
DisableDirPage=yes
DisableStartupPrompt=yes

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

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}";
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}";

[code]
var
MainPage : TWizardPage;
edtFolderToInstall : TEdit;
InstallLocation : String;

procedure BrowseClick(Sender : TObject);
var
Dir : String;
begin
Dir := edtFolderToInstall.Text;
if BrowseForFolder('Select а folder in the list below, then click OK.',Dir,false) then
edtFolderToInstall.Text := Dir;
end;

procedure InitializeWizard();
var
lblFolderToInstall : TLabel;
btnFolderToInstall : TButton;

begin
MainPage := CreateCustomPage(wpWelcome,'Select Destination Location','Where should {#MyAppName} be installed ?');
lblFolderToInstall := TLabel.Create(MainPage);
lblFolderToInstall.Parent := MainPage.Surface;
lblFolderToInstall.Top := 10;
lblFolderToInstall.Left := 10;
lblFolderToInstall.Caption := 'If you would like to select a different folder, Click Browse.'

edtFolderToInstall := TEdit.Create(MainPage);
edtFolderToInstall.Parent := MainPage.Surface;

edtFolderToInstall.Top := 40;
edtFolderToInstall.Left := 7;
edtFolderToInstall.Width := 321;
edtFolderToInstall.Text := WizardDirValue;

btnFolderToInstall := TButton.Create(MainPage);
btnFolderToInstall.Parent := MainPage.Surface;
btnFolderToInstall.Top := 38;
btnFolderToInstall.Left := 340;
btnfolderToInstall.Caption := 'Browse...';
btnFolderToInstall.OnClick := @BrowseClick;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
MainPage.ID:
begin
WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall);
end;
end;
end;

vadjliss · Отправлено: **08:53, 09-07-2016** | #**1609**

как закрепить ярлык на панели задач

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

Цитата vadjliss:

как закрепить ярлык на панели задач

Пример от saurn

Скрытый текст

Код:

 #define MyAppName "MyProg"
 #define MyAppVersion "1.5"
 #define MyAppExeName "MyProg.exe"

[Setup]
 AppId={{C3296BC8-00E4-4112-A1FB-4E710F84662C}
 AppName={#MyAppName}
 AppVersion={#MyAppVersion}
 ;AppVerName={#MyAppName} {#MyAppVersion}
 DefaultDirName={pf}\{#MyAppName}
 DefaultGroupName={#MyAppName}
 DisableProgramGroupPage=yes
 OutputBaseFilename=setup
 Compression=lzma
 SolidCompression=yes

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

[Files]
 Source: "C:\Program Files (x86)\Inno Setup v.5.5.1\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[ Code]
const                                                                                                         
    LOAD_LIBRARY_AS_DATAFILE = $2;                                                                           
                                                                                                              
#define A = (Defined UNICODE) ? "W" : "A"
                                                                                                             
function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';
function SHGetNewLinkInfo(pszLinkTo, pszDir: String; var pszName: Char; var pfMustCopy: Longint; uFlags: UINT): BOOL; external 'SHGetNewLinkInfo{#A}@shell32.dll stdcall';
                                                                                                              
function PinToTaskbar(const szFilename: String; IsPin: Boolean): Boolean;                                     
// szFilename : full path to executable file                                                                  
// IsPin......: False - unpin from TaskBar, True - pin to TaskBar                                             
var                                                                                                           
    hInst: THandle;                                                                                           
    buf: array [0..255] of Char;                                                                              
    i, res: Integer;                                                                                          
    strLnk, strVerb: String;                                                                                  
    objShell, colVerbs: Variant;                                                                              
begin                                                                                                         
    Result := False;                                                                                          
    if (GetWindowsVersion < $06010000) or not FileExists(szFilename) then Exit; { below Windows 7 }           
                                                                                                              
    { String resources }                                                                                      
    if IsPin then                                                                                             
    begin                                                                                                     
        if SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0) then                         
        begin                                                                                                 
            while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);        
            if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
        end;                                                                                                  
        res := 5386;        { Pin to Tas&kbar }                                                               
    end else res := 5387;   { Unpin from Tas&kbar }                                                           
                                                                                                              
  { Load string resource }                                                                                    
  hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);                   
  if hInst <> 0 then                                                                                          
  try                                                                                                         
    for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);                     
    try                                                                                                       
      objShell := CreateOleObject('Shell.Application');                                                       
      colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
      for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then                 
      begin                                                                                                   
          colVerbs.Item[i].DoIt;                                                                              
          Result := True;                                                                                     
          Break;                                                                                              
      end;                                                                                                    
      except                                                                                                  
        Exit;                                                                                                 
      end;                                                                                                    
  finally                                                                                                     
      FreeDLL(hInst);                                                                                         
  end;                                                                                                        
end;                                                                                                         

procedure CurStepChanged(CurStep: TSetupStep);                                                                                
var                                                                                                                           
  ResultCode: Integer;                                                                                                        
  r: integer;                                                                                                                 
begin                                                                                                                         
  case CurStep of                                                                                                            
    ssPostInstall:                                                                                                            
    begin                                                                                                                     
     PinToTaskbar(ExpandConstant('{app}\MyProg.exe'), True);
    end;                                                                                                                     
  end;                                                                                                                        
end;                                                                                                                          
                                                                                                                              
Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);                                                          
                                                                                                                              
{ UnPin }                                                                                                                     
begin                                                                                                                        
  case CurUninstallStep of                                                                                                    
       usUninstall: PinToTaskbar( ExpandConstant( '{app}\MyProg.exe' ), False );
  end;                                                                                                                        
end;