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

[Антон_Мураткин@vk]

А Inno может ставить расширения в браузеры... в Хром там, Оперу или огнелиса? Если да, то где код бы посмотреть?

[Dodakaedr]

audiofeel, Пример скрипта скиньте

[Shift85]

Kashtan007, Зайдите в папку Inno Setup Ultra\Dll Examples\IsWin7 [dwmEnabled] и там найдете подходящий (так думаю) вам пример.



Mat_y, пример ассоциация файлов формата .ext1, .ext2, .ext3 с программой notepad.exe:

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

Код:

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

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
ChangesAssociations=yes
[Tasks]
Name: MostVideo; Description: "Most Video Files "; GroupDescription: Associate Video Files:
Name: MostVideo\DiracVideo; Description: Dirac; GroupDescription: Associate Video Files:
Name: MostVideo\AviVideo; Description: AVI; GroupDescription: Associate Video Files:
Name: MostVideo\MP4Video; Description: MP4; GroupDescription: Associate Video Files:
[Registry]
; .ext1
Root: HKCR; Subkey: .ext1; ValueType: string; ValueName: ; ValueData: MyProgramFile1; Flags: uninsdeletevalue; Tasks: MostVideo\DiracVideo;
Root: HKCR; Subkey: MyProgramFile1; ValueType: string; ValueName: ; ValueData: "My Program File ?1"; Flags: uninsdeletekey; Tasks: MostVideo\DiracVideo
Root: HKCR; Subkey: MyProgramFile1\DefaultIcon; ValueType: string; ValueName: ; ValueData: {sys}\notepad.exe,0; Tasks: MostVideo\DiracVideo
Root: HKCR; Subkey: MyProgramFile1\shell\open\command; ValueType: string; ValueName: ; ValueData: """{sys}\notepad.exe"" ""%1"""; Tasks: MostVideo\DiracVideo
; .ext2
Root: HKCR; Subkey: .ext2; ValueType: string; ValueName: ; ValueData: MyProgramFile2; Flags: uninsdeletevalue; Tasks: MostVideo\AviVideo;
Root: HKCR; Subkey: MyProgramFile2; ValueType: string; ValueName: ; ValueData: "My Program File ?2"; Flags: uninsdeletekey; Tasks: MostVideo\AviVideo
Root: HKCR; Subkey: MyProgramFile2\DefaultIcon; ValueType: string; ValueName: ; ValueData: {sys}\notepad.exe,0; Tasks: MostVideo\AviVideo
Root: HKCR; Subkey: MyProgramFile2\shell\open\command; ValueType: string; ValueName: ; ValueData: """{sys}\notepad.exe"" ""%1"""; Tasks: MostVideo\AviVideo
; .ext3
Root: HKCR; Subkey: .ext3; ValueType: string; ValueName: ; ValueData: MyProgramFile3; Flags: uninsdeletevalue; Tasks: MostVideo\MP4Video;
Root: HKCR; Subkey: MyProgramFile3; ValueType: string; ValueName: ; ValueData: "My Program File ?3"; Flags: uninsdeletekey; Tasks: MostVideo\MP4Video
Root: HKCR; Subkey: MyProgramFile3\DefaultIcon; ValueType: string; ValueName: ; ValueData: {sys}\notepad.exe,0; Tasks: MostVideo\MP4Video
Root: HKCR; Subkey: MyProgramFile3\shell\open\command; ValueType: string; ValueName: ; ValueData: """{sys}\notepad.exe"" ""%1"""; Tasks: MostVideo\MP4Video

[audiofeel]

Dodakaedr, к сожалению. По данному пути такого нету. Не могли бы вы скинуть пример? Буду очень благодарен.

[Shift85]

Цитата Kashtan007:



к сожалению. По данному пути такого нету. Не могли бы вы скинуть пример? Буду очень благодарен.

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

А по такому Inno Setup 5\Dll Examples\IsWin7 [0.5]? У вас Ultra сборка?

Пробуйте

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

Код:

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

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
Compression=lzma
SolidCompression=yes
OutputDir=.
[Files]
Source: compiler:Dll Pack\iswin7.dll; Flags: dontcopy
[.Code]
procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean); external 'iswin7_add_glass@files:iswin7.dll stdcall';
procedure iswin7_add_button(Handle:HWND); external 'iswin7_add_button@files:iswin7.dll stdcall';
procedure iswin7_free; external 'iswin7_free@files:iswin7.dll stdcall';
procedure InitializeWizard();
begin
  // Необходимо добавлять каждую кнопку расположенную на стекле 
  // до инициализации стекла для того что бы не было дыр ))
  iswin7_add_button(WizardForm.BackButton.Handle);
  iswin7_add_button(WizardForm.NextButton.Handle);
  iswin7_add_button(WizardForm.CancelButton.Handle);
  // Параметр True не трогать он для htuos ))
  iswin7_add_glass(WizardForm.Handle, 0, 0, 0, 47, True);
end;
procedure DeinitializeSetup();
begin
  iswin7_free;
end;

[audiofeel]

Цитата Kashtan007:



Как сделать эти серые окна прозрачные?

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

Kashtan007, Вот.

[saurn]

audiofeel, ну все верно. Вы ведь обновляете статус чекбокса при создании формы мастера, а надо на странице, где расположен чекбокс.



Код:

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

procedure CurPageChanged(CurPageID: Integer);
begin
    case CurPageID of
        Нужная страница: NoIconsClick(nil);  //NoIconsClick(Имя чекбокса);
    end;
end;

[audiofeel]

saurn,

все заработало, но как то странно, указал чек бокс WizardForm.NoIconsCheck.(nil); ошибка, - оставил как у вас NoIconsClick(nil); = работает

*************************

wpSelectProgramGroup: begin

WizardForm.SelectStartMenuFolderLabel.Show;

WizardForm.SelectStartMenuFolderBrowseLabel.Show;

WizardForm.GroupEdit.Show;

WizardForm.NoIconsCheck.Show;

BtnSetVisibility(BackButton, True);

BtnSetVisibility(NextButton, True);

BtnSetText(NextButton, ExpandConstant('{cm:NextButton}'));

BtnSetVisibility(CancelButton, True);

BtnSetVisibility(GroupBrowseButton, True);

ImgSetVisibility(Image2, True);

ImgSetVisibility(EditImage, True);

NoIconsClick(nil);

end;

[saurn]

Уважаемые форумчане! подскажите пожалуйста.

При компилировании происходит ошибка:



CallBack:=WrapMyCallback(@ProgressCallback,2);

Cancel:=0;

OveralPct:=0;



Ошибка в первой строчке, т.е тут: CallBack:=WrapMyCallback(@ProgressCallback,2);



С чем это может быть связано? Буду рада, если кто то подскажет))



Напишу, что мне вообще нужно. Пытаюсь научиться создавать установщики. Сейчас пробую сделать установщик игры Panzar. Я совсем новичек в этом деле. В общем, читала различные уроки, которые нашла в инете. Скачала видео-урок, по примеру этого урока создала скрипт, вроде бы все делаю, как там сказано, но вот почему то при компиляции появляется ошибка. Возможно кто нибудь поможет разобраться что не так? Может у кого то есть возможность через TeamViewer все показать? Буду очень благодарна, так как каждый день пытаюсь создать этот установщик, но пока не получается.



Мой скайп irenna-85. Спасибо тому, кто откликнется))

[Антон_Мураткин@vk]

Irenis, Скрипт покажите. (Залейте куда нибудь на файлообменник)