Код:
#define NeedSize 4380
#define NeedInstallSize 47890
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Files]
Source: Russian.isl; DestDir: {tmp}
Source: English.isl; DestDir: {tmp}
[_Code]
var
SettingButton: TButton;
Flag, SetParameters: Boolean;
LangFile: String;
SizePanel: TPanel;
TotalSpaceLabel, FreeSpaceLabel,InstallSpaceLabel, NeedSpacelabel,
TotalSpaceLabel2, FreeSpaceLabel2, NeedSpacelabel2, InstallSpaceLabel2: TLabel;
FreeMB, TotalMB: Cardinal;
function NumToStr(Float: Extended): String;
begin
Result:= format('%.2n', [Float]); StringChange(Result, ',', '.');
while ((Result[Length(Result)] = '0')or(Result[Length(Result)] = '.'))and(Pos('.', Result) > 0) do
SetLength(Result, Length(Result)-1);
end;
function MbOrTb(Float: Extended): String;
begin
if Float < 1024 then Result:= NumToStr(Float)+' '+GetIniString('Messages', 'mb', '', LangFile) else
if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' '+GetIniString('Messages', 'gb', '', LangFile) else
Result:= NumToStr(Float/(1024*1024))+' '+GetIniString('Messages', 'tb', '', LangFile);
end;
procedure ObjectFunc(Sender: TObject);
var
Drive: String;
begin
case Sender of
WizardForm.DirEdit: begin
Drive:= ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Drive, True, FreeMB, TotalMB);
TotalSpaceLabel.Caption := GetIniString('Messages', 'TotalMBLabel', '', LangFile)+MbOrTb(TotalMB);
FreeSpaceLabel.Caption := GetIniString('Messages', 'FreeSpaceLabel', '', LangFile)+MbOrTb(FreeMB);
InstallSpacelabel.Caption := GetIniString('Messages', 'TotalNeedSpaceLabel', '', LangFile)+MbOrTb({#NeedInstallSize});
NeedSpaceLabel.Caption := GetIniString('Messages', 'NeedSpaceLabel', '', LangFile)+MbOrTb({#NeedSize});
WizardForm.NextButton.Enabled:=(FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize});
//if (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize}) then FreeSpaceLabel2.Font.Color:=$FFFFFF else FreeSpaceLabel2.Font.Color:=$0000FF;
end;
end;
end;
function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\Russian.isl')) then ExtractTemporaryFile('Russian.isl');
if not FileExists(ExpandConstant('{tmp}\English.isl')) then ExtractTemporaryFile('English.isl');
Result:=True;
end;
procedure HideShowOnClick(Sender: TObject);
begin
if Flag = False then begin
LangFile:= ExpandConstant('{tmp}\Russian.isl');
Flag:= True;
SettingButton.Caption:= 'Ru';
end else begin
LangFile:= ExpandConstant('{tmp}\English.isl')
Flag:= False;
SettingButton.Caption:= 'En';
end;
WizardForm.NextButton.Caption := GetIniString('Messages', 'ButtonNext', '', LangFile);
WizardForm.BackButton.Caption := GetIniString('Messages', 'ButtonBack', '', LangFile);
WizardForm.CancelButton.Caption := GetIniString('Messages', 'ButtonCancel', '', LangFile);
WizardForm.DirBrowseButton.Caption := GetIniString('Messages', 'ButtonBrowse', '', LangFile);
WizardForm.GroupBrowseButton.Caption := GetIniString('Messages', 'ButtonBrowse', '', LangFile);
TotalSpaceLabel.Caption := GetIniString('Messages', 'TotalMBLabel', '', LangFile)+MbOrTb(TotalMB);
FreeSpaceLabel.Caption := GetIniString('Messages', 'FreeSpaceLabel', '', LangFile)+MbOrTb(FreeMB);
InstallSpacelabel.Caption := GetIniString('Messages', 'TotalNeedSpaceLabel', '', LangFile)+MbOrTb({#NeedInstallSize});
NeedSpaceLabel.Caption := GetIniString('Messages', 'NeedSpaceLabel', '', LangFile)+MbOrTb({#NeedSize});
end;
procedure InitializeWizard();
begin
SettingButton:= TButton.Create(WizardForm);
SettingButton.SetBounds(ScaleX(10),ScaleY(325), ScaleX(30), ScaleY(30))
SettingButton.Caption:= 'Ru';
SettingButton.OnClick:= @HideShowOnClick;
SettingButton.Parent:= WizardForm;
Flag:=True;
TotalSpaceLabel:= TLabel.Create(WizardForm);
with TotalSpaceLabel do begin
Parent := WizardForm.SelectDirPage;
AutoSize:=True;
Transparent := True;
SetBounds(ScaleX(0), ScaleY(120), ScaleX(0), ScaleY(0));
Font.Size:= 8;
end;
FreeSpaceLabel:= TLabel.Create(WizardForm);
with FreeSpaceLabel do begin
Parent := WizardForm.SelectDirPage;
AutoSize:=True;
Transparent := True;
SetBounds(ScaleX(0), ScaleY(140), ScaleX(0), ScaleY(0));
Font.Size:= 8;
end;
InstallSpacelabel:= TLabel.Create(WizardForm);
with InstallSpacelabel do begin
Parent := WizardForm.SelectDirPage;
AutoSize:=True;
Transparent := True;
SetBounds(ScaleX(150), ScaleY(120), ScaleX(0), ScaleY(0));
Font.Size:= 8;
end;
NeedSpaceLabel:= TLabel.Create(WizardForm);
with NeedSpaceLabel do begin
Parent := WizardForm.SelectDirPage;
AutoSize:=True;
Transparent := True;
SetBounds(ScaleX(150), ScaleY(140), ScaleX(0), ScaleY(0));
Font.Size:= 8;
end;
WizardForm.DirEdit.OnChange:=@ObjectFunc;
end;
procedure Showcomp(CurPageID: Integer);
begin
case CurPageID of
wpSelectDir:
begin
ObjectFunc(WizardForm.DirEdit);
end;
end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
ShowComp(CurPageID);
If Flag then begin
LangFile:= ExpandConstant('{tmp}\Russian.isl');
end else begin
LangFile:= ExpandConstant('{tmp}\English.isl')
WizardForm.NextButton.Caption := GetIniString('Messages', 'ButtonNext', '', LangFile);
WizardForm.BackButton.Caption := GetIniString('Messages', 'ButtonBack', '', LangFile);
WizardForm.CancelButton.Caption := GetIniString('Messages', 'ButtonCancel', '', LangFile);
WizardForm.DirBrowseButton.Caption := GetIniString('Messages', 'ButtonBrowse', '', LangFile);
WizardForm.GroupBrowseButton.Caption := GetIniString('Messages', 'ButtonBrowse', '', LangFile);
case CurPageID of
wpWelcome:
begin
end;
wpFinished:
begin
SettingButton.Hide;
WizardForm.NextButton.Caption := GetIniString('Messages', 'ButtonFinish', '', LangFile);
end;
end;
end;
end;
