Inno Setup

Про софт и железки.
Сообщение
Автор
Аватара пользователя
Fatman
Лейтенант
Лейтенант
Сообщения: 112
Зарегистрирован: 20.06.2008
Откуда: Pyroland
Благодарил (а): 1 раз
Поблагодарили: 2 раза
Контактная информация:

#91 Сообщение 24.09.2009, 19:48

Вчера ещё :)

NIOS
Нович0к
Нович0к
Сообщения: 5
Зарегистрирован: 07.06.2018

#92 Сообщение 28.09.2009, 13:48

Народ подскажите, что не так. (басс.длл с руборда)
Скрытое содержимое
Изображение

Код: Выделить всё

function BASS_StreamCreateFile(Mem:BOOL;f:PChar;Offset:DWORD;Length:DWORD;Flags:DWORD):HSTREAM; external 'BASS_StreamCreateFile@files:bass.dll stdcall';
И еще, ставлю скин стима (ставлю галку в Game Script Generator) и он не работает.
Скрытое содержимое
[Setup]
SourceDir=.
OutputDir=Setup
AppName=Team Fortress 2
AppVerName=Team Fortress 2
AppVersion=Team Fortress 2
AppPublisher=
AppCopyright=
AppPublisherURL=
AppSupportURL=
AppUpdatesURL=
DefaultDirName=
DefaultGroupName=Team Fortress 2
AllowNoIcons=yes
InfoBeforeFile=H:\inf0.rtf
OutputBaseFilename=setup
WizardImageFile=H:\big logo.bmp
WizardSmallImageFile=H:\minilogo.bmp
SetupIconFile=H:\Team Fortress 2\Multiplayer OB Binaries\icons\team fortress 2.ico
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/ultra
DiskSpanning=yes
DiskSliceSize=1468006400
SlicesPerDisk=1

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

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

[Files]
Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: steam.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "bass.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "innocallback.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "H:\gamestartup7.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "H:\gamestartup2.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "H:\gamestartup6.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

Source: "H:\Team Fortress 2\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension

[Icons]
Name: "{group}\Team Fortress 2"; Filename: "{app}\Multiplayer OB Binaries\Team Fortress 2.exe"; WorkingDir: "{app}\Multiplayer OB Binaries";
Name: "{userdesktop}\Team Fortress 2"; Filename: "{app}\Multiplayer OB Binaries\Team Fortress 2.exe"; WorkingDir: "{app}\Multiplayer OB Binaries"; Tasks: desktopicon;
Name: "{group}\{cm:UninstallProgram,Team Fortress 2}"; Filename: "{uninstallexe}"

[Run]
Description: "{cm:LaunchProgram, Team Fortress 2}"; Filename: "{app}\Multiplayer OB Binaries\Team Fortress 2.exe"; WorkingDir: "{app}\Multiplayer OB Binaries"; Flags: nowait postinstall skipifsilent unchecked

[UninstallDelete]
Type: filesandordirs; Name: "{app}"

Код: Выделить всё

type
  HSTREAM=DWORD;
  TTimerProc=procedure(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD);
const
  dURL=2;

var
  URLLabel,URLLabelShadow:TLabel;
  MP3List:TStringList;
  CurrentMP3:integer;
  hMP3:HWND;
  TimerID:LongWord;

