[Johny777]

Ivan_009,
ну вот так
with WizardForm do
begin
BorderStyle := bsNone;
end;
только окно таскать не за что будет
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,
но благодаря Лександру у нас есть чудо-процедура (сам у себя в инсталле использую. Очень удобно!)

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[  code]
type
  TANewStatic = record
    Static  : TNewStaticText;
  end;

var
  ANewStatic : array of TANewStatic;

function ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall';

procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(WizardForm.Handle,$0112,$F012,0)
end;

procedure AddStaticToArray(st:TNewStaticText);
var
  i:integer;
begin
  i:=GetArrayLength(ANewStatic);
  SetArrayLength(ANewStatic,i+1);
  ANewStatic[i].Static:=st;
  ANewStatic[i].Static.OnMouseDown:=@MouseDown;
end;

procedure StaticChange(c:TWinControl);
var
  i:integer;
begin
  for i:=0 to c.ControlCount-1 do
    if c.Controls[i] is TWinControl then begin
      if c.Controls[i] is TNewStaticText then AddStaticToArray(TNewStaticText(c.Controls[i]));
      if TWinControl(c.Controls[i]).ControlCount>0 then StaticChange(TWinControl(c.Controls[i]));
    end;
end;

procedure InitializeWizard;
var i:integer;
begin
with WizardForm do begin
   /// BorderStyle:=bsNone;

  end;
for i:=0 to 18 do
  begin
    with TLabel.Create(WizardForm) do
    begin
    BringToFront;
      Case i of
      0:Parent := WizardForm;
      1:Parent := WizardForm.OuterNotebook;
      2:Parent := WizardForm.InnerNotebook;
      3:Parent := WizardForm.InnerPage;
      4:Parent := WizardForm.WelcomePage;
      5:Parent := WizardForm.LicensePage;
      6:Parent := WizardForm.PasswordPage;
      7:Parent := WizardForm.InfoBeforePage;
      8:Parent := WizardForm.UserInfoPage;
      9:Parent := WizardForm.SelectDirPage;
      10:Parent := WizardForm.SelectComponentsPage;
      11:Parent := WizardForm.SelectProgramGroupPage;
      12:Parent := WizardForm.SelectTasksPage;
      13:Parent := WizardForm.ReadyPage;
      14:Parent := WizardForm.PreparingPage;
      15:Parent := WizardForm.InstallingPage;
      16:Parent := WizardForm.InfoAfterPage;
      17:Parent := WizardForm.FinishedPage;
      18:Parent := WizardForm.MainPanel;
      end;
      Transparent := True;
      Align := alClient;
      OnMouseDown:=@MouseDown;
    end;
  end;
  StaticChange(WizardForm);
end;

при желании можно не использовать кусок из InitializeWizard
и всем нужным элементам во вкладке "события" дизайнера расширенной версии
в событии OnMouseDown присвоить процедуру MouseDown (картинкам, панелям и пр)
в окнах (ведь Notebook-ам эту процедуру не присвоить) создать на всю страницу или в определённых участках лейблы с параметрами (параметры выделил жирным)

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

Код:

  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Name := 'Label1';
    Parent := WizardForm.SelectDirPage;
    AutoSize := False;
    Transparent := True;
    OnMouseDown := @MouseDown;
    Caption := '';
    Left := ScaleX(104);
    Top := ScaleY(112);
    Width := ScaleX(171);
    Height := ScaleY(53);
  end;

а если этот лейбл будет не давать пользоваться некоторыми элементами (SpeedButton-у например), то их нужно в той же вкладке
"дизайн" при щелчке правой кнопкой мыши по ним поднять "на передний план"

[MeХanik]

Как сделать , чтобы после установки в ярлыке на раб.столе был прописан путь : X:\XXX\Shrek 2\system
Инстал все тот же:

Код:

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

