[neorom]

Просьба одредактироваить скрипт з єтого зделать так и разнинє папки з файлами для инсталяции

Мой скрипт (програма инсталятор должна сама определять какиє програми инстальовани и стояли там видпавиднеє галочки в окне исталяции)

[Setup]
AppName=Microsoft® Windows® XP Ukrainian User Interface Pack
AppVerName=Microsoft® Windows® XP Ukrainian Multilingual User Interface Pack
AppPublisher=Music Mix Studio© & Records Company® 2006-2008
AppPublisherURL=http://winxp.org.ua
AppSupportURL=http://winxp.org.ua
AppUpdatesURL=http://winxp.org.ua
CreateAppDir=no
OutputBaseFilename=setup1
Compression=lzma
Uninstallable=no
PrivilegesRequired=none
DisableProgramGroupPage=yes
LicenseFile=embedded\License.txt
InfoBeforeFile=embedded\InfoBefore.txt
InfoAfterFile=embedded\InfoAfter.txt
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp

[Files]
Source: {tmp}\*.*; DestDir: {tmp}\mui; Flags: ignoreversion

[Run]
Filename: {tmp}\mui\muisetup_ru_sp2.exe; Parameters: /i 0422 /d 0422 /l /f /r /s; Components: sp2comp; Tasks: sp2
Filename: {tmp}\mui\muisetup_ru_sp3.exe; Parameters: /i 0422 /d 0422 /l /f /r /s; Components: sp3comp; Tasks: sp3
Filename: {tmp}\mui\muisetup_ru_sp2.exe; Components: sp2comp; Tasks: sp2m
Filename: {tmp}\mui\muisetup_ru_sp3.exe; Components: sp3comp; Tasks: sp3m
Filename: {tmp}\mui\wmp_8_mui.cmd; Tasks: mp8
Filename: {tmp}\mui\wmp_9_mui.cmd; Tasks: mp9
Filename: {tmp}\mui\wmp_10_mui.cmd; Tasks: mp10
Filename: {tmp}\mui\wmp_11_mui.cmd; Tasks: mp11

[Tasks]
Name: sp2; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp2comp
Name: sp3; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp3comp
Name: sp2m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp2comp
Name: sp3m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp3comp
Name: mp8; Description: 8; GroupDescription: Оберіть версію встановленого Медіа Програвача
Name: mp9; Description: 9; GroupDescription: Оберіть версію встановленого Медіа Програвача
Name: mp10; Description: 10; GroupDescription: Оберіть версію встановленого Медіа Програвача
Name: mp11; Description: 11; GroupDescription: Оберіть версію встановленого Медіа Програвача

[Components]
Name: sp2comp; Description: Service Pack 2; Types: sp2os
Name: sp3comp; Description: Service Pack 3; Types: sp3os

[Types]
Name: sp3os; Description: Service Pack 3
Name: sp2os; Description: Service Pack 2

[Languages]
Name: ukrainian; MessagesFile: compiler:Languages\Ukrainian.isl

[insombia]

neorom вот так?

[Tasks] Name: sp2; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp2comp Name: sp3; Description: Автоматичне встановлення (рекомендовано); GroupDescription: Виберіть режим встановлення; Components: sp3comp Name: sp2m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp2comp Name: sp3m; Description: Ручне встановлення; GroupDescription: Виберіть режим встановлення; Components: sp3comp Name: mp8; Description: 8; GroupDescription: Оберіть версію встановленого Медіа Програвача Name: mp9; Description: 9; GroupDescription: Оберіть версію встановленого Медіа Програвача Name: mp10; Description: 10; GroupDescription: Оберіть версію встановленого Медіа Програвача Name: mp11; Description: 11; GroupDescription: Оберіть версію встановленого Медіа Програвача [Components] Name: sp2comp; Description: Service Pack 2; Types: sp2os Flags: exclusive Name: sp3comp; Description: Service Pack 3; Types: sp3os Flags: exclusive

[neorom]

Прошу http://us.ua/1060318/

Компиляция не идьот , пишет

[insombia]

Q: Как сделать, чтобы при распаковке файлов, инсталл убирался в маленькое окошко в углу экрана?
A: Мой вариант выглядит так

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

[Setup]
AppName=MiniInstall
AppVersion=1.0
DefaultDirName={pf}\MiniInstall

[Files]
Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs createallsubdirs;

[code]
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';

procedure MiniInstall;
begin
with WizardForm do
begin
Bevel.Hide;
Bevel1.Hide;
MainPanel.Hide;
AutoScroll := False;
ClientHeight := ScaleY(105);
InnerNotebook.Align := alClient;
ProgressGauge.Left := ScaleX(40);
CancelButton.Top := ScaleY(70);
CancelButton.BringToFront;
// ----- Позиция инсталлятора ----- \\
Left:=GetSystemMetrics(16)-Width; // Справа
// Left:=0; // Слева
Top:=GetSystemMetrics(17)-Height; // Внизу
// Top:=0; // Вверху
//----------------------------------\\
end;
end;

procedure RestoreInstall;
begin
with WizardForm do
begin
Bevel.Show;
ClientHeight := ScaleY(360);
Position:=poScreenCenter;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpInstalling: MiniInstall;
wpFinished: RestoreInstall;
end;
end;

кто-то может мне сделать чтобы кнопка отмены была в миниинсталле?а то её там нету
скрипт

[Tco 03]

Всем привет. Господа знатоки, подскажите, если не сложно. Мне нужно, чтобы программа не устанавливалась ниже XP. Если я напишу так:
if (WindowsVersion.Major < 5) then MsgBox('Установка ниже версии XP невозможна!', mbError, MB_OK); - так будет правильно?

дай скрипт »

На.

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

Код:

#include "botva2.iss"

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

[Files]
Source: botva2.dll; Flags: dontcopy;
Source: CallbackCtrl.dll; Flags: dontcopy;
Source: 1.png; Flags: dontcopy;

[ Code]
function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll')) then ExtractTemporaryFile('CallbackCtrl.dll');
if not FileExists(ExpandConstant('{tmp}\1.png')) then ExtractTemporaryFile('1.png');
  Result:=True;
end;

procedure InitializeWizard;
begin
  ImgLoad(WizardForm.WelcomeLabel2.Handle, ExpandConstant('{tmp}\1.png'), ScaleX(110), ScaleY(70), ScaleX(64), ScaleY(64), True, True);
  ImgApplyChanges(WizardForm.WelcomeLabel2.Handle);
end;

procedure DeinitializeSetup;
begin
  gdipShutdown;
end;

Библиотеку botva2 от htuos качай тут, ну и разбирайся дальше что да как.

Памагите созтать такой скрипт »

Тоже самое, через botva2 можно реализовать (картинки вставить и так далее)... Что касается рамок - это просто Bevel или скорей всего таже самая картика в формате .png

[insombia]

del

[Johny777]

Что касается рамок - это просто Bevel»

нет, это самый натуральный TNewGroupBox на этом скрине http://forum.oszone.net/post-2107907-1837.html
аж три раза! Удобная штука. Посмотри в дизайнере, если интересно

Мне нужно, чтобы программа не устанавливалась ниже XP. Если я напишу так: if (WindowsVersion.Major < 5) then MsgBox('Установка ниже версии XP невозможна!', mbError, MB_OK); - так будет правильно? »

даже не знаю
MajorVersion = 5 есть и у винды 2000 и 2003 а они старее XP. Короче вот код на определение версии винды. Не стал пользоваться встроенной
procedure GetWindowsVersionEx(var Version: TWindowsVersion); тк она сама использует вин апишную GetVersionEx + ещё какие-то процедуры/функции для заполнения нижних частей структуры TWindowsVersion (инфа о сервиспаке и тп)
короче если нужна чисто версия винды так будет быстрее, при работе напрямую с GetVersionEx(...) :

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

Код:

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

type
  WindowsVersion = (Windows2000, Windows2003, WindowsXP, WindowsVista, Windows7, Windows8);
  
  _OSVERSIONINFO = record
    dwOSVersionInfoSize: DWORD;
    dwMajorVersion: DWORD;
    dwMinorVersion: DWORD;
    dwBuildNumber: DWORD;
    dwPlatformId: DWORD;
    szCSDVersion: array[0..127] of Char;
  end;

function GetVersionEx(var lpVersionInformation: _OSVERSIONINFO): BOOL; external 'GetVersionEx{#A}@kernel32.dll stdcall';

function GetWindowsVersion(): WindowsVersion;
var
  VersionInformation: _OSVERSIONINFO;
begin
  VersionInformation.dwOSVersionInfoSize := SizeOf(VersionInformation);
  if not GetVersionEx(VersionInformation) then Exit;
  case VersionInformation.DwMajorVersion of
    5: case VersionInformation.DwMinorVersion of
      0: Result := Windows2000;
      1: Result := WindowsXP;
      2: Result := Windows2003;
    end;
    6: case VersionInformation.DwMinorVersion of
      0: Result := WindowsVista;
      1: Result := Windows7;
      2: Result := Windows8;
    end;
  end;
end;



procedure InitializeWizard();
begin
  if GetWindowsVersion = Windows7 then MsgBox('Windows7', mbInformation, MB_OK);
  if GetWindowsVersion = WindowsXP then MsgBox('Установка ниже версии XP невозможна!', mbError, MB_OK);
end;

Johny777 не могли бы Вы его, пожалуйста, отрехтовать »

в шапке уже есть пример. Там правда можно убрать каллбэк библиотеку, тк CallBackAddr('имя процедуры/функции') встроенная в расширенную инно тоже вернёт адрес нужной процедуры/функции. Как это сделать есть у меня в примере да и много где ещё. Я б сам сделал, но времени у меня уже нет и думаю появится оно у меня очень нескоро

[neorom]

insombia ну что там из скриптом, роботаєт ?(видали лишні повідомлення з скринки, бо в тебе переповнена вона і я не можу написати тобі повідомлення.)

[habib2302]

Tco 03, и дай скрипт только для деинсталлятора

[bosenkov5]

помогите сделать так чтобы в инсталяторе менялись картиники ну хотя бы две
у меня так:
первая картинка
предпоследняя картинка