function SetTimer(hWnd:HWND;nIDEvent,uElapse:UINT;lpTimerFunc:LongWord{TFNTimerProc}):UINT;  external '[email protected] stdcall delayload';
function KillTimer(hWnd:HWND;uIDEvent:UINT):BOOL; external '[email protected] stdcall delayload';
function BASS_ChannelIsActive(Handle:HWND):DWORD; external 'BASS_ChannelIsActive@files:bass.dll stdcall';
function BASS_SetConfig(Option,Value:DWORD):DWORD; external 'BASS_SetConfig@files:bass.dll stdcall';
function BASS_Init(Device:integer;Freq,Flags:DWORD;Win:HWND;CLSID:integer):boolean; external 'BASS_Init@files:bass.dll stdcall delayload';
function BASS_StreamCreateFile(Mem:BOOL;f:PChar;Offset:DWORD;Length:DWORD;Flags:DWORD):HSTREAM; external 'BASS_StreamCreateFile@files:bass.dll stdcall';
function BASS_StreamFree(Handle:HWND):boolean; external 'BASS_StreamFree@files:bass.dll stdcall';
function BASS_ChannelPlay(Handle:HWND;Restart:boolean):boolean; external 'BASS_ChannelPlay@files:bass.dll stdcall';
function BASS_Start: Boolean; external 'BASS_Start@files:bass.dll stdcall';
function BASS_Stop: Boolean; external 'BASS_Stop@files:bass.dll stdcall';
function BASS_Free: Boolean; external 'BASS_Free@files:bass.dll stdcall delayload';
function WrapTimerProc(CallBack:TTimerProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external '[email protected] stdcall';

procedure TimerTick(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD);
begin
  if BASS_ChannelIsActive(hMP3)=0 then begin
    BASS_Stop;
    BASS_StreamFree(hMP3);
    hMP3:=BASS_StreamCreateFile(False,PChar(MP3List.Strings[CurrentMP3]),0,0,0);
    BASS_Start;
    if hMP3<>0 then
      if BASS_ChannelPlay(hMP3,True) then begin
        CurrentMP3:=CurrentMP3+1;
        if CurrentMP3>MP3List.Count-1 then CurrentMP3:=0;
      end;
  end;
end;

procedure URLLabelClick(Sender: TObject);
var
  ErrorCode:integer;
begin
  ShellExec('open','http://ivanovocity.net.ru','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;

procedure URLLabelMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
  URLLabel.Top:=URLLabel.Top+dURL;
  URLLabel.Left:=URLLabel.Left+dURL;
  URLLabel.Font.Style:=URLLabel.Font.Style+[fsUnderline];
  URLLabel.Font.Color:=$50B5C4;
  URLLabelShadow.Visible:=False;
end;

procedure URLLabelMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
begin
  URLLabel.Top:=URLLabel.Top-dURL;
  URLLabel.Left:=URLLabel.Left-dURL;
  URLLabel.Font.Style:=URLLabel.Font.Style-[fsUnderline];
  URLLabel.Font.Color:=$708A7A;
  URLLabelShadow.Visible:=True;
end;

function InitializeSetup:boolean;
begin
  ExtractTemporaryFile('gamestartup7.mp3');
  ExtractTemporaryFile('gamestartup2.mp3');
  ExtractTemporaryFile('gamestartup6.mp3');
  MP3List:=TStringList.Create;
  MP3List.Add(ExpandConstant('{tmp}')+'\gamestartup7.mp3');
  MP3List.Add(ExpandConstant('{tmp}')+'\gamestartup2.mp3');
  MP3List.Add(ExpandConstant('{tmp}')+'\gamestartup6.mp3');
  CurrentMP3:=0;
  ExtractTemporaryFile('steam.cjstyles');
  LoadSkin(ExpandConstant('{tmp}')+'\steam.cjstyles', '');
  Result:=True;
end;

procedure InitializeWizard;
begin
  URLLabelShadow:=TLabel.Create(WizardForm);
  with URLLabelShadow do begin
    Top:=ScaleY(331);
    Left:=ScaleX(25);
    Caption:='http://ivanovocity.net.ru';
    AutoSize:=True;
    Parent:=WizardForm;
    Transparent:=True;
    Font.Color:=$041207;
    Font.Size:=9;
    Font.Style:=Font.Style+[fsBold];
  end;
  URLLabel:=TLabel.Create(WizardForm);
  with URLLabel do begin
    Top:=ScaleY(331)-dURL;
    Left:=ScaleX(25)-dURL;
    Caption:='http://ivanovocity.net.ru';
    AutoSize:=True;
    Parent:=WizardForm;
    Cursor:=crHand;
    Transparent:=True;
    Font.Color:=$708A7A;
    Font.Size:=9;
    Font.Style:=Font.Style+[fsBold];
    BringToFront;
    OnClick:=@URLLabelClick;
    OnMouseDown:=@URLLabelMouseDown;
    OnMouseUp:=@URLLabelMouseUp;
  end;
  TimerID:=SetTimer(0,0,500,WrapTimerProc(@TimerTick,5));
  BASS_Init(-1,44100,0,0,0);
  BASS_SetConfig(5,100);
  BASS_SetConfig(6,100);
  WizardForm.BeveledLabel.Enabled:=True;
end;

procedure DeinitializeSetup;
begin
  KillTimer(0,TimerID);
  BASS_Stop;
  BASS_Free;
  MP3List.Free;
  ShowWindow(WizardForm.Handle,0);
  UnloadSkin();
end;[/spoiler]

Аватара пользователя
argnist
VIP
VIP
Сообщения: 1083
Зарегистрирован: 21.05.2006
Откуда: Украина, Днепропетровск
Поблагодарили: 1 раз

#93 Сообщение 28.09.2009, 19:19

без музыки скин сначала имплантируй .а потом экспериментируй с очередностью функций
и дай поглядеть, как ты комбобоксы перерисовал...

Аватара пользователя
Vit_amiN
Супермодератор
Супермодератор
Сообщения: 2509
Зарегистрирован: 01.02.2007
Откуда: Over Old Hills
Благодарил (а): 15 раз
Поблагодарили: 91 раз

#94 Сообщение 28.09.2009, 21:51

NIOS
В новой версии инно PChar заменено на PAnsiChar
Изображение

Мои русификаторы и другие полезные файлы здесь
ЗАПОМНИТЕ, ПОИСК — БЛИЖАЙШИЙ ПУТЬ К ИСТИНЕ!

NIOS
Нович0к
Нович0к
Сообщения: 5
Зарегистрирован: 07.06.2018

#95 Сообщение 28.09.2009, 21:56

argnist писал(а):и дай поглядеть, как ты комбобоксы перерисовал...
Скрытое содержимое
Изображение
без музыки скин сначала имплантируй .а потом экспериментируй с очередностью функций
Пробовал без музыки, но результат тот же, и музыку без скина, и все равно выдает ошибку.

Аватара пользователя
Vit_amiN
Супермодератор
Супермодератор
Сообщения: 2509
Зарегистрирован: 01.02.2007
Откуда: Over Old Hills
Благодарил (а): 15 раз
Поблагодарили: 91 раз

#96 Сообщение 28.09.2009, 21:56

NIOS
Vit_amiN писал(а):В новой версии инно PChar заменено на PAnsiChar
Бла :metal:
Изображение

Мои русификаторы и другие полезные файлы здесь
ЗАПОМНИТЕ, ПОИСК — БЛИЖАЙШИЙ ПУТЬ К ИСТИНЕ!

NIOS
Нович0к
Нович0к
Сообщения: 5
Зарегистрирован: 07.06.2018

#97 Сообщение 28.09.2009, 23:30

Vit_amiN
Спасибо.
*
Скин стима не применился, а из-за музыки инсталлятор открывается и моментально закрывается.

Аватара пользователя
M1reX
Нович0к
Нович0к
Сообщения: 11
Зарегистрирован: 29.09.2009
Откуда: г.Шадринск
Контактная информация:

#98 Сообщение 02.10.2009, 16:11

дайте ссылку на CodeJock Skin Builder плз, а то не могу нарыть нигде

supercores
Лейтенант
Лейтенант
Сообщения: 167
Зарегистрирован: 03.04.2009
Благодарил (а): 1 раз

#99 Сообщение 02.10.2009, 16:15


Аватара пользователя
M1reX
Нович0к
Нович0к
Сообщения: 11
Зарегистрирован: 29.09.2009
Откуда: г.Шадринск
Контактная информация:

#100 Сообщение 02.10.2009, 19:04

спасибо, уже скачал)

Добавлено спустя 2 часа 45 минут 49 секунд:
помогите пожалуйста с бэкграундом у установки и ярлыками, а то когда запускаю установку появляется сначала синий фон, а потом тока бэкграунд через пару секунд
а с ярлыками проблема такова: ставлю чекбокс, чтобы ярлык создался на рабочем столе, но он не появляется

Аватара пользователя
argnist
VIP
VIP
Сообщения: 1083
Зарегистрирован: 21.05.2006
Откуда: Украина, Днепропетровск
Поблагодарили: 1 раз

#101 Сообщение 02.10.2009, 20:05

на руборде сто раз поднималась тема.
тебе в тему про инно. она там 7я по счету ужой
в шапке есть набор советов от киндли (ну написание я упростил) 5.1 - вот его и качай (с рапиды)
там есть нужный кусок скрипта
З.Ы. нод32 прибивает архив с примерами.

Аватара пользователя
M1reX
Нович0к
Нович0к
Сообщения: 11
Зарегистрирован: 29.09.2009
Откуда: г.Шадринск
Контактная информация:

#102 Сообщение 02.10.2009, 21:23

с бэкграундом разобрался, вот тока чекбоксы не создают ярлыки...
Вот скрипт
[Setup]
AppId={{B4866999-9FF1-4780-A2E9-A952A5E7BBCA}
AppName=Team Fortress 2
AppVerName=Team Fortress 2
AppPublisher=Waste Twice
AppVersion=1.0.7.0
AppSupportURL=http://192.168.5.104/
DefaultDirName={pf}Waste TwiceTeam Fortress 2
OutputDir=D:РепакиTeam Fortress 2
DefaultGroupName=Waste TwiceTeam Fortress 2
UninstallFilesDir={app}Uninstall
Compression=lzma/ultra64
InternalCompressLevel=ultra64
SolidCompression=true
DiskSpanning=yes
SlicesPerDisk=5
DiskSliceSize=890000000
DisableProgramGroupPage=True
DisableReadyPage=True
WindowVisible=no
WindowResizable=no
UninstallDisplayIcon={app}Team Fortress 2.exe, 0
UninstallDisplayName=Team Fortress 2

[Languages]
Name: RUS; MessagesFile: compiler:LanguagesRussian.isl

[Icons]
Name: "{group}Запустить Team Fortress 2"; Filename: "{app}Team Fortress 2.exe"; WorkingDir: "{app}";
Name: "{group}Удалить Team Fortress 2"; Filename: "{uninstallexe}"

[Files]
Source: "C:Program FilesInno Setup 5ISSkin.dll"; DestDir: {app}; Flags: dontcopy
Source: "C:Program FilesCodejock SoftwareISSkinStylesVista.cjstyles"; DestDir: {tmp}; Flags: dontcopy
Source: "C:TF2installbg.bmp"; DestDir: {tmp}; Flags: dontcopy
Source: "C:TF2install*"; DestDir: {app}; BeforeInstall: FilenameExt(); Flags: ignoreversion recursesubdirs createallsubdirs
Source: "C:TF2installtf2logo.bmp"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "bass.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "C:приколы на звонокDj Петух.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "C:TF2install2.bmp"; DestDir: "{tmp}"; Flags: dontcopy
Source: "D:GamesTeam Fortress 2Team Fortress 2.exe"; DestDir: {app}; BeforeInstall: FilenameExt(); Flags: ignoreversion

[Registry]
;Куда установлена игры
Root: HKLM; Subkey: SOFTWAREValveSteam; ValueType: string; ValueName: TF2Path; ValueData: {app}; Flags: uninsdeletevalue
;Версия игры
Root: HKLM; Subkey: SOFTWAREValveSteam; ValueType: dword; ValueName: TF2Version; ValueData: 10703964; Languages: ; Flags: uninsdeletevalue

[CustomMessages]
RUS.BUT=Установить
RUS.SPACE=Доступно места на диске:
RUS.SPACE1=Требуется места на диске:

[UninstallDelete]
Name: {app}*.*; Type: filesandordirs

Код: Выделить всё

 function GetSystemMetrics(nIndex:Integer):Integer;
 external '[email protected] stdcall';
const
Indent=10;
var
Icons, Group: TCheckBox;
SelectDirLabel, SelectDirLabelBrowse: TLabel;
IconsLabel, GroupLabel, RedistLabel, DirectXLabel: TLabel;
PageNameLabel, PageNameLabel1, PageNameLabel2, PageNameLabel3, PageNameLabel4: TLabel;
PageDescriptionLabel, PageDescriptionLabel1, PageDescriptionLabel2, PageDescriptionLabel3, PageDescriptionLabel4: TLabel;
StatusLabel, FilenameLabel: TLabel;
WelcomeLabel1, WelcomeLabel2,FinishedLabel, FinishedHeadingLabel: TLabel;
NeedSize:Integer;
FreeMB, TotalMB: Cardinal;
NeedSpaceLabel,FreeSpaceLabel: TLabel;
BmpFile: TBitmapImage;
SelectStartMenuFolderLabel, SelectStartMenuFolderBrowseLabel, ReadyLabel, NoIconsLabel: TLabel;
RunProgram: TCheckBox;
RunProgramLabel: Tlabel;
LicenseLabel1, LicenseAcceptedLabel, LicenseNotAcceptedLabel: Tlabel;
width,height: Integer;
BackgroundBitmapImage: TBitmapImage;
 s: string;
function GroupIcons: Boolean;
begin
Result:=Group.Checked;
end;
function Run: Boolean;
begin
Result:=RunProgram.Checked;
end;
// задал процедуру, чтоб отмечался чебокс еси кликнуть по надписи lblCheckBox
procedure IconsOnClick(Sender: TObject);
begin
if Icons.Checked = False then
Icons.Checked:= True else
Icons.Checked:= False;
end;
procedure GroupOnClick(Sender: TObject);
begin
if Group.Checked = False then
Group.Checked:= True else
Group.Checked:= False;
end;
procedure RunProgramClick(Sender: TObject);
begin
if RunProgram.Checked = False then
RunProgram.Checked:= True else
RunProgram.Checked:= False;
end;
Procedure NoIconsLabelOnClick (Sender: TObject);
begin
WizardForm.NoIconsCheck.Checked:=Not(WizardForm.NoIconsCheck.Checked)
end;
procedure LicenceAcceptedRadioOnClick(Sender: TObject);
begin
WizardForm.NextButton.Enabled:=True
end;
procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);
begin
WizardForm.NextButton.Enabled:=False
end;
Procedure YesRadioOnClick (Sender: TObject);
begin
WizardForm.LicenseAcceptedRadio.Checked:=True
end;
Procedure NoRadioOnClick (Sender: TObject);
begin
WizardForm.LicenseNotAcceptedRadio.Checked:=True
end;
// задал процедуру, чтоб отмечался чебокс еси кликнуть по надписи lblCheckBox
//Свободное место
procedure GetFreeSpaceCaption(Sender: TObject);
var
Path: String;
begin
Path := ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
if FreeMB > 1024 then
FreeSpaceLabel.Caption := ExpandConstant('{cm:SPACE} ')+ FloatToStr(round(FreeMB/1024*100)/100) + ' GB' else
FreeSpaceLabel.Caption := ExpandConstant('{cm:SPACE} ')+ IntToStr(FreeMB)+ ' MB';
if FreeMB < NeedSize then
WizardForm.NextButton.Enabled := False else
WizardForm.NextButton.Enabled := True;
end;
procedure GetNeedSpaceCaption;
begin
if NeedSize > 1024 then
NeedSpaceLabel.Caption := ExpandConstant('{cm:SPACE1} ')+ FloatToStr(round(NeedSize/1024*100)/100) + ' GB' else
NeedSpaceLabel.Caption := ExpandConstant('{cm:SPACE1} ')+ IntToStr(NeedSize)+ ' MB';
end;
//Свободное место
procedure FilenameExt();
begin
FilenameLabel.Caption:= ExpandConstant(ExtractFileDir(CurrentFilename)) + '' + ExtractFilename(CurrentFilename);
end;
//Загрузка скина
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external '[email protected] stdcall';
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('Vista.cjstyles');
LoadSkin(ExpandConstant('{tmp}Vista.cjstyles'), '');
Result := True;
ExtractTemporaryFile('Dj Петух.mp3');
ExtractTemporaryFile('bass.dll');
end;

procedure DeinitializeSetup();
begin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);
UnloadSkin();
end;
//Загрузка скина
procedure InitializeWizard();
begin
ExtractTemporaryFile('bg.bmp');
ExtractTemporaryFile('tf2logo.bmp');

NeedSize:= 4000;
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}bg.bmp'));
BmpFile.SetBounds(0, 0, 597, 460);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.WelcomePage;
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}bg.bmp'));
BmpFile.SetBounds(0, 0, 597, 460);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.LicensePage;
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}bg.bmp'));
BmpFile.SetBounds(0, 0, 597, 460);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.SelectDirPage;
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}bg.bmp'));
BmpFile.SetBounds(0, 0, 597, 460);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.InstallingPage;
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}bg.bmp'));
BmpFile.SetBounds(0, 0, 597, 460);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.FinishedPage;
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}bg.bmp'));
BmpFile.SetBounds(0, 0, 597, 460);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.SelectProgramGroupPage;
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}bg.bmp'));
BmpFile.SetBounds(0, 0, 597, 460);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.ReadyPage;
BmpFile:= TBitmapImage.Create(WizardForm);
BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}bg.bmp'));
BmpFile.SetBounds(0, 0, 597, 460);
BmpFile.Stretch:= true
BmpFile.Parent:= WizardForm.ReadyPage;

with WizardForm do
begin
PageNameLabel.Hide;
PageDescriptionLabel.Hide;
WelcomeLabel1.Hide;
WelcomeLabel2.Hide;
DiskSpaceLabel.Hide;
SelectDirBitmapImage.Hide;
SelectDirBrowseLabel.Hide;
SelectDirLabel.Hide;
FinishedHeadingLabel.Hide;
FinishedLabel.Hide;
MainPanel.Hide
FilenameLabel.Hide;
StatusLabel.Hide;
SelectStartMenuFolderLabel.Hide;
SelectStartMenuFolderBrowseLabel.Hide;
ReadyLabel.Hide;
LicenseLabel1.Hide;
end;
with WizardForm do
begin
DirBrowseButton.Left:= DirBrowseButton.Left + ScaleX(40);
DirBrowseButton.Top:= DirBrowseButton.Top + ScaleY(72);
DirEdit.Left:= DirEdit.Left + ScaleX(40);
DirEdit.Top:= DirEdit.Top + ScaleY(72);
GroupBrowseButton.Left:= GroupBrowseButton.Left + ScaleX(40);
GroupBrowseButton.Top:= GroupBrowseButton.Top + ScaleY(72);
GroupEdit.Left:= GroupEdit.Left + ScaleX(40);
GroupEdit.Top:= GroupEdit.Top + ScaleX(72);
GroupEdit.Color:= ClBlack
NextButton.BringToFront;
BackButton.BringToFront;
CancelButton.BringToFront;
Font.Style:=[];
Font.Name:= 'MS Sans Serif';
DirEdit.Color:=clBlack;
Font.Color:=clWhite;
ProgressGauge.Top:=ScaleY(120);
ProgressGauge.Left:=ScaleX(20);
ProgressGauge.Width:=ScaleX(457);
ReadyMemo.Left:=ScaleX(40);
ReadyMemo.Top:= WizardForm.ReadyMemo.Top + ScaleY(72)
ReadyMemo.Font.Color:= clBlack;
ReadyMemo.ScrollBars:= ssVertical; //ssNone
end;
with WizardForm do
begin
InnerNotebook.Left := ScaleX(0);
InnerNotebook.Top := ScaleY(0);
InnerNotebook.Width := ScaleX(497);
InnerNotebook.Height := ScaleY(360);
OuterNotebook.Left := ScaleX(0);
OuterNotebook.Top := ScaleY(0);
OuterNotebook.Width := ScaleX(497);
OuterNotebook.Height := ScaleY(360);
end;
WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do
begin
Left:= ScaleX(176);
Top:= ScaleY(66);
Width:= ScaleX(301);
Height:= ScaleY(71);
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
Font.Size:= 14;
Font.Color:=ClWhite
Font.Style := [fsBold]
Parent:= WizardForm.WelcomePage;
Caption:= WizardForm.WelcomeLabel1.Caption;
end;
//WelcomePage
WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do
begin
Top:= ScaleY(136);
Left:= ScaleX(176);
Width:= ScaleX(301);
Height:= ScaleY(300);
AutoSize:= false;
WordWrap:= true;
Transparent:= true;
Parent:= WizardForm.WelcomePage;
Caption:= WizardForm.WelcomeLabel2.Caption;
end;
//WelcomePage
//licensePage
LicenseLabel1:=TLabel.Create(WizardForm)
with LicenseLabel1 do
begin
Left:=40
Top:=70
Width:=465
Height:=28
AutoSize:=False
WordWrap:=True
Transparent:=True
Caption:=WizardForm.LicenseLabel1.Caption
Parent:=WizardForm.LicensePage
end;
WizardForm.LicenseMemo.Left:=40
WizardForm.LicenseMemo.Top:=108
WizardForm.LicenseMemo.Parent:=WizardForm.LicensePage
WizardForm.LicenseAcceptedRadio.Left:=40
WizardForm.LicenseAcceptedRadio.Top:=265
WizardForm.LicenseAcceptedRadio.Width:=14
WizardForm.LicenseAcceptedRadio.Height:=14
WizardForm.LicenseAcceptedRadio.Color:=clBlack
WizardForm.LicenseAcceptedRadio.Parent:=WizardForm.LicensePage
LicenseAcceptedLabel:=TLabel.Create(WizardForm)
with LicenseAcceptedLabel do
begin
Left:=56
Top:=265
Transparent:=True
Caption:=WizardForm.LicenseAcceptedRadio.Caption
Parent:=WizardForm.LicensePage
OnClick:= @YesRadioOnClick
end;
WizardForm.LicenseNotAcceptedRadio.Left:=40
WizardForm.LicenseNotAcceptedRadio.Top:=285
WizardForm.LicenseNotAcceptedRadio.Width:=14
WizardForm.LicenseNotAcceptedRadio.Height:=14
WizardForm.LicenseNotAcceptedRadio.Color:=clBlack
WizardForm.LicenseNotAcceptedRadio.Parent:=WizardForm.LicensePage
LicenseNotAcceptedLabel:=TLabel.Create(WizardForm)
with LicenseNotAcceptedLabel do
begin
Left:=56
Top:=285
Transparent:=True
Caption:=WizardForm.LicenseNotAcceptedRadio.Caption
Parent:=WizardForm.LicensePage;
OnClick:= @NoRadioOnClick;
end;
PageNameLabel:= TLabel.Create(WizardForm);
with PageNameLabel do
begin
Left:= WizardForm.PageNameLabel.Left;
Top:= WizardForm.PageNameLabel.Top;
Width:= ScaleX(300);
Height:= ScaleY(14);
AutoSize:= False;
Font.Style:= [fsBold];
Font.Color:= ClWhite;
Transparent := True;
Parent:= WizardForm.LicensePage;
end;
PageDescriptionLabel:= TLabel.Create(WizardForm);
with PageDescriptionLabel do
begin
Left:= WizardForm.PageDescriptionLabel.Left;
Top:= WizardForm.PageDescriptionLabel.top;
Width:= ScaleX(400);
Height:= WizardForm.PageDescriptionLabel.Height;
AutoSize:= False;
Wordwrap:= True;
Transparent := True;
Parent:= WizardForm.LicensePage;
end;
//LicensePage
//SelectDirPage
SelectDirLabel:= TLabel.Create(WizardForm);
with SelectDirLabel do
begin
Caption:= WizardForm.SelectDirLabel.Caption;
Left:= ScaleX(40);
Top:= WizardForm.SelectDirLabel.Top + ScaleY(62);
Width:= WizardForm.SelectDirLabel.Width;
Height:= WizardForm.SelectDirLabel.Height;
Transparent := True;
Parent:= WizardForm.SelectDirPage;
end;
SelectDirLabelBrowse:= TLabel.Create(WizardForm);
with SelectDirLabelBrowse do
begin
Caption:= WizardForm.SelectDirBrowseLabel.Caption;
Left:= ScaleX(40);
Top:= WizardForm.SelectDirBrowseLabel.Top + ScaleY(62);
Width:= WizardForm.SelectDirBrowseLabel.Width;
Height:= WizardForm.SelectDirBrowseLabel.Height;
WordWrap:= True;
Transparent:= True;
Parent:= WizardForm.SelectDirPage;
end;
PageNameLabel1:= TLabel.Create(WizardForm);
with PageNameLabel1 do
begin
Left:= WizardForm.PageNameLabel.Left;
Top:= WizardForm.PageNameLabel.Top;
Width:= ScaleX(300);
Height:= ScaleY(14);
AutoSize:= False;
Font.Style:= [fsBold];
Font.Color:= ClWhite;
Transparent := True;
Parent:= WizardForm.SelectDirPage;
end;
PageDescriptionLabel1:= TLabel.Create(WizardForm);
with PageDescriptionLabel1 do
begin
Left:= WizardForm.PageDescriptionLabel.Left;
Top:= WizardForm.PageDescriptionLabel.top;
Width:= ScaleX(400);
Height:= WizardForm.PageDescriptionLabel.Height;
AutoSize:= False;
Wordwrap:= True;
Transparent := True;
Parent:= WizardForm.SelectDirPage;
end;
Icons:= TCheckBox.Create(WizardForm);
with Icons do
begin
Parent:= WizardForm.SelectDirPage;
Left:= WizardForm.DirEdit.Left;
Top:= WizardForm.DirEdit.Top + 35;
Width:= ScaleX(14);
Height:= ScaleY(14);
TabOrder:= 2;
Checked:= False;
end;
IconsLabel:= TLabel.Create(WizardForm);
with IconsLabel do
begin
    Caption:='Создать ярлык на рабочем столе';
    Left:= WizardForm.DirEdit.Left + 20;
    Top:= WizardForm.DirEdit.Top + 35;
    Width:= ScaleX(150);
    Height:= ScaleY(13);
    Transparent := True;
    Parent:= WizardForm.SelectDirPage;
    OnClick:= @IconsOnClick;