[Setup]
DiskSpanning=true
DiskSliceSize=1457664000
; 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={{4C9C2778-0018-4EA8-BD69-82E1027FEB7D}
AppName=Shrek 2
AppVersion=1.0
;AppVerName=Shrek 2 1.0
AppPublisher=MeXanik
AppPublisherURL=rutracker.org
AppSupportURL=rutracker.org
AppUpdatesURL=rutracker.org
DefaultDirName={pf}\Shrek 2
DefaultGroupName=Shrek 2
AllowNoIcons=yes
OutputDir=C:\Documents and Settings\Администратор\Рабочий стол\Новая папка
OutputBaseFilename=setup
SetupIconFile=D:\Разное\1336903674_adept_installer.ico
Compression=lzma/ultra64
SolidCompression=true
InternalCompressLevel=ultra64

[Languages]
Name: english; MessagesFile: compiler:Languages\English.isl
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: D:\Разное\Shrek2-1\System\Game.exe; DestDir: {app}; Flags: ignoreversion
;Source: D:\Разное\Shrek2-1\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: {group}\Shrek 2; Filename: {app}\Game.exe
Name: {group}\{cm:ProgramOnTheWeb,Shrek 2}; Filename: rutracker.org
Name: {group}\{cm:UninstallProgram,Shrek 2}; Filename: {uninstallexe}
Name: {commondesktop}\Shrek 2; Filename: {app}\Game.exe; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Shrek 2; Filename: {app}\Game.exe; Tasks: quicklaunchicon

[Run]
Filename: {src}\Shrek2.exe; WorkingDir: {app}; Parameters: -x -y -s2 -d.; StatusMsg: Идет распаковка данных, ждите...; Flags: runasoriginaluser
Filename: {app}\system\Game.exe; Description: {cm:LaunchProgram,Shrek 2}; Flags: nowait postinstall skipifsilent

[Registry]
Root: HKLM; SubKey: SOFTWARE\Activision\Shrek 2; ValueType: string; ValueName: InstallPath; ValueData: {app}; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\Activision\Shrek 2; ValueType: string; ValueName: StartMenuFolder; ValueData: MeXanik
Root: HKLM; SubKey: SOFTWARE\Activision\Shrek 2; ValueType: string; ValueName: Version; ValueData: 1.00
Root: HKLM; SubKey: SOFTWARE\Activision\Shrek 2; ValueType: string; ValueName: Language; ValueData: 1049
Root: HKLM; SubKey: SOFTWARE\Activision\Shrek 2; ValueType: string; ValueName: UninstallString; ValueData: C:\Program Files\Common Files\InstallShield\Driver\7\Intel 32\Idriver.exe
Root: HKLM; SubKey: SOFTWARE\Activision\Shrek 2; ValueType: string; ValueName: UninstallArgs; ValueData: /M{{7774A6A9-CE0D-4544-9A29-84351BAE184A}

[UninstallDelete]
 Name: {app}\*.*; Type: filesandordirs

[R.i.m.s.k.y.]

MeХanik, почитать про абсолютные и относительные пути

Код:

[Icons]
Name: {group}\Shrek 2; Filename: {app}\System\Game.exe; WorkingDir: {app}\System

[bugmenotagain]

в реестре ошибка появляется после распаковки.


Значит страницы никак нельзя отредактировать?
NSIS действительно самый лучший. все страницы там руками пишешь, без всякой черной магии и pascal.

[R.i.m.s.k.y.]

bugmenotagain, и что из этой куцой картинки мы должны понять?

[bugmenotagain]

R.i.m.s.k.y., ошибка в реестре. программа CCleaner

[R.i.m.s.k.y.]

bugmenotagain,
Телепаты сидят в вопросах и ответах мэйл.ру
Из тебя все клещами тянуть надо? покажи скрипт и при каких условиях возникает ошибка

[bugmenotagain]

Код:

#define MyAppName "WinDjView 1.0.3" 
#define MyAppVersion "1.0.3" 
#define MyAppExeName "WinDjView.exe"  
[Setup] 
AppId={{60F3D1CB-B2A7-46E7-92B0-93526131061D} 
AppName={#MyAppName} 
AppVersion={#MyAppVersion} 
AppVerName=WinDjView 1.0.3 
DefaultDirName={pf}\WinDjView 
DefaultGroupName={#MyAppName} 
DisableProgramGroupPage=yes 
InfoBeforeFile=C:\Users\Admin\Desktop\ss.rtf 
OutputDir=D:\Инстляторы 
OutputBaseFilename=WinDjView.v1.0.3 
SetupIconFile=C:\Users\Admin\Desktop\win.ico 
Compression=lzma 
SolidCompression=yes 
WizardImageFile=картинка.bmp 
WizardSmallImageFile=55x55.bmp 
UninstallFilesDir={app}\uninstall 
DirExistsWarning=no 
WizardImageStretch=no  
WizardImageBackColor=clWhite 
ShowComponentSizes=no   
[Languages] 
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"  
[Tasks] Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkedonce; Components: norm;  
[Components] 
Name: norm; Description: Установка; Flags: exclusive 
Name: port; Description: Распаковка; Flags: exclusive  
[Files] 
Source: "C:\users\Admin\Desktop\WinDjViewPortable\*"; DestDir: {app}\; Flags: ignoreversion createallsubdirs recursesubdirs sortfilesbyextension sortfilesbyname uninsneveruninstall; Components: port Source: "C:\Program Files\WinDjView\*"; DestDir: {app}\; Flags: ignoreversion createallsubdirs recursesubdirs sortfilesbyextension sortfilesbyname; Components: norm   
[UninstallDelete] 
Type: files; Name: {app}\ ; Components: port  
[Icons]  
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}" 
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon 
 [   Code] 
procedure CurStepChanged(CurStep: TSetupStep); 
var   
ResultCode: Integer; 
begin  
 if (CurStep = ssDone) and (IsComponentSelected('port')) then Exec(ExpandConstant('{app}\uninstall\unins000.exe'), '/VERYSILENT', '', SW_SHOW, ewNoWait, ResultCode);
 end;  
[Run] Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

после распаковки портативной версии программы.

[R.i.m.s.k.y.]

bugmenotagain, ну мало ли
а точно имя удалятора unins000.exe???

так попробуй

Код:

#define MyAppName "WinDjView 1.0.3" 
#define MyAppVersion "1.0.3" 
#define MyAppExeName "WinDjView.exe"  

[Setup] 
AppId={{60F3D1CB-B2A7-46E7-92B0-93526131061D} 
AppName={#MyAppName} 
AppVersion={#MyAppVersion} 
AppVerName=WinDjView 1.0.3 
DefaultDirName={pf}\WinDjView 
DefaultGroupName={#MyAppName} 
DisableProgramGroupPage=yes 
InfoBeforeFile=C:\Users\Admin\Desktop\ss.rtf 
OutputDir=D:\Инстляторы 
OutputBaseFilename=WinDjView.v1.0.3 
SetupIconFile=C:\Users\Admin\Desktop\win.ico 
Compression=lzma 
SolidCompression=yes 
WizardImageFile=картинка.bmp 
WizardSmallImageFile=55x55.bmp 
UninstallFilesDir={app}\uninstall 
DirExistsWarning=no 
WizardImageStretch=no  
WizardImageBackColor=clWhite 
ShowComponentSizes=no   

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

[Tasks] 
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkedonce; Components: norm;  

[Components] 
Name: norm; Description: Установка; Flags: exclusive 
Name: port; Description: Распаковка; Flags: exclusive  

[Files] 
Source: "C:\users\Admin\Desktop\WinDjViewPortable\*"; DestDir: {app}\; Flags: ignoreversion createallsubdirs recursesubdirs sortfilesbyextension sortfilesbyname uninsneveruninstall; Components: port 
Source: "C:\Program Files\WinDjView\*"; DestDir: {app}\; Flags: ignoreversion createallsubdirs recursesubdirs sortfilesbyextension sortfilesbyname; Components: norm   

;[UninstallDelete] 
;Type: files; Name: {app}\ ; Components: port  

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

[*Code] 
procedure CurStepChanged(CurStep: TSetupStep); 
var   
ResultCode: Integer; 
begin  
if (CurStep = ssDone) then begin
  if (IsComponentSelected('port')) then begin
  Exec(ExpandConstant('{app}\uninstall\unins000.exe'), ' /VERYSILENT', ExpandConstant('{app}\uninstall'), SW_SHOW, ewNoWait, ResultCode);
  MsgBox('папка с удалятором = '  + ExpandConstant('{app}\uninstall'), mbInformation, MB_OK);
  if RegKeyExists(HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{60F3D1CB-B2A7-46E7-92B0-93526131061D}_is1) then MsgBox('ключ в реестре не удален', mbInformation, MB_OK);
  end; //if (IsComponentSelected('port'))
end; //if (CurStep = ssDone)
end;  //CurStepChanged

[Run] 
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

[bugmenotagain]

Код:

  if RegKeyExists(HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{60F3D1CB-B2A7-46E7-92B0-93526131061D}_is1) then MsgBox('ключ в реестре не удален', mbInformation, MB_OK);