[Johny777]

немного изменил один из примеров ботвы (теперь без ботвы)
при нажатии на кнопку "отмена" создаётся своя форма с кнопками "Да" и "Нет"
может кому-то (мне однозначно) пригодится

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
OutputDir=userdocs:Inno Setup Examples Output

[   code]
var
  NoButton, YesButton: TButton;
  MyExit: TSetupForm;

procedure MyExitMessage();
begin
  MyExit := CreateCustomForm();
  with MyExit do
    begin
      BorderIcons := [];
      Position := poScreenCenter;
      ClientWidth := ScaleX(230);
      ClientHeight := ScaleY(100);
      Caption := ExpandConstant(SetupMessage(msgExitSetupTitle));
      Color := $48c1ca;
    end;

  NoButton := TButton.Create(MyExit);
  with NoButton do
    begin
      Parent := MyExit;
      Left := ScaleX(50);
      Caption := 'Нет';
      Top := ScaleY(60);
      Width := ScaleX(60);
      Height := ScaleY(25);
      ModalResult:= mrNo;
    end;

  YesButton := TButton.Create(MyExit);
    with YesButton do
    begin
      Caption := 'Да';
      Parent := MyExit;
      Left := ScaleX(120);
      Top := ScaleY(60);
      Width := ScaleX(60);
      Height := ScaleY(25);
      ModalResult := mrYes;
    end;
end;


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

  MyExitMessage();
  if MyExit.ShowModal() = mrNo then
    Cancel := False;
end;

зачем?

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

R.i.m.s.k.y.,
оформление в инно - пустая трата времени, головняка много, а толку мало

[sergey3695]

только и остаётся к сожалению, тк чтобы добавить функцию какую ты хотел нужно связаться с автором библиотеки. Именно это я тебе советую. Его не трудно найти или используй родной деинсталл, если это возможно [UninstallDelete] Type: filesandordirs; Name: {app} »

почитай из справки:
Эта Директива используется, чтобы предотвратить пользователей от установки новой версии приложения, пока приложение работает, и, чтобы помешать пользователю удаление запущенного приложения. Это указывает имена одного или более именованных мьютексы (несколько семафоров разделяются запятыми), которые Установке и удалению будет проверять при загрузке. Если таковые имеются, Установка/Удаление появится сообщение: "[Установки или удаления] показали, что [Заменяет] выполняется в настоящее время. Пожалуйста, закройте все экземпляры его сейчас, затем нажмите кнопку OK, чтобы продолжить, или Отменить, чтобы прервать работу." Значение может содержать константы.
Я знаю автора isdone, и тут библиотека не причем. Почитай можь поймешь.

[Johny777]

почитай из справки: »

давай подумаем
isdone я не использую и потому ограничен в помощи больше обычного.
Сам не использую его или другие скрипты/библиотеки нацеленные на создание возможности распаковки архивов Инно сатапом, созданных внешними ужималками а не родным встроенным 7-ZIP.
У меня всё работает!
ты же используешь исдан. А это библиотека со скриптом, через который ты к ней обращаешься. Уберём лишнее. Получаем в конечном итоге библиотеку и конфликт который тебе хочется решить
Вывод: Директива AppMutex несовместима с библиотекой или со скриптом-настройкой к библиотеке. Если второе, то совет я тебе дал. Не помогло? Значит обратись к автору библиотеки.
И справку я читал хоть и не всю (не isdone).
Ты лучше перечитай справку к isdone
И последнее . Этот форум не для обсуждения isdone. Для него есть особая ветка на руборде (не в обиду тебе).
PS:
у медали две стороны. Если ты ставишь себе превыше всего более сильное сжатие при помощи isdone, которое не всегда имеет место или не стоит того, то рискуешь потерять что-то другое.

[sergey3695]

Johny777, я тебе написал не про isdone
[Setup]: AppMutex
Description:
This directive is used to prevent the user from installing new versions of an application while the application is still running, and to prevent the user from uninstalling a running application. It specifies the names of one or more named mutexes (multiple mutexes are separated by commas), which Setup and Uninstall will check for at startup. If any exist, Setup/Uninstall will display the message: "[Setup or Uninstall] has detected that [AppName] is currently running. Please close all instances of it now, then click OK to continue, or Cancel to exit." The value may include constants.

Из справки inno про AppMutex.
Нехотел я объяснять, не люблю много печатать, но придёться. Из справки понятно что один и тот же AppMutex проверяется как и при запуске инсталлятора так и при запуске деинсталлятора.

[Johny777]

Из справки inno про AppMutex. »

зачем ты мне уже второй раз одно и то же из справки цитируешь
и чем смысл разъяснений справки отличается от моих же слов?

не даёт пользователю запустить тот же инсталл несколько раз пока он работает »

вот можешь посмотреть работу дерективы в деле на примере более ранней версии моего скрипта
http://sendfile.su/566305

[sergey3695]

вот скрин
Что тут непонятно?

[Johny777]

sergey3695,

Промт или гугловский переводчик?

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

