Среда, 26.09.2018, 06:42
Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Руководство и уроки по различным программам » Уроки создания инсталляторов в Inno Setup » Простые функции
Простые функции
Vavilov8Дата: Среда, 12.09.2012, 23:08 | Сообщение # 1
VIP
Группа: Администраторы
Сообщений: 42
Репутация: 0
Статус: Offline
Скрипт показа сколько процентов установки пройдено


Создаем на диске C текстовый файл с названием readme.txt
Затем вписываем во вкладку Скрипт
Code

[Setup]   
InfoBeforeFile=C:\readme.txt   
AppName = sample   
AppVersion = 1.0   
DefaultDirName = {tmp}   

[Files]   
Source: c:\readme.txt; DestDir: {app}; AfterInstall: ExtLog(); Flags: recursesubdirs   

[Code]   
var   
      ProgressLabel: TLabel;   

procedure ExtLog();   
begin   
      with WizardForm.ProgressGauge do begin   
        ProgressLabel.Caption:=IntToStr((Position-Min)/((Max - Min)/100)) + '%'   
        if (Position-Min)/((Max - Min)/100) > 50 then ProgressLabel.Font.Color:= clWhite   
      end   
end;   

procedure InitializeWizard;   
begin   
      ProgressLabel:=TLabel.Create(WizardForm)   
        ProgressLabel.Top:= 4   
        ProgressLabel.Left:= 200   
        ProgressLabel.Caption:= '0%'   
        ProgressLabel.AutoSize:= True   
        ProgressLabel.Font.Color:= clBlue   
        ProgressLabel.Font.Style:= [fsBold]   
        ProgressLabel.Transparent:= True   
        ProgressLabel.Parent:= WizardForm.ProgressGauge   
end;   
 
Vavilov8Дата: Среда, 12.09.2012, 23:09 | Сообщение # 2
VIP
Группа: Администраторы
Сообщений: 42
Репутация: 0
Статус: Offline
Размеры картинок в Inno Setup


Заходим во вкладку Скрипт и в секции Code вписываем это
Code

procedure InitializeWizard();    
begin    
with WizardForm do    

begin    
WizardBitmapImage.Width:=200    
WizardBitmapImage.Height:=314    

end    
end;    
 
Форум » Руководство и уроки по различным программам » Уроки создания инсталляторов в Inno Setup » Простые функции
  • Страница 1 из 1
  • 1
Поиск: