[svensoft]

Подскажите пожалуйста, как вот в этом коде можно поставить условие ?

Код:

procedure ButtonLabelClick(Sender: TObject);
var
Button: TButton;
begin

 //вот здесь как поставить условие, что данную музыку проиграть если нажата кнопка bidNext
 mciSendString('stop '+ExpandConstant('{tmp}\sound_Button1.wav'), 'NULL', 0, 0); 
 mciSendString('play '+ExpandConstant('{tmp}\sound_Button1.wav'), 'NULL', 0, 0); 
 //конец если 

ButtonImage[TLabel(Sender).Tag].Left:=0
case TLabel(Sender).Tag of
bidBack: Button:=WizardForm.BackButton
bidNext: Button:=WizardForm.NextButton
bidCancel: Button:=WizardForm.CancelButton
bidDirBrowse: Button:=WizardForm.DirBrowseButton
bidGroupBrowse: Button:=WizardForm.GroupBrowseButton
else
Exit
end
Button.OnClick(Button)
end;

Все, уже не надо , уже сделал..))

[YURSHAT]

YURSHAT, скажи пожалуйста какой параметр нужно указать при загрузке скина, чтобы рамка скина была снаружи ?.. »

У тебя WizardForm.Width:=ScaleX(790);
WizardForm.Height:=ScaleY(533); а правильно так

WizardForm.ClientWidth:=ScaleX(790);
WizardForm.ClientHeight:=ScaleY(533);

[serg aka lain]

А можно ли как-то сделать чтоб на этом фоне тоже появлялась маленькая картинка? »

Можно, надо воспользоваться CreateCustomForm, и на эту форму загрузить "маленькую картинку".

[МИШАНЧИК]

serg aka lain, спасибо!
Не могли бы Вы пример набросать? Пожалуйста.

[serg aka lain]

Не могли бы Вы пример набросать? »

Как-то так

Код:

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

[Files]
Source: compiler:WizModernSmallImage.bmp; Flags: dontcopy;

[code]
var
  DirectX: TCheckBox;

procedure InitializeWizard();
begin
  DirectX := TCheckBox.Create(WizardForm);
  with DirectX do
  begin
    Top := WizardForm.InnerNotebook.Height div 2;
    Width := ScaleX(150);
    Caption := 'Установить DirectX';
    Parent := WizardForm.SelectDirPage;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  //ResultCode: Integer;
  MyForm: TSetupForm;
  MyPanel: TPanel;
begin
  if CurStep = ssPostInstall then
  begin
    if DirectX.Checked then
    begin
      MyForm := CreateCustomForm();
      ExtractTemporaryFile('WizModernSmallImage.bmp');
      with MyForm do
      begin
        BorderStyle := bsNone;
        ClientWidth := ScaleX(380);
        ClientHeight := ScaleY(59);
        Width := ClientWidth;
        Height := ClientHeight;
        Position := poScreenCenter;

        MyPanel := TPanel.Create(MyForm);
        with MyPanel do
        begin
          BorderStyle := bsNone;
          Width := MyForm.Width;
          Height := MyForm.Height;
          Caption := 'Установка DirectX, пожалуйста ждите ...';
          Alignment := taCenter;
          Parent := MyForm;
        end;

        with TBitmapImage.Create(MyForm) do
        begin
          SetBounds(ScaleX(2), ScaleY(2), ScaleX(55), ScaleY(55));
          Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizModernSmallImage.bmp'));
          Parent := MyPanel;
        end;

        Show();
        //Exec(ExpandConstant('{src}\Redist\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}\Redist\DirectX'), SW_SHOW, ewWaitUntilTerminated, ResultCode);
        MsgBox('Закрыть дополнительную форму', mbInformation, MB_OK);
        Free();
      end;
    end;
  end;
end;

[yamaha]

Как сделать чтобы все данные при установке игры с оригинала внесённый в реестр при установки через inno тоже так внеслись?

[user_123]

Как сделать чтобы все данные при установке игры с оригинала внесённый в реестр при установки через inno тоже так внеслись? »

Узнать, какие записи в реестр вносит инсталлятор игры, можно сделав "снимок" реестра до и после установки, для этого есть спец. программы.
Смотрите также в справке Inno про секцию [registry].

[Tukash]

всем привет, кому не жалко поделитесь ПОДРОБНЫМ примером того, как сделать что-бы доп ПО устанавливалось после распаковки Фриакр архивов!!

[Sotonisto]

Наро, как внести изменения в ini файл после установки игры?
У меня есть скрипт, но он создает ini файл и вписует в нем строку, но это подходило раньше, сейчас же у меня
вот такоее:

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

Код:

[Emulator]
CacheEnabled = False
Language = Russian
Logging=False
SteamDll=bin\steam\Steam.dll
SteamClient = True
SteamUser = L4D2

[steamclient]
PlayerName = Имя
Logging=False
ClientDll=bin\steam\steamclient.dll

Мне необходимо заменить только Имя.
Как это реализовать?

[yamaha]

Написано если не указывать папку то будет по умолчанию в Мои рисунки, как только не пробовал и с С и без указывать путь всё равно просто чёрный фон.Как указать правильно?

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

RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'fold', ExpandConstant('{src} \..\Slides')) else

Как поменять размер слайда?Поставить какой хочешь.

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

ShowWindow(BackgroundForm.Handle, sw_Show)