[t16bz]

Johny777, все равно не выбранные директории не сворачиваются

[L1nk3R]

t16bz, вот простой пример

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

Код:

#define MyAppName "МояПрограмма"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

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


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

[ Code]
var
 TFV: TStartMenuFolderTreeView;


 procedure TFVOnChange(Sender: TObject);
 begin
 WizardForm.GroupEdit.Text:= AddBackslash(TFV.Directory)+'{#MyAppName}';
 end;

procedure InitializeWizard;

begin
 TFV:= TStartMenuFolderTreeView.Create(WizardForm);
 TFV.Top:= WizardForm.GroupEdit.Top+28;
 TFV.Width:= 417;
 TFV.Height:= 100;
 TFV.SetPaths(ExpandConstant('{userprograms}'),ExpandConstant('{commonprograms}'),ExpandConstant('{userstartup}'),ExpandConstant('{commonstartup}'));
 TFV.OnChange:= @TFVOnChange;
 TFV.Parent:= WizardForm.SelectProgramGroupPage;
end;

[L1nk3R]

если кому надо то вот пример на папку установки

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

Код:

#define MyAppName "МояПрограмма"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

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


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

[ Code]

var
 TDV: TFolderTreeView;  


procedure TDVOnChange(Sender: TObject);
 begin
 WizardForm.DirEdit.Text:= AddBackslash(TDV.Directory)+'{#MyAppName}';
 end;


procedure InitializeWizard;

begin
 TDV:= TFolderTreeView.Create(WizardForm);
 TDV.Top:= WizardForm.DirEdit.Top+28;
 TDV.Width:= 417;
 TDV.Height:= 100;
 TDV.OnChange:= @TDVOnChange;
 TDV.Parent:= WizardForm.SelectDirPage;
end;

[Ivan_009]

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

[Johny777]

Вот те Ваня:

http://forum.oszone.net/post-1917570-2069.html
http://forum.oszone.net/post-1917597-2071.html
http://forum.oszone.net/post-1917798-2074.html

какая ссылка на тебя смотрит ту и открывай!

[AndreY33_80]

Скажите, а возможно сделать так, чтобы при нажатии ярлыка деинсталяция, само удаление программы проходило без вмешательства пользователя ? через inno setup можно так переделать uninstall.exe ?

[alert30]

AndreY33_80, типо чтоб не было "Вы хотите удалить..."?

[Gnom_aka_Lexander]

AndreY33_80,
В параметрах ярлыка можно указать ключ тихого удаления:

Код:

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

[Icons]
Name: {group}\{cm:UninstallProgram, My Application}; Filename: {uninstallexe}; Parameters: /SILENT;

По поводу спасибо - там внизу есть такая кнопочка - Полезное сообщение - мне жутко нравится, когда ее жмут.

[AndreY33_80]

Спасибо

[AndreY33_80]

если делать так :

Name: "{group}\{cm:UninstallProgram,CDBurnerXP}"; Filename: "{uninstallexe}" Parameters: /SILENT;

то выдаётся ошибка :

mismatched or misplaced quotes on parameter "Filename"