YURSHAT
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
[Messages]
ComponentsDiskSpaceMBLabel=[mb]
[Components]
Name: main; Description: Программные файлы; Flags: fixed; Types: custom compact full
Name: Component1; Description: Факультатив 1; Flags: checkablealone; Types: full
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
[Files]
Source: "C:\Documents and Settings\Администратор\Рабочий стол\1.rar"; DestDir: "{app}"; Flags: ignoreversion; Components: main
Source: "C:\Documents and Settings\Администратор\Рабочий стол\1.rar"; DestDir: "{app}"; Flags: ignoreversion; Components: Component1
[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
Name: "{group}\{cm:UninstallProgram,My Program}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Tasks: desktopicon
[Code]
var
Lbl: TLabel;
procedure InitializeWizard();
begin
Lbl := TLabel.Create(WizardForm);
with WizardForm.ComponentsDiskSpaceLabel do
begin
Lbl.Top := Top;
Lbl.Left:= Left;
Lbl.AutoSize := True;
Lbl.Caption := 'Disk space requires (Mb): ';
Lbl.Parent := Parent;
Left:= Lbl.Left + Lbl.Width;
end;
end;
function NextButtonClick(CurPageID: Integer): Boolean;
var
str: string;
begin
if CurPageID = wpSelectComponents then
begin
MsgBox(WizardForm.ComponentsDiskSpaceLabel.Caption, mbInformation, MB_OK);
end;
Result:= True;
end; |
