Скрипты Inno Setup. Помощь и советы [часть 8]

[Nightwishh]

Вопрос по поводу модуля get_hw_caps.dll. Можно ли увеличить объём определяемой видео памяти (в модуле) таким образом

Код:

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

VidRam:=GetVidMemLocal/1000000;
  if (VidRam<63) or (VidRam>1100) then vr:=VidRam
  else if VidRam<100 then vr:=64
  else if VidRam<200 then vr:=128
  else if VidRam<300 then vr:=256
  else if VidRam<400 then vr:=384
  else if VidRam<600 then vr:=512
  else if VidRam<800 then vr:=792
  else if VidRam>800 then vr:=1024
  else if VidRam<1500 then vr:=1280
  else if VidRam<2100 then vr:=2048
  else if VidRam<2600 then vr:=2550
  else if VidRam<3100 then vr:=3072;

И нужно ли ли что то ещё дописывать?

[AlexanderSergeev]

Цитата doctor_allcome:



Уважаемые форумчане, кто нибудь может поделиться примером проверки MD5, для нескольких файлов?

По возможности для стандартного Inno, а не для модов (ResTools).

Скрипты Inno Setup. Помощь и советы [часть 8]

Пример:

Код:

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

Procedure InitializeWizard();
var
 TFR: TFindRec;
 Filename, Msg: String;
begin
 if FindFirst(ExpandConstant('{src}\*'), TFR) then
 try
  repeat
   if (TFR.Name  '.') and (TFR.Name  '..') then
    if TFR.Attributes  FILE_ATTRIBUTE_DIRECTORY then
    begin
     Filename := ExpandConstant('{src}\') + ExpandConstant(TFR.Name);
     Msg := Msg + Filename + '; MD5: ' + GetMD5OfFile(Filename) + #13#10;
    end;
  until not FindNext(TFR);
 finally
  MsgBox(Msg, mbInformation, MB_OK);
  FindClose(TFR);
 end;
end;

[AlexanderSergeev]

собрал setup, установил программу, после запуска setup заново, setup уже не спрашивает путь для установки...



какой параметр использовать, чтобы всегда setup спрашивал путь установки, независимо от того, стоИт ли эта версия программы или нет?

[ZVSRus]

Цитата ispolin:



Подскажите пожалуйста что нужно дописать в скрипте, чтобы заполнились пустые поля?



из Справки





Код:

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

 VersionInfoProductVersion=  Значение из 4 чисел, разделенных точками. Задает двоичное значение версии файла инсталлятора.
 VersionInfoProductName=  AppName, если AppName не содержит констант (иначе будет пустая строка). Определяет значение названия продукта

Пример





Код:

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

 VersionInfoVersion=4.7.6.1
 VersionInfoProductVersion=4.7.6.1
 VersionInfoCompany=ObviousIdea
 VersionInfoDescription=RePack (& Portable) by ZVSRus
 VersionInfoProductName=Light Image Resizer
 VersionInfoCopyright=Copyright © 2011-2015 ObviousIdea SARL

[vovann01]

Цитата HomeBasic:



какой параметр использовать



Попробуйте так:




Цитата:



DirExistsWarning=yes

[ZVSRus]

Цитата HomeBasic:



какой параметр использовать, чтобы всегда setup спрашивал путь установки, независимо от того, стоИт ли эта версия программы или нет?

Скрипты Inno Setup. Помощь и советы [часть 8]

HomeBasic,



Код:

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

DisableDirPage=no

Цитата doctor_allcome:



Есть код, срабатывающий при деинсталляции. Удаляет папку приложения полностью. Необходимо что-бы одна папка (СОХРАНЕНИЯ) не удалялась. Если "СОХРАНЕНИЯ" находятся в Documents and Settings или еще где, то все срабатывает нормально. Но если "СОХРАНЕНИЯ" находятся в {app}\ , то удаляется все из {app}\ включая "СОХРАНЕНИЯ".

Скрипты Inno Setup. Помощь и советы [часть 8]

doctor_allcome,



Код:

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

[Dirs]
Name: "{app}\СОХРАНЕНИЯ"; Flags: uninsneveruninstall

[vovann01]

А, забыл сказать) Надо что бы это всё не просто бакупилось, а ещё и запихивалось в архив, да.

При том, что бы в имени архива была дата, и архивировалось это встроеным архиватором. (в идеале)

[ZVSRus]

Цитата vovann01:



А, забыл сказать) Надо что бы это всё не просто бакупилось, а ещё и запихивалось в архив, да.

При том, что бы в имени архива была дата, и архивировалось это встроеным архиватором. (в идеале)



Если Вы хотите сказать что в Inno Setup есть встроенный архиватор, тогда скажите где он находится и как на него посмотреть.

[vovann01]

Если бы я хорошо знал Inno Setup, яб не сидел тут. Тогда предогаю юзать 7za, я даже скрипт написал на архивацию, не знаю, как сильно он поможет, и можно ли его воткнуть в установщик, но:



Содержание моего батника:





Скрытый текст

[spoiler]"C:\Users\v.pon\Desktop\ARXIV\7za.exe" a %date%.rar c:\Los\[/spoiler]

[Dodakaedr]

Цитата doctor_allcome:



Удаляет все. А должно удаляться только при при выполнении условия

Скрипты Inno Setup. Помощь и советы [часть 8]

doctor_allcome,



Код:

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

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  case CurUninstallStep of
    usUninstall:
      if DirExists(ExpandConstant('{app}\СОХРАНЕНИЯ')) and      
      (MsgBox('Вы хотите удалить сохранения?', mbConfirmation, MB_YESNO) = IDYES) then      
        if not DelTree(ExpandConstant('{app}\СОХРАНЕНИЯ'), True, True, True) then
          MsgBox('Папка с сохранениями не удалена!'#13#10'Папка используется другим приложением...', mbError, MB_OK);
  end;  
end;

Цитата vint56:



не отображаются иконки в ComboBox при Style := csDropDownList;

Скрипты Inno Setup. Помощь и советы [часть 8]

vint56, при данном стиле и не должны.