Inno Setup
- impulse666
- Полковник
- Сообщения: 7405
- Зарегистрирован: 08.12.2005
- Откуда: Atman
- Благодарил (а): 2340 раз
- Поблагодарили: 590 раз
postal_3
спасибо что следиш за ней!..(1-й пост обновил)
спасибо что следиш за ней!..(1-й пост обновил)
- postal_3
- Полковник
- Сообщения: 1092
- Зарегистрирован: 22.04.2006
- Благодарил (а): 461 раз
- Поблагодарили: 734 раза
- Контактная информация:
impulse666
незачто :)
Вот архивчик с русификатором, и очень хорошей справкой и мануалом на Русском языкеСКАЧАТЬ
может пригодится кому-нить...
Взято с http://samlab.ws/
незачто :)
Вот архивчик с русификатором, и очень хорошей справкой и мануалом на Русском языкеСКАЧАТЬ
может пригодится кому-нить...
Взято с http://samlab.ws/
"В церковь не ходите, а свадьбы вкруг березы водите, как велят старинные обычаи..."
из наставлений С. Разина
из наставлений С. Разина
А у меня 5.1.10 как-то криво работает, фоновый рисунок не разворчивается на весь экран. Пробовал компилить и запускать setup на 3 машинах. При этом в версиях 5.1.7 и 5.1.8 все нормально
все пропало
postal_3
ты как всегда первый обновку узрел, сенкс
PS может немного не в тему, но у меня вот такая фоновая музыка играет в инсталяхе CSS (автор не я :) )
на ваших фтп-шках глянул, вроде нет такой (может плохо смотрел?), а композиция вроде неплохая
ты как всегда первый обновку узрел, сенкс
PS может немного не в тему, но у меня вот такая фоновая музыка играет в инсталяхе CSS (автор не я :) )
на ваших фтп-шках глянул, вроде нет такой (может плохо смотрел?), а композиция вроде неплохая
- postal_3
- Полковник
- Сообщения: 1092
- Зарегистрирован: 22.04.2006
- Благодарил (а): 461 раз
- Поблагодарили: 734 раза
- Контактная информация:
вот еще кое что:
Русская справка к версиям 5.0.xx:
Скачать
cкачать в .chm формате
Руководство по расширенным возможностям Inno Setup 5:
3 версия
4 версия
5 версия
Inno Setup Extensions Knowledge Base
Тут еще можно почитать об Inno Setup
Русская справка к версиям 5.0.xx:
Скачать
cкачать в .chm формате
Руководство по расширенным возможностям Inno Setup 5:
3 версия
4 версия
5 версия
Inno Setup Extensions Knowledge Base
Тут еще можно почитать об Inno Setup
"В церковь не ходите, а свадьбы вкруг березы водите, как велят старинные обычаи..."
из наставлений С. Разина
из наставлений С. Разина
postal_3
thx, русская справка никогда не помешает
thx, русская справка никогда не помешает
все пропало
- impulse666
- Полковник
- Сообщения: 7405
- Зарегистрирован: 08.12.2005
- Откуда: Atman
- Благодарил (а): 2340 раз
- Поблагодарили: 590 раз
да, СПС!
..помог бы еще кто мне паскалевский скрипт один в другой интегрировать...%)
..помог бы еще кто мне паскалевский скрипт один в другой интегрировать...%)
impulse666
пиши че надо, может помогу
пиши че надо, может помогу
все пропало
- impulse666
- Полковник
- Сообщения: 7405
- Зарегистрирован: 08.12.2005
- Откуда: Atman
- Благодарил (а): 2340 раз
- Поблагодарили: 590 раз
Вот в это:
Это:
жду помощи %)
Код: Выделить всё
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;
тебе это объединить надо?
сейчас попробую
я так понял, что bass.dll может проиграть поочереди несколько mp3-файлов? может поделишься ссылочкой на dll-ку? до сих пор пользовался dll, которая проигрывает только wav :( , а то самому в падлу такую писать.
сейчас попробую
я так понял, что bass.dll может проиграть поочереди несколько mp3-файлов? может поделишься ссылочкой на dll-ку? до сих пор пользовался dll, которая проигрывает только wav :( , а то самому в падлу такую писать.
все пропало
- impulse666
- Полковник
- Сообщения: 7405
- Зарегистрирован: 08.12.2005
- Откуда: Atman
- Благодарил (а): 2340 раз
- Поблагодарили: 590 раз
незнаю как насчет поочереди..а вот мп3 это да..за что его уважаю %)
http://www.zerowaitingtime.com/28878-download-bass.dll
держи.
добавлено спустя 1 минуту:
http://www.zerowaitingtime.com/28878-download-bass.dll
держи.
добавлено спустя 1 минуту:
да у меня тоже раньше было через виндовскую winmm.dll но вав большой слишком получаеться %)htuos писал(а):сих пор пользовался dll, которая проигрывает только wav