[MrAWP]

serg aka lain спасибо) уже до самого дошло)

[GrizzlyMK]

Подскажите как испаравить.

[A1EXXX]

Меня заинтересовал репак от ЕagleSH, вот скрины: 1 2 3 4 5
Может ли кто-нибудь такое смастерить??? P.S. У него видео растянуто по инсталлу & распаковка FreeArc

Накопилось несколько вопросов, помогайте кто чем может
1) Как сделать, чтобы когда игру уже установлена, при запуске инсталла выскакивало такое вот окошко?
2) Подскажите связку Precomp + FreeArc, если нужно прекомпить много мелких файлов. Можно сначала файлы паконуть 7-zip'ом без сжатия, потом Precomp & FreeArc. Может есть связка попроще? А если нет, то можно сделать так, чтоб после распаковки *.arc-архивов (при использовании скрипта Bulat'а v3.3) начиналась рекомпрессия, и лишь потом распаковка 7z. И можно сделать так, чтоб последние две стадии были с прогресс-барами??
3) Ещё есть такой баг: использую скрипт для лого в углу, но начиная со страницы выбора папки установки кликабельность ссылки пропадает!!! Какая процедура (из какого-то другого скрипта) может такое делать??

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

[Files]
Source: C:\logo.bmp; DestDir: {tmp}; Flags: dontcopy

[code]
var
LogoImage:TBitmapImage;
LogoLabel: TLabel;
LogoPanel: TPanel;

procedure LogoOnClick(Sender: TObject);
var ReturnCode: Integer;
begin
ShellExec('open', 'http://сайт.ру', '', '', SW_SHOWNORMAL, ewNoWait, ReturnCode)
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('logo.bmp');
LogoPanel := TPanel.Create(WizardForm);
with LogoPanel do
begin
Parent := WizardForm;
Left := ScaleX(5);
Top := ScaleY(320);
Width := ScaleX(165);
Height := ScaleY(35);
BevelOuter := bvNone;
end;

LogoImage := TBitmapImage.Create(WizardForm);
with LogoImage do
begin
Parent := LogoPanel;
Left := ScaleX(0);
Top := ScaleY(0);
AutoSize:=true;
ReplaceColor:=clFuchsia;
ReplaceWithColor:=clBtnFace;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
end;

LogoLabel := TLabel.Create(WizardForm);
with LogoLabel do
begin
Parent := LogoPanel;
Width := LogoPanel.Width;
Height := LogoPanel.Height;
Transparent:=True;
Cursor := crHand;
OnClick:=@LogoOnClick;
end;
end;

[BlackSelf]

A1EXXX, на данный момент в условиях инно такое сделать нельзя (если очень хочется, переходи на ммб). Так как при размещении видео перекрываются все элементы, кроме edit'ов и различных button'ов с чек-боксами.
1).

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

Код:

[_code]
function InitializeSetup(): Boolean;
var
ResultCode:Integer;
ResultReg:string;
begin
if RegValueExists(HKEY_LOCAL_MACHINE, 'Software\2K Sports\NBA 2K10','InstallDir') then
begin
RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\2K Sports\NBA 2K10','InstallDir', ResultReg)
if MsgBox('Запустить NBA 2K10?',mbconfirmation, mb_YesNo) = IDYES then
Exec(ResultReg+'\nba2k10.exe', '', '', SW_SHOW,ewNoWait, ResultCode)
end;
end;

2). Декомпрессию и распаковку архива сделать можно, но отобразить на прогресс-баре пока не удастся.
3). Показывай весь скрипт, тогда можно будет что-то сказать, а гадать, "какая процедура (из какого-то другого скрипта) может такое делать", мы можем долго.

[Serega]

спасибо за Converter »

Пользуйтесь на здоровье

Вы случаем не знаете, как сделать средствами WinApi кнопки плоскими, ну как в классической теме »

Не сталкивался с таким, подумаю на досуге...

в последней версии компилятора от RT у меня Мастер скриптов не работал... »

Есть такое дело, но я не использую мастера.
Просто на скорую руку, сделал для себя прогу и повесил кнопку в Total Commander. Нужна болванка скрипта, я нажимаю на кнопку и болванка готова...

Какая процедура (из какого-то другого скрипта) может такое делать?? »

Любая, которая создаёт, что-то поверх или переназначает LogoLabel. Присмотритесь к процедурам CurPageChanged, NextButtonClick, CurStepChanged.

[A1EXXX]

в условиях инно такое сделать нельзя »

Т.е. инсталлятор, который на скринах, сделан не в Inno??

Декомпрессию и распаковку архива сделать можно »

Можно это как-то упростить (не так, как я описал выше)??

