[Johny777]

Leka_651,
не знаю как ты, но лично я модулями вообще не пользуюсь, тк путаюсь сильно
у меня например основной скрипт инсталла халфы 2 длиной в около 9000 строк(никаких модулей) и ошибки дублирующихся функций и другие устранял очень быстро
также код становится очень наглядным, хоть и длинный
функции и процедуры сверху
использование ниже ( Я знаю в дельфи можно объявить процедуру(её имя) в шапке и потом писать где угодно, а здесь, в Инно, так нельзя)
переменные в самом верху и тд
попробуй записать всё в одном скрипте в порядке чтения компилятором (сверху вниз)!
добавь комментарии для себя,

[Leka_651]

Johny777,
я бы рада, но у меня 21 файл, по которым собираются 44 сетапа, и пока большая часть не мое творение. а времени все привести в порядок нет - нужно ошибки править
буду мучаться дальше спасибо за помощь.

Johny777,
можешь рассказать чем отличаются inno ultra и простая inno?

[Serega]

только вот вылетала »

Другими словами Insert('\', dir, Length(dir)+1); это тоже самое, что dir := dir + '\';. Написал так, т.к. процедура Insert работает быстрее, а почему вылетела такая ошибка, не знаю...

исправил (выделил зелёным): »

всё правильно сделали

форма появляется при таком вот условии »

Если при проверке количества файлов вам не нужно знать их всё количество, то можно подкорректировать функцию именно по вашим условиям:

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

Код:

function GetFileCount(dir: string): Integer;
var
  FindFiles: TFindRec;
begin
  Result := 0;
  if FindFirst(dir + '\*_update.exe', FindFiles) then
    begin
      repeat
        if FindFiles.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
          case FindFiles.Name of
            {#FNames}: Result := Result + 1;
          end;
      until not FindNext(FindFiles) or (Result > 1);
      FindClose(FindFiles);
    end;
end;

если есть ещё способы по ускорению скорости её работы »

Для увеличения скорости по мере возможности старайтесь меньше обращаться к контролам формы, т.е. загоняйте эти значения в переменные и уже потом работаете с этими переменными.

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

Код:

//////////////////////////////////////////////////////////
  i_portal_russian_gcf: Integer;                       // 25
  dir: string;
begin
  if not Size_Form_Exist then
  begin
    if not Param and not Game_From_INI_Selected then
    begin
      dir := WizardForm.DirEdit.Text;
      half_life_2_russian_gcf := FileExists(dir + '\half-life 2_russian.gcf');
      half_life_2_buka_russian_gcf := FileExists(dir + '\half-life 2 buka russian.gcf');
      half_life_2_2007_base_content_gcf := FileExists(dir + '\half-life 2 2007 base content.gcf');
///////////////////////////////////////////////////////

Для уменьшения количества переменных я бы использовал массивы, а при однообразных вызовах работал через for... to...do. Так же по возможности нужно стараться разгружать InitializeWizard запуская большие расчёты в отдельном потоке.

[Batistas]

Как и обещал, поставил виртуальную машину, попробовал скопилировать - экзэшник скомпилирован, запускается, но выдает ошибку в самом конце установки - http://s1.ipicture.ru/uploads/20120808/bNfOvdds.png . Я так посмотрел на скрипт, попробовал добавить два слэша в одну из строк. Результат - экзэшник не запускается и выдает ошибку, что и на 7 - http://s1.ipicture.ru/uploads/20120808/c1CTB8sV.png . Сдается мне, что ошибка в самом скрипте...
Вот скрин от знакомого - та же самая ерундень - http://img-life.ru/upload_image/0be8...48a6b50795.JPG (компиляция завершена, идет окончание установки)

[El Sanchez]

Batistas, вы не читаете, что вам пишут:

Оказалось, что юникоду не понравились метод createElement при создании нод и метод setAttribute при создании аттрибутов. Процедуру CreateDCPlusPlus в своем предыдущем посте исправил. »

Либо меняете версию компилятора на ANSI и остаетесь на старой версии скрипта, либо компилятор какой хотите, но используйте исправленную версию скрипта (поменялась только процедура CreateDCPlusPlus).

[Batistas]

El Sanchez, теперь я прочитал, видимо проглядел. Поставил ansi-версию, ошибки все равно вылетают. http://s1.ipicture.ru/uploads/20120809/WTFVVU16.png , http://s1.ipicture.ru/uploads/20120809/zUJ2xwg3.png

[Spell1999]

люди помогите плиз как и чем можно сжать файлы до максимума? я жал и раром фриарком 7 зип но сёравно очень слабо жмёт.

[alert30]

Spell1999, NanoZip.

[Batistas]

Spell1999, все от конкретного файла зависит. http://s1.ipicture.ru/uploads/20120809/jvZcF9SW.png , http://s1.ipicture.ru/uploads/20120809/jHQMmJ9z.png

[Spell1999]

и чё это за чуш

Batistas, я также делал но непомогает

я немогу понтять чем жмут. например maxpayne 3 с 25 гигов сжали до 12 это как?