[mariolast]

Кто о наверняка сталкивался... Как в английской винде сделать так, чтобы инсталлятор на русском не крякозябрами показывал а нормальными буквами? » mariolast, попробуйте один из вариантов: 1. В апплете Regional and Language Options жмакнуть Advanced и выставить для Language for non-Unicode programs значение Russian. Перезагруз. 2. Если в системе есть какие-нибудь кириллические шрифты (нет - подгрузить свой), то использовать один из них, например: Код: [LangOptions] LanguageName=Russian DialogFontName=Arial Cyr WelcomeFontName=Arial Cyr TitleFontName=Arial Cyr CopyrightFontName=Arial Cyr »

Так конечно же работает, но...нужен перегруз и т.д., что не есть удобно. Решение однако же нашел.
Для этого нужно было взять шрифт и отредактировать его так,чтобы на англ. винде кодировка нормально читалась, т.е. для каждой русс.буквы добавить кодировку. Делается это в редакторе шрифтов. Ну и в скрипте использовать уже этот шрифт. Я брал за основу Ариал и игрался с ним. В результате все работает как надо

[t16bz]

Что нужно сделать, чтобы в TFolderTreeView была открыта определенная директория?

[Johny777]

t16bz,
выделил жирным шрифтом строку

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

Код:

[Setup]
AppName=DisksInfo
VersionInfoVersion=5.0
AppVerName=DisksInfo
DefaultDirName={pf}\My program
EnableDirDoesntExistWarning=false                             
DefaultGroupName=Programs\Accessories

[Icons]
Name: {group}\Notepad; Filename: notepad.exe

[code]
var
  StartMenuTreeView : TStartMenuFolderTreeView;

Procedure ObjectOnClick(Sender: TObject);
Begin
case TObject(Sender) of
	StartMenuTreeView:	if StartMenuTreeView.Directory <> '' then WizardForm.GroupEdit.Text := StartMenuTreeView.Directory else WizardForm.GroupEdit.Text:= '{#SetupSetting("DefaultGroupName")}'
	WizardForm.NoIconsCheck:	begin WizardForm.GroupEdit.Enabled:= not(WizardForm.GroupEdit.Enabled); StartMenuTreeView.Enabled:= WizardForm.GroupEdit.Enabled; WizardForm.GroupBrowseButton.Enabled:= WizardForm.GroupEdit.Enabled end;
end; End;


Procedure InitializeWizard;
begin
    WizardForm.NoIconsCheck.SetBounds(WizardForm.DiskSpaceLabel.Left + 96, WizardForm.DiskSpaceLabel.Top + 1, WizardForm.NoIconsCheck.Width, WizardForm.NoIconsCheck.Height)
		WizardForm.NoIconsCheck.OnClick:= @ObjectOnClick
		WizardForm.NoIconsCheck.Parent:= WizardForm.SelectProgramGroupPage
		WizardForm.NoIconsCheck.Show

  StartMenuTreeView := TStartMenuFolderTreeView.Create(WizardForm)
  with StartMenuTreeView do
 	begin
	 	SetPaths(ExpandConstant('{userprograms}'), ExpandConstant('{commonprograms}'), ExpandConstant('{userstartup}'), ExpandConstant('{commonstartup}'));
  	SetBounds(ScaleX(0), ScaleY(110), ScaleX(400), ScaleY(100))
	  Parent:= WizardForm.SelectProgramGroupPage
		Cursor:= crHand
		OnChange:=@ObjectOnClick
	end;

  StartMenuTreeView.ChangeDirectory(ExpandConstant('{userprograms}\Programs\Accessories'), True);
end;

[t16bz]

Johny777, а как еще можно сделать чтоб остальные директории сворачивались?

[AndreY33_80]

Здраствуйте. Скажите пожалуйста, как можно убрать диалог создания ярлыка при установке ?

[AndreY33_80]

на всякий случай привожу скрипт

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

[code]
[Setup]

AppId={{639F03DD-4D24-4F21-9960-58D7944DAE91}
AppName=CCleaner
AppVersion=3.16
;AppVerName=CCleaner 3.16
DefaultDirName={pf}\CCleaner
DefaultGroupName=CCleaner
DisableDirPage=yes
DisableProgramGroupPage=yes
ShowLanguageDialog=no
DisableReadyPage=yes
DisableFinishedPage=yes
OutputBaseFilename=CCleaner
Compression=lzma/ultra
SolidCompression=yes

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

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files\CCleaner\CCleaner.exe"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "C:\Program Files\CCleaner\CCleaner.exe"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "C:\Program Files\CCleaner\ccleaner.ini"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "C:\Program Files\CCleaner\uninst.exe"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "C:\Program Files\CCleaner\winapp2.ini"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

[Icons]
Name: "{group}\CCleaner"; Filename: "{app}\CCleaner.exe"

Код:

 
procedure CurPageChanged(CurPageID: Integer); 
begin 
If CurPageID=wpWelcome then 
begin 
SendMessage(WizardForm.NEXTBUTTON.Handle, 513, 0, 0) 
SendMessage(WizardForm.NEXTBUTTON.Handle, 514, 0, 0) 
end;
end;

[alert30]

AndreY33_80, скрипт под спойлер, а по поводу убрания ярлыка на Рабочем столе; удалите:

Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked »

[AndreY33_80]

Прошу прощения, но я не совсем это имел в виду. Мне как раз нужно, чтобы ярлык на рабочем столе создавался. Но хотелось бы, чтобы при установке программы не нужно было бы ставить галочку наспротив надписи " Создать значёк на рабочем столе "

[alert30]

AndreY33_80, автоматом, да, без выбора?

[AndreY33_80]

Совершенно верно