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

Скрипт R.G. Игроманы 1.1 (16042014)

Закос под R.G. Игроманы.

  1. Ветеран Проверенный

    Регистрация:
    19 дек 2011
    Сообщения:
    351
    Симпатии:
    401
    Пользователь Mailchik разместил новый ресурс:

    R.G. Игроманы - Закос под R.G. Игроманы.

    Узнать больше об этом ресурсе...
     
    LagunaFAN, audiofeel, Mickey1s и 15 другим нравится это.
  2. Ветеран

    Регистрация:
    16 сен 2012
    Сообщения:
    312
    Симпатии:
    64
    Пол:
    Мужской
    Баг или нет незнаю точно, но должен быть выбор между Steam и Взломанной версией но ту можно и все снять напроч...:rofl:
     
  3. Ветеран

    Регистрация:
    28 авг 2012
    Сообщения:
    96
    Симпатии:
    19
    Пол:
    Мужской
    да, у меня так же, кстати первый раз работает выбор, но когда "передумаешь" то он начинает "глючить"
    и стим у меня стоит на диске D, = не определяет !!!!

    [​IMG]
     
  4. Ветеран Модератор

    Регистрация:
    26 июн 2011
    Сообщения:
    896
    Симпатии:
    614
    Shift85, audiofeel, да это же закос...ясень пень там могут быть ошибки. А путь не определяет, потому что там и не стоит авто определение (считывание с реестра). Это можно сказать бесплатно предоставленное чужое оформление, не больше, не меньше. :)
     
  5. Ветеран

    Регистрация:
    28 авг 2012
    Сообщения:
    96
    Симпатии:
    19
    Пол:
    Мужской
    Mailchik, как сделать второй прогресс бар для "исдон" в твоем скрипте "Закос под R.G. Игроманы."?, не получается у меня
     
  6. Ветеран

    Регистрация:
    16 сен 2012
    Сообщения:
    312
    Симпатии:
    64
    Пол:
    Мужской
    А если так попробовать:8-)

    Код (Text):
    ISDoneProgressBar2:=ImgPBCreate2(WizardForm.Handle,ExpandConstant('{tmp}\pbbkg.png'),ExpandConstant('{tmp}\pb.png'),78,270,344,24,3,4,2);
     
  7. Ветеран Проверенный

    Регистрация:
    19 дек 2011
    Сообщения:
    351
    Симпатии:
    401
    andrey нравится это.
  8. Ветеран

    Регистрация:
    28 авг 2012
    Сообщения:
    96
    Симпатии:
    19
    Пол:
    Мужской
    хмм, да как бы нужен "полноценный" второй прогресс бар, я просто все продублировал, я не знаю правильно это или нет, в плане том что у кого то на машине заглючит, может есть другой правильный способ
    Код (Text):
    function PBProc(h: hWnd; Msg, wParam, lParam: Longint): Longint;
    var
      pr, i1, i2: Extended;
      w: integer;
    begin
      Result := CallWindowProc(PBOldProc, h, Msg, wParam, lParam);
      if (Msg = $402) and (ISDoneProgressBar1.Position > ISDoneProgressBar1.Min) then begin
        i1 := ISDoneProgressBar1.Position - ISDoneProgressBar1.Min;
        i2 := ISDoneProgressBar1.Max - ISDoneProgressBar1.Min;
        pr := i1 * 100 / i2;
        w := Round(392 * pr / 100);
        ImgSetPosition(ProgressBarImg1, ScaleX(35), ScaleY(296), w, ScaleY(8));
        ImgSetVisiblePart(ProgressBarImg1, ScaleX(0), ScaleY(0), w, ScaleY(8));
        ImgApplyChanges(WizardForm.Handle);
      end;
      if (Msg = $402) and (ISDoneProgressBar2.Position > ISDoneProgressBar2.Min) then begin
        i1 := ISDoneProgressBar2.Position - ISDoneProgressBar2.Min;
        i2 := ISDoneProgressBar2.Max - ISDoneProgressBar2.Min;
        pr := i1 * 100 / i2;
        w := Round(392 * pr / 100);
        ImgSetPosition(ProgressBarImg2, ScaleX(35), ScaleY(195), w, ScaleY(8));
        ImgSetVisiblePart(ProgressBarImg2, ScaleX(0), ScaleY(0), w, ScaleY(8));
        ImgApplyChanges(WizardForm.Handle);
      end;
    end;
     
    вот как бы сам Setup.exe, работает правильно, (у меня) и отменял по нескольку раз и ставил и переставлял, вроде все норм ( архив первый это = 1.arc и второй архив это = 2.arc
    http://rghost.ru/54285359
     

Поделиться этой страницей