Inno Setup

Про софт и железки.
Сообщение
Автор
Аватара пользователя
impulse666
Полковник
Полковник
Сообщения: 7405
Зарегистрирован: 08.12.2005
Откуда: Atman
Благодарил (а): 2340 раз
Поблагодарили: 590 раз

#16 Сообщение 20.02.2007, 13:11

postal_3
спасибо что следиш за ней!..(1-й пост обновил)
Изображение
Негласные Правила
1. Пропаганда лицензии запрещена.
2. На форуме режим многоступенчатых стандартов Ψ. То что можно одним, нельзя другим. Решается правящей партией
3. Ники членов правящей партии (impulse666, NiGHt-LEshiY, SHADOW) искажают только в случае необходимости получить БАН.

...воздержитесь от этого, изучите вот это.
Лучшая статья о моих взглядах. Настоятельно рекомендую.

Аватара пользователя
postal_3
Полковник
Полковник
Сообщения: 1092
Зарегистрирован: 22.04.2006
Благодарил (а): 461 раз
Поблагодарили: 734 раза
Контактная информация:

#17 Сообщение 25.02.2007, 03:03

impulse666
незачто :)
Вот архивчик с русификатором, и очень хорошей справкой и мануалом на Русском языкеСКАЧАТЬ
может пригодится кому-нить...
Взято с http://samlab.ws/
"В церковь не ходите, а свадьбы вкруг березы водите, как велят старинные обычаи..."
из наставлений С. Разина

South
Разработчик
Разработчик
Сообщения: 287
Зарегистрирован: 18.06.2006
Откуда: с работы
Поблагодарили: 2 раза

#18 Сообщение 25.02.2007, 11:13

А у меня 5.1.10 как-то криво работает, фоновый рисунок не разворчивается на весь экран. Пробовал компилить и запускать setup на 3 машинах. При этом в версиях 5.1.7 и 5.1.8 все нормально
все пропало

Аватара пользователя
postal_3
Полковник
Полковник
Сообщения: 1092
Зарегистрирован: 22.04.2006
Благодарил (а): 461 раз
Поблагодарили: 734 раза
Контактная информация:

#19 Сообщение 03.03.2007, 16:03

"В церковь не ходите, а свадьбы вкруг березы водите, как велят старинные обычаи..."
из наставлений С. Разина

Аватара пользователя
postal_3
Полковник
Полковник
Сообщения: 1092
Зарегистрирован: 22.04.2006
Благодарил (а): 461 раз
Поблагодарили: 734 раза
Контактная информация:

#20 Сообщение 27.04.2007, 04:05

Вышла новая версия Inno Setup 5.1.12 2007-04-25 :)
СКАЧАТЬ (1,369 KB):
US 1
US 2
Germany 1
Germany 2
Последний раз редактировалось postal_3 28.04.2007, 02:14, всего редактировалось 1 раз.
"В церковь не ходите, а свадьбы вкруг березы водите, как велят старинные обычаи..."
из наставлений С. Разина

South
Разработчик
Разработчик
Сообщения: 287
Зарегистрирован: 18.06.2006
Откуда: с работы
Поблагодарили: 2 раза

#21 Сообщение 27.04.2007, 10:17

postal_3
ты как всегда первый обновку узрел, сенкс

PS может немного не в тему, но у меня вот такая фоновая музыка играет в инсталяхе CSS (автор не я :) )

на ваших фтп-шках глянул, вроде нет такой (может плохо смотрел?), а композиция вроде неплохая

Аватара пользователя
postal_3
Полковник
Полковник
Сообщения: 1092
Зарегистрирован: 22.04.2006
Благодарил (а): 461 раз
Поблагодарили: 734 раза
Контактная информация:

#22 Сообщение 28.04.2007, 10:33

вот еще кое что:
Русская справка к версиям 5.0.xx:
Скачать
cкачать в .chm формате

Руководство по расширенным возможностям Inno Setup 5:
3 версия
4 версия
5 версия

Inno Setup Extensions Knowledge Base

Тут еще можно почитать об Inno Setup
"В церковь не ходите, а свадьбы вкруг березы водите, как велят старинные обычаи..."
из наставлений С. Разина

Аватара пользователя
postal_3
Полковник
Полковник
Сообщения: 1092
Зарегистрирован: 22.04.2006
Благодарил (а): 461 раз
Поблагодарили: 734 раза
Контактная информация:

#23 Сообщение 29.04.2007, 16:33

"В церковь не ходите, а свадьбы вкруг березы водите, как велят старинные обычаи..."
из наставлений С. Разина

