[alert30]

и чё это за чуш »

Не чушь, этот архиватор сильнее жмет.

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

Потому что там было много видео и музыки в папке этой игры.

[Spell1999]

несопрю она висит вся на музыке и видео. но сёравно фриарк нежмёт так.

[Batistas]

Spell1999, скорее всего удалили ненужное. Вот еще для сжатия - http://www.youtube.com/watch?v=CQcJJ_FyUnE

[Spell1999]

Batistas, я тоже так думал сначала. но потом скачал установил она тянет почти на 25 гигов как лицензия, там ничё не вырезано. ща гляну видос попробую.

[El Sanchez]

Поставил ansi-версию, ошибки все равно вылетают. »

Batistas, попробуйте вместо объекта Microsoft.XMLDOM подставить одно из значений: MSXML2.DOMDocument, MSXML2.DOMDocument.3.0, MSXML2.DOMDocument.4.0, MSXML2.DOMDocument.6.0.
Если будет ругань, то оформите ReadDCPlusPlus вот так:

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

Код:

function ReadDCPlusPlus(Filename, Node, Default: String): String;
var
    objXMLDoc: Variant;
begin
    Result := Default;
    if not FileExists(Filename) then Exit;
    try
        objXMLDoc := CreateOleObject('Microsoft.XMLDOM'); //или другой объект
        objXMLDoc.load(Filename);
        objXMLDoc.async := False;
        if objXMLDoc.parseError.errorCode <> 0 then Exit;
        Result := objXMLDoc.selectSingleNode(Node).text;
    except
        ShowExceptionMessage;
        Exit;
    end;
end;

[Johny777]

Spell1999,
по вопросам сжатия читай тут http://forum.ru-board.com/topic.cgi?...=30239&start=0
тут http://forum.ru-board.com/topic.cgi?forum=5&topic=32025
большинство (даже почти все) из так называемых "репаков" сжимаются на основе средств сжатия и преобразования
файлов поддерживаемых библиотекой IsDone (распаковка)
качай его отсюда http://176.9.1.113:52080/showthread.php?t=34&page=49
читай к нему справку и пользуйся, если хочешь (справка должна идти в комплекте, то бишь в архиве)
эта тема предназначена для написания/помощи в написании кода на основе языка Object Pascal
используемом в инно и всего того что стоит в справке по инно - стандартные средства

[Ivan_009]

Покажите пример наложение текстур на кнопки с двум состояниям искал везде 4 или 3 состояния...

[Spell1999]

Johny777, спс до меня допёрла кажись)))

[Johny777]

Ivan_009,
текстурирование кнопок
2 состояния - обычное и при нажатии
код:

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

Код:

#define ButtonWidth "80" ; ширина кнопки
#define ButtonHeight "25" ; высота

#define ButtonFontColor "clWhite" ;цвет шрифта кнопок

#define TextureWidth "160" ;ширина картинки-текстуры
#define TextureHeight "25" ;высота


[Setup]
AppName=Test
AppVerName=Test
DefaultDirName={pf}\Test
OutputDir=.

;Изображение размером 160х25 (можете поменять в купе с настройками в препроцессоре, в шапке)
;левая половина - обычное состояние, правая - при нажатии
BitmapResource=button:button.bmp


[code]
var
  ButtonPanel: array [0..4] of TPanel;
  ButtonImage: array [0..4] of TBitmapImage;
  ButtonLabel: array [0..4] of TLabel;

procedure ButtonLabelClick(Sender: TObject);
var
  Button: TButton;
begin
  with WizardForm do
  begin
    case TLabel(Sender).Tag of
      0: Button := BackButton;
      1: Button := NextButton;
      2: Button := CancelButton;
      3: Button := DirBrowseButton;
      4: Button := GroupBrowseButton;
    else exit
    end;
  end;
  Button.OnClick(Button);
end;

procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ButtonImage[TLabel(Sender).Tag].Left:= -ScaleX({#ButtonWidth});
end;

procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ButtonImage[TLabel(Sender).Tag].Left := ScaleX(0);
end;

procedure LoadButtonImage(AButton: TButton; AButtonIndex: integer);
var
  Image: TBitmapImage;
  Panel: TPanel;
  Labl: TLabel;
begin
  Panel:=TPanel.Create(WizardForm)
  with Panel do
  begin
    SetBounds(AButton.Left,AButton.Top,AButton.Width,AButton.Height);
    Tag := AButtonIndex;
    Parent := AButton.Parent;
  end;

  ButtonPanel[AButtonIndex] := Panel;

  Image:=TBitmapImage.Create(WizardForm)
  with Image do
  begin
    Width := ScaleX({#TextureWidth});
    Height := ScaleY({#TextureHeight});
    Enabled := False;
    Bitmap.LoadFromResourceName(HInstance, '_IS_BUTTON');
    Parent := Panel;
  end;

  ButtonImage[AButtonIndex]:=Image;

  with TLabel.Create(WizardForm) do
  begin
    Tag := AButtonIndex;
    Parent := Panel;
    Width := Panel.Width;
    Height := Panel.Height;
    Transparent := True;
    OnClick := @ButtonLabelClick;
    OnDblClick := @ButtonLabelClick;
    OnMouseDown := @ButtonLabelMouseDown;
    OnMouseUp := @ButtonLabelMouseUp;
  end;

  Labl:=TLabel.Create(WizardForm)
  with Labl do
  begin
    Autosize := True;
    Alignment := taCenter;
    Tag := AButtonIndex;
    Transparent := True;            
    Font.Color := {#ButtonFontColor};
    Caption := AButton.Caption;
    OnClick := @ButtonLabelClick;
    OnMouseDown := @ButtonLabelMouseDown;
    OnMouseUp := @ButtonLabelMouseUp;
    OnDblClick := @ButtonLabelClick;
    Parent := Panel;
  end;
  
  ButtonLabel[AButtonIndex]:= Labl;
end;

procedure UpdateButton(AButton: TButton;AButtonIndex: integer);
begin
  ButtonPanel[AButtonIndex].Visible := AButton.Visible;
  with ButtonLabel[AButtonIndex] do
  begin
    Caption := AButton.Caption;
    Left := ButtonPanel[AButtonIndex].Width div 2 - ButtonLabel[AButtonIndex].Width div 2;
    Top := ButtonPanel[AButtonIndex].Height div 2 - ButtonLabel[AButtonIndex].Height div 2;
  end;
end;


procedure InitializeWizard();
begin
  with WizardForm do
  begin
    BackButton.Width:={#ButtonWidth};
    BackButton.Height:={#ButtonHeight};
    NextButton.Width:={#ButtonWidth};
    NextButton.Height:={#ButtonHeight};
    CancelButton.Width:={#ButtonWidth};
    CancelButton.Height:={#ButtonHeight};
    DirBrowseButton.Width:={#ButtonWidth};
    DirBrowseButton.Height:={#ButtonHeight};
    GroupBrowseButton.Width:={#ButtonWidth};
    GroupBrowseButton.Height:={#ButtonHeight};
    
    LoadButtonImage(BackButton,0);
    LoadButtonImage(NextButton,1);
    LoadButtonImage(CancelButton,2);
    LoadButtonImage(DirBrowseButton,3);
    LoadButtonImage(GroupBrowseButton,4);
  end;
end;

procedure CurPageChanged(CurPageID: Integer);  
begin
  UpdateButton(WizardForm.BackButton,0);
  UpdateButton(WizardForm.NextButton,1);
  UpdateButton(WizardForm.CancelButton,2);
  UpdateButton(WizardForm.DirBrowseButton,3);
  UpdateButton(WizardForm.GroupBrowseButton,4);
end;

текстура (положить рядом со скриптом) :

[Ivan_009]

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