Эта Директива используется, чтобы предотвратить пользователей от установки новой версии приложения, пока приложение работает, и, чтобы помешать пользователю удаление запущенного приложения. Это указывает имена одного или более именованных мьютексы (несколько семафоров разделяются запятыми), которые Установке и удалению будет проверять при загрузке. Если таковые имеются, Установка/Удаление появится сообщение: "[Установки или удаления] показали, что [Заменяет] выполняется в настоящее время. Пожалуйста, закройте все экземпляры его сейчас, затем нажмите кнопку OK, чтобы продолжить, или Отменить, чтобы прервать работу." Значение может содержать константы. Я знаю автора isdone, и тут библиотека не причем. Почитай можь поймешь. »

вот русская справка.
http://sendfile.su/570136

[Ivan_009]

Покажите пример наложения картинки на весь экран только не через isgsg.dll..

[Johny777]

Ivan_009,

1. фоновый рисунок в зависимости от разрешения экрана (разрешения не все. Сделай по аналогии какие надо)

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

Код:

 
[Setup] 
AppName=AppName 
AppVerName=AppVerName 
DefaultDirName={pf}\AppName 

[Files] 
Source: 640.bmp; DestDir: {tmp}; Flags: dontcopy 
Source: 800.bmp; DestDir: {tmp}; Flags: dontcopy 
Source: 1024.bmp; DestDir: {tmp}; Flags: dontcopy 
Source: 1152.bmp; DestDir: {tmp}; Flags: dontcopy 
Source: 1280.bmp; DestDir: {tmp}; Flags: dontcopy 
Source: 1600.bmp; DestDir: {tmp}; Flags: dontcopy 

[  Code] 
function GetDC(HWND: DWord): DWord; 
external 'GetDC@user32.dll stdcall'; 

function GetDeviceCaps(DC: DWord; Index: Integer): Integer; 
external 'GetDeviceCaps@gdi32.dll stdcall'; 

function ReleaseDC(HWND: DWord;DC: DWord): Integer; 
external 'ReleaseDC@user32.dll stdcall'; 

function ShowWindow(hWnd: DWord; nCmdShow: Integer): boolean; 
external 'ShowWindow@user32.dll stdcall'; 

function SetWindowLong(hWnd: DWord; nIndex: Integer; dwNewLong: Longint): Longint; 
external 'SetWindowLongA@user32.dll stdcall'; 

procedure InitializeWizard(); 
var 
bgImage : TBitmapImage; 
bgImageName: String; 
width: integer; 
dc: DWord; 

begin 
bgImage:=TBitmapImage.Create(MainForm) 
bgImage.Align:=alClient 
bgImage.Stretch:=True 
bgImage.Parent:=MainForm 

dc:=GetDC(MainForm.Handle) 
width:=GetDeviceCaps(dc,8) 
ReleaseDC(MainForm.Handle,dc) 

if width <=640 then 
bgImageName:='640.bmp' 

else if width<=800 then 
bgImageName:='800.bmp' 

else if width<=1024 then 
bgImageName:='1024.bmp' 

else if width<=1152 then 
bgImageName:='1152.bmp' 

else if width<=1280 then 
bgImageName:='1280.bmp' 

else 
bgImageName:='1600.bmp' 

ExtractTemporaryFile(bgImageName) 
bgImage.bitmap.LoadFromFile(expandConstant('{tmp}\'+bgImageName)) 

SetWindowLong(MainForm.Handle,-16,$80000000) 
ShowWindow(Mainform.Handle,SW_SHOWMAXIMIZED) 
end;

2. пример Виктора Доброва из папки ...Inno Setup 5\Scripts\Dobrov\BackgroundImage.iss

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

Код:

[Setup]
AppName=Background Image
AppVerName=Background Image
CreateAppDir=false

[Files]
Source: BackgroundImage.bmp; DestDir: embedded; Flags: dontcopy noencryption

[ Code]
function ShowWindow(hWnd, nCmdShow: LongWord): LongWord; external 'ShowWindow@user32.dll stdcall';

Procedure BackgroundOnActivate(Sender: TObject); Begin if WizardForm.Visible then WizardForm.Show End;

Procedure InitializeWizard;
var BackgroundForm: TForm; BackgroundImage: TBitmapImage;
	Begin
BackgroundForm:= TForm.Create(nil)
	BackgroundForm.BorderStyle:= bsNone
	BackgroundForm.OnActivate:= @BackgroundOnActivate;
	ShowWindow(BackgroundForm.Handle, sw_ShowMaximized)  	// фоновое окно на полный экран
BackgroundImage:= TBitmapImage.Create(BackgroundForm)
	BackgroundImage.Align:= alClient
	BackgroundImage.Stretch:= True
ExtractTemporaryFile('BackgroundImage.bmp')
	BackgroundImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\BackgroundImage.bmp'))
	BackgroundImage.Parent:= BackgroundForm
end;

[Ivan_009]

У кого есть isSlideShow v1.03 поделитесь пожалуйста нигде не могу найти..........