[valyok666]

ntrx,

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

#define RePack "Особенности RePack:'#13' --- Ничего не вырезано/ неперекадировано[Lossless]'#13' --- Таблетка[RELOADED]'#13' --- Автор Репака DarKk"

[code]
var
NewButton1: TNewButton;

procedure NewButton1Click(Sender: TObject); forward;

procedure AboutButton;
begin
NewButton1 := TNewButton.Create(WizardForm);
with NewButton1 do
begin
Name := 'NewButton1';
Parent := WizardForm;
Left := ScaleX(16);
Top := ScaleY(327);
Width := ScaleX(81);
Height := ScaleY(17);
Caption := 'RePacK';
OnClick := @NewButton1Click;
end;

NewButton1.TabOrder := 5;
end;

procedure NewButton1Click(Sender: TObject);
begin
MsgBox('{#RePaCK}', mbInformation, mb_Ok);
end;

procedure InitializeWizard();
begin
AboutButton;
end;

[El Sanchez]

оказалось все довольно просто... »

Функция CurrentFilename вызывается в Check, BeforeInstall или AfterInstall, т.е. для каждой строки секции Files нужно в данном случае дописывать ...; BeforeInstall: ProgressExt(), что утомительно прописывать, если строк много, да и Label нужно создавать. Можно поступить проще:

Код:

procedure ProgressExt(Sender: TObject);
begin
    with WizardForm.FilenameLabel do Caption := ExtractFileName(Caption);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
    if CurPageID = wpInstalling then
    with TTimer.Create(WizardForm) do
    begin
        Interval := 10;
        OnTimer := @ProgressExt;
    end;
end;

[insombia]

Создаю свой скрипт с ноля:Подскажите как сделать чтобы не было белого фона а просто написан текст


P.S.Скрипт только в ЛС даю

[Alloc]

El Sanchez, спасибо! действительно так намного удобнее

insombia, дело в том, что у TNewStaticText, нет функции как Transparent, придется вместо него создать TLabel. Спрятать

Код:

WelcomeLabel1.Hide;
WelcomeLabel2.Hide;

и создать вместо них:

Код:

WelcomeLabel1:=TLabel.Create(WizardForm);
  with WelcomeLabel1 do
  begin
    Left:= WizardForm.WelcomeLabel1.Left;
    Top := WizardForm.WelcomeLabel1.Top;
    Width := WizardForm.WelcomeLabel1.Width;
    Height := WizardForm.WelcomeLabel1.Height;
    AutoSize := False;
    WordWrap := True;
    Font.Color := clBlack;
    Font.Style := [fsBold];
    Font.Name:='MS Sans Serif';
    Font.Size := 13;
    Transparent := True;
    Parent := WizardForm.WelcomePage;
  end;
  
  WelcomeLabel2:=TLabel.Create(WizardForm);
  with WelcomeLabel2 do
  begin
    Left:= WizardForm.WelcomeLabel2.Left;
    Top := WizardForm.WelcomeLabel2.Top;
    Width := WizardForm.WelcomeLabel2.Width;
    Height := WizardForm.WelcomeLabel2.Height;
    AutoSize := False;
    WordWrap := True;
    Font.Color := clBlack;
    Font.Name:='MS Sans Serif';
    Font.Size := 8;
    Transparent := True;
    Parent := WizardForm.WelcomePage;
  end;

[valyok666]

Alloc, там было намного проще с использованием модуля TransparentStatic

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

#include "TransparentStatic.iss"

[Files] Source: CallbackCtrl.dll; Flags: dontcopy

[code]
procedure InitializeWizard();
begin
StaticSetTransparent;
end;

procedure DeinitializeSetup;
begin
StaticSetDefault;
end;

[Alloc]

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

[insombia]

http://i32.fastpic.ru/big/2011/0918/...2af6f70a71.png
Как вместо галочек вставить чекбоксы?

[serhio]

Народ ну подскажите пожалуйста кто шарит как максимум можно сжать игру?
Есть FreeArc, precomp, rep, srep15, tornado04.
Чем и в какой последовательности надо работать, и что прописывать в батнике?

Заранее Огромное спасибо!!!!

[insombia]

serhioсмотря какая игра например дюк нюкем жмется отлично как и Worms Reloaded дюк с 6 гб до 2х с лишним жмется в вормс с 2х гб до 200 мб с лишним

[serhio]

insombia, Да не важно какая! Просто скинул репак чужой, а на такой же размер не могу сжать....
А так вообще Red Orchestra 2.Heroes Of Stalingrad.(1C-СофтКлаб).(2011).Repack. 4,67Гб
А мой получается 5,96Гб! Время в расспаковке меня не интересует, долго ли или быстро. Меня интересует как по максимуму сжать можно.......