end;
Group:= TCheckBox.Create(WizardForm);
with Group do
begin
    Parent:= WizardForm.SelectDirPage;
    Left:= WizardForm.DirEdit.Left;
    Top:= WizardForm.DirEdit.Top + 70;
    Width:= ScaleX(14);
    Height:= ScaleY(14);
    TabOrder:= 3;
    Checked:= False;
end;
GroupLabel:= TLabel.Create(WizardForm);
with GroupLabel do
begin
    Caption:='Создать ярлыки в меню "Пуск"';
    Left:= WizardForm.DirEdit.Left + 20;
    Top:= WizardForm.DirEdit.Top + 70;
    Width:= ScaleX(150);
    Height:= ScaleY(13);
    Transparent := True;
    Parent:= WizardForm.SelectDirPage;
    OnClick:= @GroupOnClick;
end;
NeedSpaceLabel:= TLabel.Create(WizardForm);
with NeedSpaceLabel do
begin
Parent:= WizardForm.SelectDirPage;
Left:= WizardForm.DirEdit.Left;
Top:= ScaleY(262);
Width:= ScaleX(209);
Height:= ScaleY(13);
Transparent:= True;
end;
FreeSpaceLabel:= TLabel.Create(WizardForm);
with FreeSpaceLabel do
begin
Parent:= WizardForm.SelectDirPage;
Left:= WizardForm.DirEdit.Left;
Top:= ScaleY(280);
Width:= ScaleX(209);
Height:= ScaleY(13);
Transparent:= True;
end;
WizardForm.DirEdit.OnChange:= @GetFreeSpaceCaption;
WizardForm.DirEdit.Text:= WizardForm.DirEdit.Text + #0;
//SelectDirPage
//ProgrammGroupPage
SelectStartMenuFolderLabel:=TLabel.Create(WizardForm)
with SelectStartMenuFolderLabel do
begin
Left:= ScaleX(40);
Top:= WizardForm.SelectDirLabel.Top + ScaleY(62);
Width:= WizardForm.SelectDirBrowseLabel.Width;
Height:= WizardForm.SelectDirBrowseLabel.Height;
AutoSize:=False
WordWrap:=True
Transparent:=True
Caption:=WizardForm.SelectStartMenuFolderLabel.Caption
Parent:=WizardForm.SelectProgramGroupPage
end;
SelectStartMenuFolderBrowseLabel:=TLabel.Create(WizardForm)
with SelectStartMenuFolderBrowseLabel do
begin
Left:= ScaleX(40);
Top:= WizardForm.SelectDirBrowseLabel.Top + ScaleY(62);
Width:= WizardForm.SelectDirBrowseLabel.Width
Height:= WizardForm.SelectDirBrowseLabel.Height
AutoSize:=False
WordWrap:=True
Transparent:=True
Caption:=WizardForm.SelectStartMenuFolderBrowseLabel.Caption
Parent:=WizardForm.SelectProgramGroupPage
end;
WizardForm.NoIconsCheck.Left:=ScaleX(40);
WizardForm.NoIconsCheck.Top:= WizardForm.DirEdit.Top + ScaleY(140)
WizardForm.NoIconsCheck.Width:=13
WizardForm.NoIconsCheck.Height:=13
WizardForm.NoIconsCheck.Visible:=True
WizardForm.NoIconsCheck.Parent:= WizardForm.SelectProgramGroupPage
NoIconsLabel:=TLabel.Create(WizardForm)
with NoIconsLabel do
begin
Left:=ScaleX(56);
Top:= WizardForm.DirEdit.Top + ScaleY(140)
Transparent:=True
OnClick:= @NoIconsLabelOnClick
Caption:=WizardForm.NoIconsCheck.Caption
Parent:=WizardForm.SelectProgramGroupPage
end;
PageNameLabel2:= TLabel.Create(WizardForm);
with PageNameLabel2 do
begin
Left:= WizardForm.PageNameLabel.Left;
Top:= WizardForm.PageNameLabel.Top;
Width:= ScaleX(300);
Height:= ScaleY(14);
AutoSize:= False;
Font.Style:= [fsBold];
Font.Color:= ClWhite;
Transparent := True;
Parent:= WizardForm.SelectProgramGroupPage;
end;
PageDescriptionLabel2:= TLabel.Create(WizardForm);
with PageDescriptionLabel2 do
begin
Left:= WizardForm.PageDescriptionLabel.Left;
Top:= WizardForm.PageDescriptionLabel.top;
Width:= ScaleX(400);
Height:= WizardForm.PageDescriptionLabel.Height;
AutoSize:= False;
Wordwrap:= True;
Transparent := True;
Parent:= WizardForm.SelectProgramGroupPage;
end;
//ProgrammGroupPage
//ReadyPage
ReadyLabel:= TLabel.Create(WizardForm);
with ReadyLabel do
begin
Left:= ScaleX(40);
Top:= ScaleY(70);
Width:= ScaleX(325);
Height:= ScaleY(20);
AutoSize:= False;
WordWrap:= true;
Transparent:= true;
Caption:= 'Нажмите «Установить», чтобы начать Устновку.'
Parent:= WizardForm.ReadyPage;
end;
PageNameLabel3:= TLabel.Create(WizardForm);
with PageNameLabel3 do
begin
Left:= WizardForm.PageNameLabel.Left;
Top:= WizardForm.PageNameLabel.Top;
Width:= ScaleX(300);
Height:= ScaleY(14);
AutoSize:= False;
Font.Style:= [fsBold];
Font.Color:= ClWhite;
Transparent := True;
Parent:= WizardForm.ReadyPage;
end;
PageDescriptionLabel3:= TLabel.Create(WizardForm);
with PageDescriptionLabel3 do
begin
Left:= WizardForm.PageDescriptionLabel.Left;
Top:= WizardForm.PageDescriptionLabel.top;
Width:= ScaleX(400);
Height:= WizardForm.PageDescriptionLabel.Height;
AutoSize:= False;
Wordwrap:= True;
Transparent := True;
Parent:= WizardForm.ReadyPage;
end;
//ReadyPage
//InstallingPage
StatusLabel:= TLabel.Create(WizardForm);
with StatusLabel do
begin
Left:= ScaleX(20);
Top:= ScaleY(80);
Width:= WizardForm.StatusLabel.Width;
Height:= WizardForm.StatusLabel.Height;
AutoSize:= False;
Transparent := True;
Parent:= WizardForm.InstallingPage;
Caption:= 'Распаковка файлов...'
end;
FilenameLabel:= TLabel.Create(WizardForm);
with FilenameLabel do
begin
Left:= ScaleX(20);
Top:= ScaleY(100);
Width:= WizardForm.StatusLabel.Width;
Height:= WizardForm.StatusLabel.Height;
AutoSize:= False;
Transparent := True;
Parent:= WizardForm.InstallingPage;
end;
PageNameLabel4:= TLabel.Create(WizardForm);
with PageNameLabel4 do
begin
Left:= WizardForm.PageNameLabel.Left;
Top:= WizardForm.PageNameLabel.Top;
Width:= ScaleX(300);
Height:= ScaleY(14);
AutoSize:= False;
Font.Style:= [fsBold];
Font.Color:= ClWhite;
Transparent := True;
Parent:= WizardForm.InstallingPage;
end;
PageDescriptionLabel4:= TLabel.Create(WizardForm);
with PageDescriptionLabel4 do
begin
Left:= WizardForm.PageDescriptionLabel.Left;
Top:= WizardForm.PageDescriptionLabel.top;
Width:= ScaleX(400);
Height:= WizardForm.PageDescriptionLabel.Height;
AutoSize:= False;
Wordwrap:= True;
Transparent := True;
Parent:= WizardForm.InstallingPage;
end;


 begin
 ExtractTemporaryFile('2.bmp');
 s:=ExpandConstant('{tmp}')+'2.bmp';
 WizardForm.Position:=poScreenCenter;
 MainForm.BORDERSTYLE:=bsNone;
 width:=GetSystemMetrics(0);
 height:=GetSystemMetrics(1);
 MainForm.Width:=width;
 MainForm.Height:=height;
 width:=MainForm.ClientWidth;
 height:=MainForm.ClientHeight;
 MainForm.Left := 0;
 MainForm.Top := 0;
 BackgroundBitmapImage := TBitmapImage.Create(MainForm);
 BackgroundBitmapImage.Bitmap.LoadFromFile(s);
 BackgroundBitmapImage.Align := alClient;
 BackgroundBitmapImage.Parent := MainForm;
 BackgroundBitmapImage.Stretch:=True;
 MainForm.Visible:=True;
end;

//InstallingPage
//FinishedPage
FinishedHeadingLabel:=TLabel.Create(WizardForm);
with FinishedHeadingLabel do
begin
Top:= ScaleY(66);
Left:= ScaleX(176);
Width:= ScaleX(301);
Height:= ScaleY(53);
AutoSize:= false;
WordWrap:= true;
Font.Size:= 14;
Font.Color:=ClWhite
Font.Style := [fsBold]
Transparent:= true;
Parent:= WizardForm.FinishedPage;
Caption:= WizardForm.FinishedHeadingLabel.Caption;
end;
FinishedLabel:= TLabel.Create(WizardForm);
with FinishedLabel do
begin
Left:= ScaleX(176);
Top:= ScaleY(136);
Width:= ScaleX(301);
Height:= ScaleY(54);
AutoSize:= false;
WordWrap:= true;
Transparent:= true;
Parent:= WizardForm.FinishedPage;
Caption:= 'Team Fortress 2 установлена на Ваш компьютер.' + #10#13#10 + 'Нажмите «Завершить», чтобы выйти из программы' + #10 + 'установки.'
end;
RunProgram:= TCheckBox.Create(WizardForm);
with RunProgram do
begin
Parent:= WizardForm.FinishedPage;
Left:= WizardForm.FinishedLabel.Left;
Top:= WizardForm.FinishedLabel.Top + 140;
Width:= ScaleX(14);
Height:= ScaleY(14);
TabOrder:= 5;
Checked:= False;
end;
RunProgramLabel:= TLabel.Create(WizardForm);
with RunProgramLabel do
begin
Caption:='Запустить Team Fortress 2'; // Имя вашей программы
Left:= WizardForm.FinishedLabel.Left + 20;
Top:= WizardForm.FinishedLabel.Top + 140;
Width:= ScaleX(150);
Height:= ScaleY(13);
Transparent := True;
Parent:= WizardForm.FinishedPage;
OnClick:= @RunProgramClick;
end;
//FinishedPage
end;