Аватара пользователя
postal_3
Полковник
Полковник
Сообщения: 1092
Зарегистрирован: 22.04.2006
Благодарил (а): 461 раз
Поблагодарили: 734 раза
Контактная информация:

#24 Сообщение 16.10.2007, 03:38

"В церковь не ходите, а свадьбы вкруг березы водите, как велят старинные обычаи..."
из наставлений С. Разина

South
Разработчик
Разработчик
Сообщения: 287
Зарегистрирован: 18.06.2006
Откуда: с работы
Поблагодарили: 2 раза

#25 Сообщение 16.10.2007, 17:41

postal_3
thx, русская справка никогда не помешает
все пропало

Аватара пользователя
impulse666
Полковник
Полковник
Сообщения: 7405
Зарегистрирован: 08.12.2005
Откуда: Atman
Благодарил (а): 2340 раз
Поблагодарили: 590 раз

#26 Сообщение 16.10.2007, 17:53

да, СПС!

..помог бы еще кто мне паскалевский скрипт один в другой интегрировать...%)
Изображение
Негласные Правила
1. Пропаганда лицензии запрещена.
2. На форуме режим многоступенчатых стандартов Ψ. То что можно одним, нельзя другим. Решается правящей партией
3. Ники членов правящей партии (impulse666, NiGHt-LEshiY, SHADOW) искажают только в случае необходимости получить БАН.

...воздержитесь от этого, изучите вот это.
Лучшая статья о моих взглядах. Настоятельно рекомендую.

South
Разработчик
Разработчик
Сообщения: 287
Зарегистрирован: 18.06.2006
Откуда: с работы
Поблагодарили: 2 раза

#27 Сообщение 16.10.2007, 19:52

impulse666
пиши че надо, может помогу
все пропало

Аватара пользователя
impulse666
Полковник
Полковник
Сообщения: 7405
Зарегистрирован: 08.12.2005
Откуда: Atman
Благодарил (а): 2340 раз
Поблагодарили: 590 раз

#28 Сообщение 16.10.2007, 21:45

Вот в это:

Код: Выделить всё

function GetSystemMetrics(nIndex:Integer):Integer;
external '[email protected] stdcall';


procedure URLLabelOnClick(Sender: TObject);
var
     ErrorCode: Integer;
begin
     ShellExec('open', 'http://csmania.ru/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
var
  RadioButton1: TRadioButton;
  RadioButton2: TRadioButton;
  RadioButton3: TRadioButton;
procedure InitializeWizard();
var
 BackgroundBitmapImage: TBitmapImage;
 s:string;
 width, height:Integer;
 URLLabel: TNewStaticText;
begin
   RadioButton1 := TRadioButton.Create(WizardForm.FinishedPage);
  with RadioButton1 do
  begin
    Parent := WizardForm.FinishedHeadingLabel.Parent;
    Caption := 'Запуск Half-Life 2 Episode 2';
    Left := ScaleX(180);
    Top := ScaleY(155);
    Width := ScaleX(177);
    Height := ScaleY(17);
    TabOrder := 0;
  end;

  RadioButton2 := TRadioButton.Create(WizardForm.FinishedPage);
  with RadioButton2 do
  begin
    Parent := WizardForm.FinishedHeadingLabel.Parent;
    Caption := 'Запуск Team Fortress 2';
    Left := ScaleX(180);
    Top := ScaleY(175);
    Width := ScaleX(177);
    Height := ScaleY(17);
    TabOrder := 1;
  end;

  RadioButton3 := TRadioButton.Create(WizardForm.FinishedPage);
  with RadioButton3 do
  begin
    Parent := WizardForm.FinishedHeadingLabel.Parent;
    Caption := 'Запуск Portal';
    Left := ScaleX(180);
    Top := ScaleY(195);
    Width := ScaleX(177);
    Height := ScaleY(17);
    TabOrder := 2;
  end;

 WizardForm.Position:=poScreenCenter;
 MainForm.BORDERSTYLE:=bsNone;
 width:=GetSystemMetrics(0);
 height:=GetSystemMetrics(1);
 MainForm.Left := 0;
 MainForm.Top := 0;
 MainForm.Width:=width;
 MainForm.Height:=height;
 width:=MainForm.ClientWidth;
 height:=MainForm.ClientHeight;
 ExtractTemporaryFile('background.bmp');
 s:=ExpandConstant('{tmp}')+'\background.bmp';
 BackgroundBitmapImage := TBitmapImage.Create(MainForm);
 BackgroundBitmapImage.Bitmap.LoadFromFile(s);
 BackgroundBitmapImage.Align := alClient;
 BackgroundBitmapImage.Parent := MainForm;
 BackgroundBitmapImage.Stretch:=True;
 MainForm.Visible:=True;
     URLLabel := TNewStaticText.Create(WizardForm);
     URLLabel.Caption := '%)';
     URLLabel.Parent := WizardForm;
     URLLabel.Cursor := crHand;
     URLLabel.OnClick := @URLLabelOnClick;
     URLLabel.Font.Style := [fsUnderline];
     URLLabel.Top := ScaleY(331);
     URLLabel.Left := ScaleX(25);

end;
function NextButtonClick(CurPageID: Integer): Boolean;
var ResultCode: Integer;
begin
Result:=True;
if CurPageID=wpFinished then
begin
if RadioButton1.Checked then
Exec(ExpandConstant('{app}\RUN_EP2.exe'), '', '', SW_SHOW,ewNoWait, ResultCode)
else
if RadioButton2.Checked then
Exec(ExpandConstant('{app}\RUN_TF2.exe'), '', '', SW_SHOW,ewNoWait, ResultCode)
else
if RadioButton3.Checked then
Exec(ExpandConstant('{app}\RUN_PORTAL.exe'), '', '', SW_SHOW,ewNoWait, ResultCode)
end
end;
Это:

Код: Выделить всё

сonst
  BASS_SAMPLE_LOOP        = 4;   //повторение

type
  HSTREAM = DWORD;      //тип звукового потока

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;
external 'BASS_Init@files:BASS.dll stdcall delayload';

function BASS_StreamCreateFile(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD): HSTREAM;
external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';

function BASS_Start(): Boolean;
external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;
external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function  BASS_Stop(): Boolean;
external 'BASS_Stop@files:BASS.dll stdcall delayload';

function  BASS_Free(): Boolean;
external 'BASS_Free@files:BASS.dll stdcall delayload';

procedure InitializeWizard();
var
  Name1: string;
      i: Integer;
begin
   ExtractTemporaryFile('BASS.dll');
     ExtractTemporaryFile('01-OVERSEER-Doomsday.mp3');
  if BASS_Init(-1, 44100, 0, 0, 0) then
begin
  BASS_Start();
   Name1:=ExpandConstant('{tmp}\01-OVERSEER-Doomsday.mp3');
    i:=BASS_StreamCreateFile(FALSE, PChar(Name1), 0, 0, 4);
  if i <> 0 then
     begin
  BASS_ChannelPlay(i, True);
end;
end;
end; 
procedure DeInitializeSetup();
begin
BASS_Stop(); //нужно для остановки проигрывания
BASS_Free(); //нужно для быстрой выгрузки библиотеки вместе с муз. файлом
end;
жду помощи %)
Изображение
Негласные Правила
1. Пропаганда лицензии запрещена.
2. На форуме режим многоступенчатых стандартов Ψ. То что можно одним, нельзя другим. Решается правящей партией
3. Ники членов правящей партии (impulse666, NiGHt-LEshiY, SHADOW) искажают только в случае необходимости получить БАН.

...воздержитесь от этого, изучите вот это.
Лучшая статья о моих взглядах. Настоятельно рекомендую.

South
Разработчик
Разработчик
Сообщения: 287
Зарегистрирован: 18.06.2006
Откуда: с работы
Поблагодарили: 2 раза

#29 Сообщение 16.10.2007, 22:15

тебе это объединить надо?
сейчас попробую

я так понял, что bass.dll может проиграть поочереди несколько mp3-файлов? может поделишься ссылочкой на dll-ку? до сих пор пользовался dll, которая проигрывает только wav :( , а то самому в падлу такую писать.
все пропало

Аватара пользователя
impulse666
Полковник
Полковник
Сообщения: 7405
Зарегистрирован: 08.12.2005
Откуда: Atman
Благодарил (а): 2340 раз
Поблагодарили: 590 раз

#30 Сообщение 16.10.2007, 22:44

незнаю как насчет поочереди..а вот мп3 это да..за что его уважаю %)
http://www.zerowaitingtime.com/28878-download-bass.dll
держи.

добавлено спустя 1 минуту:
htuos писал(а):сих пор пользовался dll, которая проигрывает только wav
да у меня тоже раньше было через виндовскую winmm.dll но вав большой слишком получаеться %)
Изображение
Негласные Правила
1. Пропаганда лицензии запрещена.
2. На форуме режим многоступенчатых стандартов Ψ. То что можно одним, нельзя другим. Решается правящей партией
3. Ники членов правящей партии (impulse666, NiGHt-LEshiY, SHADOW) искажают только в случае необходимости получить БАН.

...воздержитесь от этого, изучите вот это.
Лучшая статья о моих взглядах. Настоятельно рекомендую.

Ответить