Готовый скрипт не храню (каждый раз пишу заново), состряпал по-быстрому [прикрепил]...

[BlackSelf]

Т.е. инсталлятор, который на скринах, сделан не в Inno?? »

Нет. Это ммб. В инно сделан setup_.exe

Можно это как-то упростить (не так, как я описал выше)?? »

Запаковать по одному файлу через for /r %%a in (*.*) do precomp04.exe -slow "%%a"
Ну и распаковать также, только с параметром -r и по маске *.pcf
По крайней мере, 7zip не надо будет использовать.

[A1EXXX]

BlackSelf, можешь на примере любого файла расписать упаковку и распаковку (и как это всё в скрипте прописать), а то даже не знаю, туда ли параметры написал
Где при этом должен быть файл precomp04.exe? И "по одному файлу" - это как?? Если это для нескольких больших, то понятно, а если много мелких, то чёт не очень...

[Serega]

Подскажите как испаравить. »

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

Код:

; Автор kombat 77 http://forum.ru-board.com/profile.cgi?action=show&member=kombat 77
[Setup]
AppName=Test
AppVerName=Test v 1.0
DefaultDirName={pf}\Test
OutputDir=userdocs:Test.
Uninstallable=False

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

[Icons]
Name: "{userdesktop}\notepad"; Filename: "{win}\notepad.exe";

[Files]
Source: FileName1; Flags: dontcopy
Source: FileName2; Flags: dontcopy

[Code]
function GetModuleHandle(lpModuleName: LongInt): LongInt;
 external 'GetModuleHandleA@kernel32.dll stdcall';

function ExtractIcon(hInst: LongInt; lpszExeFileName: PChar; nIconIndex: LongInt): LongInt;
 external 'ExtractIconA@shell32.dll stdcall';

function DrawIconEx(hdc: LongInt; xLeft, yTop: Integer; hIcon: LongInt; cxWidth, cyWidth: Integer; istepIfAniCur, hbrFlickerFreeDraw, diFlags: LongInt): LongInt;
 external 'DrawIconEx@user32.dll stdcall';

procedure InitializeWizard();
var
  Rect: TRect;
  HIcon: LongInt;
begin
  ExtractTemporaryFile('FileName1');
  HIcon := ExtractIcon(GetModuleHandle(0), ExpandConstant('{tmp}\FileName1'), 0);
  WizardForm.SelectDirBitmapImage.Hide;
  with TBitmapImage.Create(WizardForm) do
  begin
    SetBounds(WizardForm.SelectDirBitmapImage.Left, WizardForm.SelectDirBitmapImage.Top, ScaleX(32), ScaleY(32));
    with Bitmap do
    begin
      Width := ScaleX(32);
      Height := ScaleY(32);
      Rect.Right := ScaleX(32);
      Rect.Bottom := ScaleY(32);
      Rect.Left := ScaleX(0);
      Rect.Top := ScaleY(0);
      Canvas.Brush.Color := WizardForm.Color;
      Canvas.FillRect(Rect);
      DrawIconEx(Canvas.Handle, 0, 0, HIcon, 32, 32, 0, 0, 3);
    end;
    Parent := WizardForm.SelectDirPage;
  end;

  ExtractTemporaryFile('FileName2');
  HIcon := ExtractIcon(GetModuleHandle(0), ExpandConstant('{tmp}\FileName2'), 0);
  WizardForm.SelectGroupBitmapImage.Hide;
  with TBitmapImage.Create(WizardForm) do
  begin
    SetBounds(WizardForm.SelectGroupBitmapImage.Left, WizardForm.SelectGroupBitmapImage.Top, ScaleX(32), ScaleY(32));
    with Bitmap do
    begin
      Width := ScaleX(32);
      Height := ScaleY(32);
      Rect.Right := ScaleX(32);
      Rect.Bottom := ScaleY(32);
      Rect.Left := ScaleX(0);
      Rect.Top := ScaleY(0);
      Canvas.Brush.Color := WizardForm.Color;
      Canvas.FillRect(Rect);
      DrawIconEx(Canvas.Handle, 0, 0, HIcon, 32, 32, 0, 0, 3);
    end;
    Parent := WizardForm.SelectProgramGroupPage;
  end;
end;

Нет. Это ммб. В инно сделан setup_.exe »

мне кажется, это на Inno, а видео - это помоему сделано с помощью isFlash.dll от ExpeditoR'a.
Хотя я могу и ошибаться.

[BlackSelf]

A1EXXX, кинул в лс.
Serega, у меня есть исходники от игла. Сделано всё на ммб. С помощью isFlash, к огромному сожалению, такое сделать невозможно(