procedure CurPageChanged(CurPageID: Integer);
begin
PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;
PageNameLabel1.Caption:= WizardForm.PageNameLabel.Caption;
PageDescriptionLabel1.Caption:= WizardForm.PageDescriptionLabel.Caption;
PageNameLabel2.Caption:= WizardForm.PageNameLabel.Caption;
PageDescriptionLabel2.Caption:= WizardForm.PageDescriptionLabel.Caption;
PageNameLabel3.Caption:= WizardForm.PageNameLabel.Caption;
PageDescriptionLabel3.Caption:= WizardForm.PageDescriptionLabel.Caption;
PageNameLabel4.Caption:= WizardForm.PageNameLabel.Caption;
PageDescriptionLabel4.Caption:= WizardForm.PageDescriptionLabel.Caption;
if CurPageID = wpSelectDir then
begin
GetNeedSpaceCaption;
if FreeMB < NeedSize then
WizardForm.NextButton.Enabled:=False;
begin
if CurPageID=wpInstalling
then
if CurPageID=wpFinished
then
begin
WizardForm.Width:=497;
WizardForm.Height:=358;
WizardForm.Position:=poScreenCenter;
end
end;
end;
end;[/spoiler]

[size=85][color=#808080]Добавлено спустя 16 минут 36 секунд:[/color][/size]
блин, когда нажимаю создать ярлык в меню "Пуск", то он создает и на рабочем столе, а если отмечаю просто на рабочем столе то не создает, помогите((

Аватара пользователя
argnist
VIP
VIP
Сообщения: 1083
Зарегистрирован: 21.05.2006
Откуда: Украина, Днепропетровск
Поблагодарили: 1 раз

#103 Сообщение 03.10.2009, 12:05

M1reX писал(а): [Icons]
Name: "{group}Запустить Team Fortress 2"; Filename: "{app}Team Fortress 2.exe"; WorkingDir: "{app}";
Name: "{group}Удалить Team Fortress 2"; Filename: "{uninstallexe}"
во-первых где все твои слеши?
во-вторых - у тебя здесь указано создавать только в Пуск - Все программы.
Для рабочего стола нужно переменную среды инно {userdesktop}
т.е.:

Код: Выделить всё

Name: {userdesktop}Team Fortress 2; Filename: {app}Team Fortress 2.exe; WorkingDir: {app};
Добавлено спустя 1 минуту 38 секунд:
Полностью секция:
[Icons]
Name: {group}Запустить Team Fortress 2; Filename: {app}Team Fortress 2.exe; WorkingDir: {app};
Name: {group}Удалить Team Fortress 2; Filename: {uninstallexe}
Name: {userdesktop}Team Fortress 2; Filename: {app}Team Fortress 2.exe; WorkingDir: {app};

Добавлено спустя 1 минуту 41 секунду:
хм... [Icons] есть, а [Tasks] где?
у меня строка есть в каждом скрипте:
[Tasks]
Name: desktopicon; Description: Создать значки на Рабочем столе; GroupDescription: {cm:AdditionalIcons}

Добавлено спустя 2 минуты 45 секунд:
раздел хелпа по Такс
Секция [Tasks]

Эта секция не обязятельна. Она определяет задания, настраиваемые пользователем, которые инсталлятор выполнит в ходе установки. Задания имеют вид checkbox'ов и кнопок на странице Выбор дополнительных заданий мастера.

Сама по себе эта секция ничего не делает: для того, чтобы компоненты были действительно установлены на компьютер пользователя, секция [Tasks] должна быть связана с другими секциями. См. Параметры секций [Components] и [Tasks].

Пример секции [Tasks]:

[Tasks]

Name: desktopicon; Description: "Create a &desktop icon"; GroupDescription: "Additional icons:";

Components: main

Name: desktopicon\common; Description: "For all users"; GroupDescription: "Additional icons:"; Components: main; Flags: exclusive

Name: desktopicon\user; Description: "For the current user only"; GroupDescription: "Additional icons:"; Components: main; Flags: exclusive unchecked

Name: quicklaunchicon; Description: "Create a &Quick Launch icon"; GroupDescription: "Additional icons:"; Components: main; Flags: unchecked

Name: associate; Description: "&Associate files"; GroupDescription: "Other tasks:"; Flags: unchecked

Список поддержываемых параметров:

Name (Обязательно)

Описание:

Имя задания.

Общее число \ или / в имени задания называется уровнем задания. Всякое задание с уровнем 1 и выше является дочерним. Задание, стоящее выше дочернего задания и имеющее уровень на 1 меньше, чем дочернее, называется родительским. Дочерние задания, имеющие одинаковое родительское задание, называются родственными.

Дочернее задание не может быть выбрано отдельно от родительского. Родительское задание не может быть выбрано, если ни одно из его дочерних заданий не выбрано и сам по себе оно ничего не устанавливает.

Если родственные задания имеют флаг exclusive, может быть выбрано только одно из них.

Например:

Name: "desktopicon"

Description (Обязательно)

Описание:

Описание задание, которое может содержать константы. Это описание отображается в процессе установки.

Например:

Description: "Create a &desktop icon"

GroupDescription

Описание:

Описание для группы заданий, которое может содержать константы. Следующие друг за другом задания с одним и тем же описанием группы будут объединены под текстовой меткой. Текстовая метка отображает описание группы.

Например:

GroupDescription: "Additional icons"

Components

Описание:

Отдельный список компонентов, к которым относятся задания.Если пользователь выберет компонент из этого списка, задание предложится на выполнение. Задание без параметра Components всегда предлагается на выполнение.

Например:

Components: main

Flags

Описание:

Праметры для установки дополнительных опций. Разделяются пробелами. Поддерживаемые значения:

checkedonce

Указывает инсталлятору, что данное задание не должно быть выбрано в случае, когда инсталлятор обнаружит, что оно уже установлено вместе с предыдущей версией того же приложения. Этот флаг не комбинируется с флагом unchecked.

Если директива UsePreviousTasks секции [Setup] имеет значение no, этот флаг игнорируется.

dontinheritcheck

Указывает, что задание не выбирается автоматически, если выбрано родительское задание. Не действует при заданиях, не имеющих дочерних заданий и не комбинируется с флагом exclusive.

exclusive

Указывает инсталлятору, что из двух и более дочерних заданий, также имеющих флаг exclusive, может быть выбрано только одно.

restart

Указывает инсталлятору, что при выборе пользователем этого задания следует перезагрузить компьютер после его установки, даже если в этом нет необходимости (например потому, что в секции [Files] могут находиться параметры с флагом restartreplace). Действует так же, как директива AlwaysRestart, только для заданий.

unchecked

Указывает инсталлятору, что задание не должно быть изначально выбрано.Этот флаг не комбинируется с флагом checkedonce.

Например:

Flags: unchecked

См. также

Общие параметры

Аватара пользователя
M1reX
Нович0к
Нович0к
Сообщения: 11
Зарегистрирован: 29.09.2009
Откуда: г.Шадринск
Контактная информация:

#104 Сообщение 05.10.2009, 23:03

если я создам [Tasks], то у меня бэкграунд инсталлера пропадает, становиться белым...
а слэши сами по себе здесь пропадают почему-то, когда копировал код, все слэши были на месте, да уже разобрался со всем, кроме как, не хочет запускать приложение после установки, даже есть галочку ставишь

Аватара пользователя
impulse666
Полковник
Полковник
Сообщения: 7405
Зарегистрирован: 08.12.2005
Откуда: Atman
Благодарил (а): 2340 раз
Поблагодарили: 590 раз

#105 Сообщение 28.10.2009, 11:04

NecElectro писал(а):1. Не могу поменять иконку uninstall.exe (она, почему то берётся от файла игры, то есть от главного файла... как её изменить на другую которую я хочу вставить)
[-Dio-] писал(а):[Setup]UninstallDisplayIcon=E:\[Installs]\Soft\Icons\Vista Icon Pack v3.0\api.ico
неработает, трахались с Никком целый час, - иконка берется от SetupIconFile
Изображение
Негласные Правила
1. Пропаганда лицензии запрещена.
2. На форуме режим многоступенчатых стандартов Ψ. То что можно одним, нельзя другим. Решается правящей партией
3. Ники членов правящей партии (impulse666, NiGHt-LEshiY, SHADOW) искажают только в случае необходимости получить БАН.

...воздержитесь от этого, изучите вот это.
Лучшая статья о моих взглядах. Настоятельно рекомендую.

Ответить