Alloc
Новичок
Приветствую!
В долгих поисках нужной информации я все таки нашел пример на форуме, за который огромное спасибо человеку с ником sergey3695, но имеется один вопрос который я задал бы в той теме дабы не мусорить, но к сожалению она закрыта..
Сама тема лежит тут
Вопрос в том, что с предложенным sergey3695 кодом действительно все работает как надо, но почему то если подключить к проэкту модуль ISDone.iss то значения в ComponentsDiskSpaceLabel и DiskSpaceLabel получаются разные. я обратил внимание что это из за строк:
т.е. любые прописанные файлы в секции [Files] с флагом Dontcopy приводят к тому что значения в лейблах о которых я говорил выше отличаются... не понимаю почему
ComponentsDiskSpaceLabel у меня показывает 1,8 мб
DiskSpaceLabel показывает другое, видимо с учетом всех файлов из ISDone - 2,8 мб
и получается этот код не работает так как должен в данной ситуации:
Скажите пожалуйста как это можно исправить? И почему значения разные? Я думал что все с флагом Dontcopy не учитывается инсталлятором.. буду очень признателен за помощь
В долгих поисках нужной информации я все таки нашел пример на форуме, за который огромное спасибо человеку с ником sergey3695, но имеется один вопрос который я задал бы в той теме дабы не мусорить, но к сожалению она закрыта..
Сама тема лежит тут
Код:
// 1048576 = 1 mb (если число больше 2047 то MbSize не работает. ограничение integer)
// тогда прописывать вручную
#define MbSize(x) x*1048576
//===== [Место для установки] =====\\:
#define NeedSize "6656"
[setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}
//ShowComponentSizes=no
[Languages]
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"
[Components]
Name: Mode; Description: mode; Types: custom; flags: fixed
Name: Mode/SPOnly; Description: SPOnly; ExtraDiskSpaceRequired: {#MbSize(1521)}; Flags: disablenouninstallwarning
Name: Mode2; Description: mode; Types: custom; flags: fixed
Name: Mode2/SPOnly2; Description: SPOnly2; ExtraDiskSpaceRequired: {#MbSize(101)}; Flags: disablenouninstallwarning
Name: Mode2/MPOnly2; Description: MPOnly2; ExtraDiskSpaceRequired: {#MbSize(524)}; Flags: disablenouninstallwarning
[Code]
var
Label1: TLabel;
OldEvent_ComponentsListClickCheck: TNotifyEvent;
DsE: Extended;
function GetFloatFormText(const UndefText: String): Extended;
var
i: Integer;
ss: string;
begin
for i := 1 to Length(UndefText) do
case UndefText[i] of
'0','1','2','3','4','5','6','7','8','9': ss := ss + UndefText[i];
',': ss := ss + '.';
end;
Result:= StrToFloat(ss);
end;
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)+' Мб' else
if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' Гб' else
Result:= NumToStr(Float/(1024*1024))+' Тб';
end;
procedure DiskSpaceLabel(Sender: TObject);
begin
OldEvent_ComponentsListClickCheck(Sender);
DsE:= GetFloatFormText(WizardForm.ComponentsDiskSpaceLabel.Caption)-GetFloatFormText(WizardForm.DiskSpaceLabel.Caption)+{#NeedSize};
Label1.Caption:= 'Текущий выбор требует не менее '+MbOrTb(DsE)+' на диске.';
end;
procedure InitializeWizard;
begin
DsE:= GetFloatFormText(WizardForm.ComponentsDiskSpaceLabel.Caption)-GetFloatFormText(WizardForm.DiskSpaceLabel.Caption)+{#NeedSize};
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Parent := WizardForm.ComponentsDiskSpaceLabel.Parent;
Caption:= 'Текущий выбор требует не менее '+MbOrTb(DsE)+' на диске.';
SetBounds(WizardForm.ComponentsDiskSpaceLabel.Left, WizardForm.ComponentsDiskSpaceLabel.Top, WizardForm.ComponentsDiskSpaceLabel.Width, WizardForm.ComponentsDiskSpaceLabel.Height);
Font.Color:= clBlue;
Transparent:= True;
end;
OldEvent_ComponentsListClickCheck := WizardForm.ComponentsList.OnClickCheck;
WizardForm.ComponentsList.OnClickCheck:= @DiskSpaceLabel;
WizardForm.ComponentsDiskSpaceLabel.Hide;
WizardForm.DiskSpaceLabel.Hide;
end;Вопрос в том, что с предложенным sergey3695 кодом действительно все работает как надо, но почему то если подключить к проэкту модуль ISDone.iss то значения в ComponentsDiskSpaceLabel и DiskSpaceLabel получаются разные. я обратил внимание что это из за строк:
Код:
...
Source: Include\ISDone.dll; DestDir: {tmp}; Flags: dontcopy;
...ComponentsDiskSpaceLabel у меня показывает 1,8 мб
DiskSpaceLabel показывает другое, видимо с учетом всех файлов из ISDone - 2,8 мб
и получается этот код не работает так как должен в данной ситуации:
Код:
DsE:= GetFloatFormText(WizardForm.ComponentsDiskSpaceLabel.Caption)-GetFloatFormText(WizardForm.DiskSpaceLabel.Caption)+{#NeedSize};
Последнее редактирование:
