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

Ответить
 • Просмотры: 40
Аватара пользователя
maslo_net

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

Сообщение maslo_net »

Спасибо, все оказалось просто))
Вернуться к началу
Аватара пользователя
pist0n

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

Сообщение pist0n »

Цитата ShadeUa:



Ребята , помогите з скриптом , оочень нужно ((
Скрипты Inno Setup. Помощь и советы [часть 8]




Окей. Изображение

Описание проблемы и скрипт в студию. Изображение
Вернуться к началу
Аватара пользователя
ofarapirs

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

Сообщение ofarapirs »

Цитата Shift85:



Описание проблемы и скрипт в студию.
Скрипты Inno Setup. Помощь и советы [часть 8]




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

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

вот я писал , там просто не так его соеденил , и сам же скрипт
Вернуться к началу
Аватара пользователя
comsun

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

Сообщение comsun »

Как организовать установку программы для 4 вариантов осей: ХР - 32бит, ХР - 64бит, Виста, 7 - 32бит, Виста, 7 - 64 бит?

никак не найду скрипт.
Вернуться к началу
Аватара пользователя
Oasis

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

Сообщение Oasis »

ZVSRus, спасибо за наводку.

вставил этот скрипт, может кому пригодится

[spoiler][Files]

Source: Portal_1.bmp; DestDir: {tmp}

Код: Выделить всё


var

  MyExit: TSetupForm;

procedure MyExitMessage();

var

  OkButton, CancelButton: TButton;

  MyIcon: String;

begin

  MyExit := CreateCustomForm();

  with MyExit do

  begin

    color := clblack

    Position := poScreenCenter;

    ClientWidth := WizardForm.Width;

    ClientHeight := WizardForm.Height div 2;

    Caption := ExpandConstant(SetupMessage(msgExitSetupTitle));

    MyIcon := ExpandConstant(AddBackSlash('{tmp}') + 'Portal_1.bmp');

    if not FileExists(MyIcon) then

      ExtractTemporaryFile(ExtractFileName(MyIcon));

    with TBitmapImage.Create(MyExit) do

    begin

      Left := ScaleX(10);

      Top := ScaleY(20);

      Width := ScaleX(80);

      Height := ScaleY(80);

      Bitmap.LoadFromFile(MyIcon);

      Parent := MyExit;

    end;

    with TNewStaticText.Create(MyExit) do

    begin

      Left := ScaleX(110);

      Top := ScaleY(20);

      Width := MyExit.Width - ScaleX(115);

      Height := MyExit.Height div 2;

      AutoSize := False;

      WordWrap := True;

      Caption := ExpandConstant(SetupMessage(msgExitSetupMessage));

      Parent := MyExit;

      Font.Name:='Comic Sans MS'

      Font.Color:=ClWhite;

    end;

    CancelButton := TButton.Create(MyExit);

    with CancelButton do

    begin

      Width := WizardForm.CancelButton.Width;

      Height := WizardForm.CancelButton.Height;

      Left := MyExit.Width - Width - ScaleX(15);

      Top := MyExit.Height - Height * 2 - ScaleY(15);

      Caption:='Назад';

      ModalResult := mrCancel;

      Parent := MyExit;

    end;

    OkButton := TButton.Create(MyExit);

    with OkButton do

    begin

      Width := CancelButton.Width;

      Height := CancelButton.Height;

      Left := CancelButton.Left - Width - ScaleX(5);

      Top := CancelButton.Top;

      Caption:='Выйти';

      ModalResult := mrOk;

      Parent := MyExit;

    end;

    ActiveControl := CancelButton;

  end;

end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);

begin

  Confirm := False;

  MyExitMessage();

  if MyExit.ShowModal() = mrCancel then

    Cancel := False;

end;[/spoiler]
Вернуться к началу
Аватара пользователя
eromunald

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

Сообщение eromunald »

ROMKA-1977, Пробуйте:



Disks

[spoiler]Код:
[/spoiler]

Код: Выделить всё

[Setup]
OutputDir=Setup
AppName=DisksInfo
VersionInfoVersion=5.0
AppVerName=DisksInfo
DefaultDirName={pf}\My program
EnableDirDoesntExistWarning=true
[CustomMessages]
Ru.SysDirSelect=Выбранный путь включает в себя системную папку!%nВы уверены, что необходимо продолжать установку?
[Languages]
Name: Ru; MessagesFile: compiler:Languages\Russian.isl
[Icons]
Name: {group}\Notepad; Filename: notepad.exe
[Code]
type
PcHar=Pansichar;
var n: Integer; 
FreeMB, TotalMB: Cardinal; 
VolumeName, FileSystemName: String; 
VolumeSerialNo, MaxComponentLength, FileSystemFlags: Longint; 
ListBox: TListBox; 
const oneMB= 1024*1024;
function GetLogicalDrives: DWord; external 'GetLogicalDrives@kernel32.dll stdcall';
function GetDriveType(nDrive: String): Longint; external 'GetDriveTypeA@kernel32.dll stdcall';
function GetVolumeInformation(PathName,VolumeName: PChar; VolumeNameSize,VolumeSerialNumber,MaxComponentLength,FileSystemFlags: Longint; FileSystemName: PChar; FileSystemNameSize: Longint): Longint; external 'GetVolumeInformationA@kernel32.dll stdcall';
function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer; external 'MessageBoxA@user32.dll stdcall';
Function ByteOrTB(Bytes: Extended; noMB: Boolean): String; { Перевод числа в значение бт/Кб/Мб/Гб/Тб (до 3х знаков после запятой)}
Begin
	if not noMB then Result:= FloatToStr(Int(Bytes)) +' Мб' else
		if Bytes < 1024 then Result:= FloatToStr(Int(Bytes)) +' Бт' else
			if Bytes/1024 < 1024 then Result:= FloatToStr(round((Bytes/1024)*10)/10) +' Кб' else
				If Bytes/oneMB < 1024 then Result:= FloatToStr(round(Bytes/oneMB*100)/100) +' Мб' else
					If Bytes/oneMB/1000 < 1024 then Result:= FloatToStr(round(Bytes/oneMB/1024*1000)/1000) +' Гб' else
						Result:= FloatToStr(round(Bytes/oneMB/oneMB*1000)/1000) +' Тб';
	StringChange(Result, ',', '.');
End;
Function DelSP(String: String): String; { Удаление начальных, конечных и повторных пробелов }
	Begin	while (Pos('  ', String) > 0) do Delete(String, Pos('  ', String), 1); Result:= Trim(String); End;
Function CutString(String: String; MaxLength: Longint): String; { Обрезать строку до заданного кол-ва символов}
	Begin
		if Length(String) > MaxLength then Result:= Copy(String, 1, 6) +'...'+ Copy(String, Length(String) - MaxLength +9, MaxLength)
		else Result:= String;
	End;
Procedure GetDiskInfo(Disk: String);
	Begin
		FileSystemName:= StringOfChar(' ', 32); VolumeName:= StringOfChar(' ', 256);
			GetVolumeInformation(Disk, VolumeName, 255, VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName, 31);
		FileSystemName:= DelSp(FileSystemName); VolumeName:= DelSp(VolumeName); if VolumeName='' then VolumeName:='без метки';
	End;
Procedure ListBoxRefresh;	var FreeB, TotalB: Cardinal; Path, String: string; Begin
	ListBox.Items.Clear
for n:= 1 to 31 do	// диск 'А' пропустить
	if (GetLogicalDrives and (1 shl n)) > 0 then
		if (GetDriveType(Chr(ord('A') + n) +':\') = 2) or (GetDriveType(Chr(ord('A') + n) +':\') = 3) then
			if GetSpaceOnDisk(Chr(ord('A') + n) +':\', True, FreeMB, TotalMB) then ListBox.Items.Add(Chr(ord('A') + n) +':');
for n:= 0 to ListBox.Items.Count -1 do begin
	Path:= Copy(ListBox.Items[n],1,2) +'\'		{ если в накопителе нет диска, пропустить обновление }
	if GetSpaceOnDisk(Path, False, FreeB, TotalB) and GetSpaceOnDisk(Path, True, FreeMB, TotalMB) then begin GetDiskInfo(Path);
		if FreeB >= $7FFFFFFF then String:= PadL(ByteOrTB(FreeMB*oneMB, true),10) else String:= PadL(ByteOrTB(FreeB, true),10);
		if TotalB >= $7FFFFFFF then begin TotalB:= TotalMB; FreeB:= FreeMB; String:= PadL(ByteOrTB(TotalMB*oneMB, true),11) +' всего| '+ String end else String:= PadL(ByteOrTB(TotalB, true),11) +' всего| '+ String;
	ListBox.Items[n]:= Copy(Path,1,2) + String + PadL(FloatToStr(round(FreeB/TotalB*100)),3)+ '% своб|'+ PadL(FileSystemName,5)+ '| '+ CutString(VolumeName,9); end; end;
End;
Procedure ObjectOnClick(Sender: TObject); Begin
Case TObject(Sender) of
	ListBox:	for n:= 0 to ListBox.Items.Count-1 do if ListBox.Selected[n] then WizardForm.DirEdit.Text:= Copy(ListBox.Items[n],1,1) +Copy(WizardForm.DirEdit.Text, 2, Length(WizardForm.DirEdit.Text))
end; End;
Function NextButtonClick(CurPageID: Integer): Boolean; Begin
	Result:= True
	if (CurPageID = wpSelectDir) and (Pos(Uppercase(ExpandConstant('{win}')), Uppercase(ExpandConstant('{app}'))) > 0) then Result:= MessageBox(StrToInt(ExpandConstant('{wizardhwnd}')), ExpandConstant('{cm:SysDirSelect}'), 'Установка в системную папку', MB_YESNO or $30) = idYes;
End;
Procedure CurPageChanged(CurPageID: Integer);
Begin
	if CurPageID = wpSelectDir then ListBoxRefresh
End;
Procedure InitializeWizard;
Begin
	  ListBox:= TListBox.Create(WizardForm)
		ListBox.SetBounds(WizardForm.DirEdit.Left, WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 8, WizardForm.DirBrowseButton.Left + WizardForm.DirBrowseButton.Width - WizardForm.DirEdit.Left, WizardForm.DiskSpaceLabel.Top - (WizardForm.DirEdit.Top + WizardForm.DirEdit.Height + 12))
		ListBox.Font.Size:= 9
		ListBox.Font.Style:= [fsBold]
		ListBox.Font.Name:= 'Courier New';
		ListBox.OnClick:= @ObjectOnClick;
		ListBox.Parent:= WizardForm.SelectDirPage;
End;









GameuxInstallHelper

[spoiler]Код:
[/spoiler]

Код: Выделить всё

#define MainExe "{app}\MassEffectLauncher.exe"
#define GDFBinary "{app}\Binaries\MassEffectGDF.dll"
[Files]
Source: GameuxInstallHelper.dll; DestDir: {app}; Flags: overwritereadonly
[Code]
#ifdef UNICODE
  #define A "W"
#else
  #define A "A"
#endif
type
TGUID = record
Data1: Cardinal;
Data2,
Data3: Word;
Data4: array [0..8] of char;
end;
function GenerateGUID(var GUID: TGUID): Cardinal; external 'GenerateGUID{#A}@files:GameuxInstallHelper.dll stdcall setuponly';
function AddToGameExplorer(Binary: String; Path: String; InstallType: Integer; var GUID: TGUID): Cardinal; external 'AddToGameExplorerA{#A}@files:GameuxInstallHelper.dll stdcall setuponly';
function CreateTask(InstallType: Integer; var GUID: TGUID; TaskType: Integer; TaskNumber: Integer; TaskName: String; Binary: String; Parameters: String): Cardinal; external 'CreateTaskA@files:GameuxInstallHelper.dll stdcall setuponly';
function RetrieveGUIDForApplication(Binary: String; var GUID: TGUID): Cardinal; external 'RetrieveGUIDForApplicationA@{app}\GameuxInstallHelper.dll stdcall uninstallonly';
function RemoveFromGameExplorer(var GUID: TGUID): Cardinal; external 'RemoveFromGameExplorer@{app}\GameuxInstallHelper.dll stdcall uninstallonly';
function RemoveTasks(var GUID: TGUID): Cardinal; external 'RemoveTasks@{app}\GameuxInstallHelper.dll stdcall uninstallonly';
const
PlayTask = 0;
SupportTask = 1;
var
GUID: TGUID;
procedure CurStepChanged(CurStep: TSetupStep);
var
Binary, MainExe: String;
begin
if CurStep = ssInstall then
GenerateGUID(GUID);
if CurStep = ssPostInstall then
begin
Binary:=ExpandConstant('{#GDFBinary}');
MainExe:=ExpandConstant('{#MainExe}');
AddToGameExplorer(Binary, ExpandConstant('{app}'), 3, GUID);
CreateTask(3, GUID, PlayTask, 0, 'Play', MainExe, '');
CreateTask(3, GUID, SupportTask, 0, 'BioWare Website', 'http://www.bioware.com/', '');
CreateTask(3, GUID, SupportTask, 1, 'Support WebSite', 'http://masseffect.bioware.com/route/me/pc/vt/cs/en/', '');
end;
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
Binary: String;
GUID: TGUID;
begin
if CurUninstallStep=usUninstall then
begin
Binary:=ExpandConstant('{#GDFBinary}');
RetrieveGUIDForApplication(Binary, GUID);
RemoveFromGameExplorer(GUID);
RemoveTasks(GUID);
UnloadDll(ExpandConstant('{app}\GameuxInstallHelper.dll'));
end;
end;
Вернуться к началу
Аватара пользователя
eromunald

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

Сообщение eromunald »

Цитата Dodakaedr:



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




в коде GameuxInstallHelper ошибка - Duplicate identifier TGUID",

код с дисками ничего не отображает.
Вложения

[Расширение jpg было запрещено, вложение больше недоступно.]

Вернуться к началу
Аватара пользователя
postal1703

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

Сообщение postal1703 »

Ребята, нужна помощь. как и где указать файлы уже установленные инсталятором, которые должны остаться на компьютере пользователя после удаления основной программы? т.е нужно указать файлы которые деинсталятор будит обходить стороной.
Вернуться к началу
Аватара пользователя
pollipen

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

Сообщение pollipen »

Цитата Kashtan007:



Всем привет, можно ли сделать несколько страниц Components, если да, то как?

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




Одну страницу через секцию [Components] а вторую вручную создавать.


Пример

[spoiler]Код:
[/spoiler]

Код: Выделить всё

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
[Languages]
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"
[CustomMessages]
rus.CompName1=Зима.
rus.CompName2=Снежинки при загрузке.
rus.CompName3=Обводка персонажа снежинкой.
rus.CompName4=Интерфейс игры.
rus.CompName5=Модели.
rus.CompName6=Конфедерат.
rus.CompName7=Анархист.
rus.CompName8=Шарик для скила "Заморозка".
rus.CompName9=Fix убирающий тряску экрана.
rus.CompName10=Шарик + Fix,2в1.
rus.CompName11=Электро.
rus.CompName12=Огненная.
rus.CompName13=Снежная.
rus.CompName14=Сфера.
rus.CompName15=Электро.
rus.CompName16=Огненная.
rus.CompName17=Снежная.
rus.CompName18=Сфера.
rus.CompName19=Электро.
rus.CompName20=Огненная.
rus.CompName21=Снежная.
rus.CompName22=Сфера.(Для-3Б)
rus.CompName23=1-Электро,2-Огонь,3-Снег.
rus.CompName24=1-Огонь,2-Снег,3-Сфера.
rus.CompName25=1-Снег,2-Сфера,3-Электро.
rus.CompName26=1-Сфера,2-Электро,3-Огонь.
rus.CompName27=1-Электро,2-Снег,3-Огонь.
rus.CompName28=1-Огонь,2-Сфера,3-Снег.
rus.CompName29=1-Снег,2-Огонь,3-Сфера.
rus.CompName30=1-Сфера,2-Снег,3-Электро.
rus.CompName31=1-Электро,2-Огонь,3-Сфера.
rus.CompName32=1-Огонь,2-Электро,3-Сфера.
rus.CompName33=1-Снег,2-Огонь,3-Электро.
rus.CompName34=1-Сфера,2-Снег,3-Огонь.
rus.CompName35=1-Стрел,2-Пех,3-Мед.
[Components]
Name: Mode; Description: mode; Types: Full; flags: fixed
Name: Mode/SPOnly; Description: SPOnly; Flags:  disablenouninstallwarning exclusive
Name: Mode/MPOnly; Description: MPOnly; Flags: disablenouninstallwarning exclusive
Name: Mode2; Description: mode; Types: Full; flags: fixed
Name: Mode2/SPOnly2; Description: SPOnly; Flags: disablenouninstallwarning exclusive
Name: Mode2/MPOnly2; Description: MPOnly; Flags: disablenouninstallwarning exclusive
[Code]
var
ComponentsPage: TWizardPage;
ComponentsList: TNewCheckListBox;
procedure RedesignWizardForm;
begin
  ComponentsPage := CreateCustomPage(wpSelectComponents, SetupMessage(msgWizardSelectComponents), SetupMessage(msgSelectComponentsDesc));
  ComponentsList := TNewCheckListBox.Create(WizardForm);
  with ComponentsList do
  begin
    Parent := ComponentsPage.Surface;
    SetBounds(ScaleX(0), ScaleY(0), ScaleX(416), ScaleY(220));
    AddCheckBox('Дополнительные компоненты.', '', 0, False, True, False, True, nil);
      AddCheckBox('Winter', '', 1, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName1'), '', 2, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName2'), '', 2, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName3'), '', 2, False, True, False, True, nil);
      AddCheckBox('Interface', '', 1, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName4'), '', 2, False, True, False, True, nil);
      AddCheckBox('Models', '', 1, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName5'), '', 2, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName6'), '', 2, False, True, False, True, nil);
        AddCheckBox(CustomMessage('CompName7'), '', 2, False, True, False, True, nil);
      AddCheckBox('Шарик от скила ''Заморозка'',Fix на массу киборга', '', 1, False, True, False, True, nil);
        AddRadioButton(CustomMessage('CompName8'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName9'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName10'), '', 2, False, True, nil);
    AddCheckBox('Сферы 3B', '', 0, False, True, False, True, nil);
      AddCheckBox('Стрел', '', 1, False, True, False, True, nil);
        AddRadioButton(CustomMessage('CompName11'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName12'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName13'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName14'), '', 2, False, True, nil);
      AddCheckBox('Пех', '', 1, False, True, False, True, nil);
        AddRadioButton(CustomMessage('CompName15'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName16'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName17'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName18'), '', 2, False, True, nil);
      AddCheckBox('Мед', '', 1, False, True, False, True, nil);
        AddRadioButton(CustomMessage('CompName19'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName20'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName21'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName22'), '', 2, False, True, nil);
      AddCheckBox('Сферы для 3B + Tesla.Cкрины идут по цифре 1,показывая как выглядит тесла пуха.Как выглядит 3B смотрите выше', '', 1, False, True, False, True, nil);
        AddRadioButton(CustomMessage('CompName23'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName24'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName25'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName26'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName27'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName28'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName29'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName30'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName31'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName32'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName33'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName34'), '', 2, False, True, nil);
        AddRadioButton(CustomMessage('CompName35'), '', 2, False, True, nil);
  end;
end;
procedure InitializeWizard();
begin
    RedesignWizardForm;
end;
Вернуться к началу
Аватара пользователя
ErikPshat

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

Сообщение ErikPshat »

habib2302, спасибо! Проверил, отлично работает по умолчанию.
Вернуться к началу
Ответить

Вернуться в «Автоматическая установка приложений»