Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)

Модерирует : gyra, Maz

Widok (23-04-2007 18:02): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Genri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
 
[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
WindowVisible=yes
 
[Files]
Source: Files\*.*; DestDir: {app}; Flags: ignoreversion recursesubdirs
Source: Files_ext\1.jpg; Flags: dontcopy
Source: Files_ext\2.jpg; Flags: dontcopy
Source: Files_ext\main.jpg; Flags: dontcopy
 
[Code]
var
  CurPicture: integer;
 
function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('1.jpg');
  ExtractTemporaryFile('2.jpg');
  ExtractTemporaryFile('main.jpg');
  Result:= True;
end;
 
procedure InitializeWizard();
begin
  MainForm.SetBackImage(ExpandConstant('{tmp}\main.jpg'));
end;
 
procedure ProgressChanged(percent: Integer);
var
  str: string;
begin
    if ((percent > 0) and (percent < 30) and (CurPicture <> 1))  then
      begin
        str:= ExpandConstant('{tmp}\1.jpg');
        MainForm.SetBackImage(str);
        CurPicture:= 1;
      end else
    if ((percent > 30) and (percent < 60) and (CurPicture <> 2)) then
      begin
        str:= ExpandConstant('{tmp}\2.jpg');
        MainForm.SetBackImage(str);
        CurPicture:= 2;
      end else
    if ((percent > 60) and (percent < 100) and (CurPicture <> 3)) then
      begin
        MainForm.SetBackImage('');
        CurPicture:= 3;
      end;
end;  

Всего записей: 872 | Зарегистр. 06-09-2003 | Отправлено: 22:24 11-01-2007
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)
Widok (23-04-2007 18:02): лимит страниц. продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru