[Lancer2404]

S.E.K.T.O.R. Спасибо з помощь

[msatmb]

Подскажите пожалуйста.
Имеется код

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
 
[Languages]
Name: "Russian"; MessagesFile: "compiler:Languages\Russian.isl"
 
[CustomMessages]
Russian.NeedTmpSpaceMsg=Для работы инсталлятора недостаточно свободного места на системном диске. %nТребуется не менее %1 Мб. %nДоступно %2 Мб.
 
[_code]
function InitializeSetup(): Boolean;
var
  TmpDirFreeMB, TmpDirTotalMB, TmpDirNeedMB: Cardinal;
 
begin
  TmpDirNeedMB:= 5000000; // сколько МЬ требуется
    Result := True;
  GetSpaceOnDisk(ExpandConstant('{tmp}'), True, TmpDirFreeMB, TmpDirTotalMB);
  if TmpDirFreeMB < TmpDirNeedMB then begin MsgBox(FmtMessage(ExpandConstant('{cm:NeedTmpSpaceMsg}'), [inttostr(TmpDirNeedMB),inttostr(TmpDirFreeMB)]), mbError, MB_Ok); Result := False; exit;; end;
end;

Как сделать при помощи функции ByteOrTB от Виктора Доброва чтобы показывалось сообщение в Гб

[BlackSelf]

msatmb, думаю, так:

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

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

[CustomMessages]
Russian.NeedTmpSpaceMsg=Для работы инсталлятора недостаточно свободного места на системном диске. %nТребуется не менее %1. %nДоступно %2.

[_code]
const
    oneMB=1024*1024;
       
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 ByteOrTB(Bytes: Extended; noMB: Boolean): String; 
    Begin
        if not noMB then Result:= NumToStr(Int(Bytes)) +' Mb' else
            if Bytes*oneMB < 1024 then if Bytes = 0 then Result:= '0' else Result:= NumToStr(round(Bytes*oneMB/1024)) +' Bt' else
                if Bytes*oneMB/1024 < 1024 then Result:= NumToStr(round((Bytes*oneMB/1024)*10)/10) +' Kb' else
                    If Bytes*oneMB/oneMB < 1024 then Result:= NumToStr(round(Bytes*oneMB/oneMB*100)/100) +' Mb' else
                        If Bytes*oneMB/oneMB/1000 < 1024 then Result:= NumToStr(round(Bytes*oneMB/oneMB/1024*1000)/1000) +' Gb' else
                            Result:= NumToStr(round(Bytes*oneMB/oneMB/oneMB*1000)/1000) +' Tb';
End;

function InitializeSetup(): Boolean;
var
  TmpDirFreeMB, TmpDirTotalMB, TmpDirNeedMB: Cardinal;
begin
  TmpDirNeedMB:= 5000000; // сколько Mb требуется
    Result := True;
  GetSpaceOnDisk(ExpandConstant('{tmp}'), True, TmpDirFreeMB, TmpDirTotalMB);
  if TmpDirFreeMB < TmpDirNeedMB then begin MsgBox(FmtMessage(ExpandConstant('{cm:NeedTmpSpaceMsg}'), [ByteOrTB(TmpDirNeedMB,true),ByteOrTB(TmpDirFreeMB,true)]), mbError, MB_Ok); Result := False; exit;; end;
end;

[msatmb]

BlackSelf, Спасибо, только пришлось умножить на oneMB, а то он мне в Мегах и килобайтах показывал
т.е.
ByteOrTB(TmpDirNeedMB*oneMB,true),ByteOrTB(TmpDirFreeMB*oneMB,true) Вроде правильно показал
И я почемуто думал, что нужно обязательно делить на oneMB как в других скриптах. А оказывается можно и так
и вопрос.
Если конечно пользовался скриптом для распаковки архивов FreeArcВерсия 3.3 от Bulat Ziganshin, 13-09-2009
- FreeArcExtract() поддерживает опцию '-wPATH' для задания каталога для временных файлов

Каким образом прописать эту опцию в скрипте

[Lancer2404]

Скажите можно ли сделать так чтобы пользователь при установке указал букву диска,а инсталлятор уже в зависимости от буквы диска прописал в реестр ключ.Например install path: С:\Games\Driver\driver.exe. Возможно сделать такое?

[A1EXXX]

Lancer2404, если я правильно понял, тебе нужно, чтобы в реестр заносился ключ в зависимости от указанного пути. Вместо С:\Games\Driver\driver.exe напиши {app}, например:

Root: HKLM; Subkey: "SOFTWARE\Activision\Call of Duty 4"; ValueName: "InstallPath"; ValueType: String; ValueData: "{app}";

[user_123]

Serega, K.I.S. 2010 сообщает, что REG-Converter содержит вирус virus.Win32.induc.a! Это правда?!!
Перезакачивал архив - рекакция антивируса на этот архив та же.

И в самом деле программа функционирует подозрительно... Крошечный reg-файл из нескольких строк конвертирует секунд 7 - 10 и при этом CPU загружает на 100%!

p.s. когда будет свободное время отформатирую жёсткий диск...

[A1EXXX]

user_123, каспер - зло! Мой NOD32 молчит, а прога нормально работает, файлы конвертит мгновенно! Если сомневаешься, отправь файл в Лабораторию или на virusinfo....

[Lancer2404]

A1EXXX Спасибо.А можно так сделать чтобы при установке на win xp один путь а при установке на висту другой.Так возможно сделать?

[Stef1979]

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

Поискав по форуму, нашел:

[Tasks]
Name: chk1; Description: Ключ 1; GroupDescription: Дополнительно:; Flags: exclusive
Name: chk2; Description: Ключ 2; GroupDescription: Дополнительно:; Flags: exclusive

А как теперь связать выбор с тем или иным файлом и скопировать именно его destination, никак не могу понять.