Inno Setup (создание инсталяционных пакетов) - [2029] :: Программы

[Setup]
AppName=My Program
AppVerName=My Program version 1.0
DefaultDirName={pf}\My Program
DisableProgramGroupPage=yes

[Files]
Source: compiler:WizModernSmallImage.bmp; Flags: dontcopy

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

[_Code]
procedure InitializeWizard();
var
BitmapImage: TBitmapImage;
BitmapFileName: String;
begin
BitmapFileName := ExpandConstant('{tmp}\WizModernSmallImage.bmp');
ExtractTemporaryFile(ExtractFileName(BitmapFileName));
BitmapImage := TBitmapImage.Create(WizardForm);
BitmapImage.Top := ScaleY(30);
BitmapImage.Left := ScaleX(362);
BitmapImage.AutoSize := True;
BitmapImage.Bitmap.LoadFromFile(BitmapFileName);
BitmapImage.Parent := WizardForm.SelectTasksPage;
WizardForm.TasksList.Width := ScaleX(290); //Изменить размер TasksList
end;

Модерирует : gyra, Maz
Widok (29-12-2008 12:26): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению