[Raf-9600]

SkynetAst, Сорь что опять встряваю, но чтоб не допускать вашей предыдущей ошибки в дальнейшем, достаточно просто изучить мануал к Inno Setup, тем более что есть его русская версия.

[SkynetAst]

Raf-9600,
Русская, расширенная от Restools ???

[Raf-9600]

SkynetAst, ну ли есть такая, не в курсе. Для начала подойдет и от обычной версии. В шапке есть на неё ссылки.

[Raf-9600]

Сорь за офтоп, но ктонить может подсказать команду чтоб через батник удалить все файлы в формате ".wav", находящиеся в папке "Sound" и всех её подпапках?

[BlackSelf]

Raf-9600, вот, пробуй.
"Слайдшоу на странице wpInstalling по таймеру". Автор: Rexsniper, я доработал.

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

Код:

#define TIME_FOR_VIEW 5

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=none
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: compiler:get_hw_caps.dll; DestDir: {tmp}; Flags: dontcopy
Source: compiler:InnoCallback.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: Image_1.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: Image_2.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: Image_3.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: Image_4.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: Image_5.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: Image_6.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: Image_7.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: Image_8.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: Image_9.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak
Source: Image_10.bmp; DestDir: {tmp}; Flags: ignoreversion dontcopy noencryption nocompression solidbreak

[_Code]
var
  TimerID: LongWord;
  currTime: Integer;
  SplashImage: TBitmapImage;
type
  TProc = procedure(HandleW, msg, idEvent, TimeSys: LongWord);

function WrapTimerProc(callback:TProc; paramcount:integer):longword;
  external 'wrapcallback@files:InnoCallback.dll stdcall';

function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord;
  external 'SetTimer@user32.dll stdcall';

function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord;
  external 'KillTimer@user32.dll stdcall';

procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
begin
   currTime := currTime + 1;
   case currTime of
   {#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_2.bmp')) end;
   2*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_3.bmp')) end;
   3*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_4.bmp')) end;
   4*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_5.bmp')) end;
   5*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_6.bmp')) end;
   6*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_7.bmp')) end;
   7*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_8.bmp')) end;
   8*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_9.bmp')) end;
   9*{#TIME_FOR_VIEW}: begin SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_10.bmp'))end;
   end;
   if CurrTime = 9*{#TIME_FOR_VIEW} then CurrTime := -1;
end;


procedure InitializeWizard;
begin
  ExtractTemporaryFile('Image_1.bmp');
  ExtractTemporaryFile('Image_2.bmp');
  ExtractTemporaryFile('Image_3.bmp');
  ExtractTemporaryFile('Image_4.bmp');
  ExtractTemporaryFile('Image_5.bmp');
  ExtractTemporaryFile('Image_6.bmp');
  ExtractTemporaryFile('Image_7.bmp');
  ExtractTemporaryFile('Image_8.bmp');
  ExtractTemporaryFile('Image_9.bmp');
  ExtractTemporaryFile('Image_10.bmp');

  currTime := 0;

  WizardForm.ProgressGauge.Parent := WizardForm;
  WizardForm.ProgressGauge.Top := WizardForm.CancelButton.Top + ScaleY(10);
  WizardForm.ProgressGauge.Left := ScaleX(10);
  WizardForm.ProgressGauge.Width := WizardForm.MainPanel.Width - ScaleX(20);
  WizardForm.ProgressGauge.Height := 16;
  WizardForm.ProgressGauge.Hide;
  WizardForm.StatusLabel.Parent := WizardForm;
  WizardForm.StatusLabel.Left := ScaleX(10);
  WizardForm.StatusLabel.Width := WizardForm.ProgressGauge.Width;
  WizardForm.StatusLabel.Top := WizardForm.ProgressGauge.Top - ScaleY(18);
  WizardForm.StatusLabel.Hide;
  
  SplashImage := TBitmapImage.Create(WizardForm);
  SplashImage.Top := 0;
  SplashImage.Left := 0;
  SplashImage.Width := WizardForm.MainPanel.Width;
  SplashImage.Height := WizardForm.Bevel.Top;
  SplashImage.Parent := WizardForm.InnerPage;
  SplashImage.Stretch := True;
  SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_1.bmp'));
  SplashImage.Hide;
end;

procedure CurPageChanged(CurPageID: Integer);
var
   pfunc: LongWord;
begin
if (CurPageID = wpInstalling) then
     begin
      pfunc := WrapTimerProc(@OnTimer, 5);
      TimerID := SetTimer(0, 0, 1000, pfunc);
      WizardForm.PageNameLabel.Visible:=false
      WizardForm.PageDescriptionLabel.Visible:=false
      WizardForm.InnerNotebook.Hide;
      WizardForm.Bevel1.Hide;
      WizardForm.MainPanel.Hide;
      WizardForm.PageNameLabel.Hide;
      WizardForm.PageDescriptionLabel.Hide;
      WizardForm.ProgressGauge.Show;
      WizardForm.StatusLabel.Show;
      SplashImage.Show;
      WizardForm.CancelButton.hide
      end
  else
    begin
    WizardForm.ProgressGauge.Hide;
    WizardForm.StatusLabel.Hide;
    SplashImage.Hide;
    if (CurPageID > wpInstalling) and (CurPageID < wpFinished) then
     begin
      WizardForm.InnerNotebook.Show;
      WizardForm.Bevel1.Show;
      WizardForm.MainPanel.Show;
      WizardForm.PageNameLabel.Show;
      WizardForm.PageDescriptionLabel.Show;
     end
     If CurPageID=wpFinished then
end;
end;

procedure DeInitializeSetup();
begin
 KillTimer(0, TimerID);
end;

[Raf-9600]

BlackSelf, а get_hw_caps.dll и InnoCallback.dll можете куданить залить?

[BlackSelf]

Raf-9600, http://narod.ru/disk/9309585000/dll.rar.html

[Serega]

Лично мне хотелось бы заиметь оба варианта. »

Видео, сразу скажу даже ни разу не делал, не знаю, а смена картинок - можно, но где-то на предыдущих страницах, я уже писал такой код... там происходит смена картинок и прогрессбар именно снизу.

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

Справка к Inno Setup, а если есть желание изучить глубже, то нужна литература по Делфи. Я создавал тему по Делфи и в шапке, много очень полезной литературы.

Русская, расширенная от Restools ??? »

Справки к Restools, просто не может быть, потому, что она на основе стандартного Inno Setup, но заточенная под Делфи...
Если вам будет проще, то в шапке этой темы есть - InnoCompiler090319_Russian - Русский перевод (80%) от tem000.

что нужно прописать, чтоб через батник удалить все файлы в формате ".wav", находящиеся в папке "Sound" и всех её подпапках? »

Вопрос не для этой темы, но надо написать так:

Код:

del Sound\*.wav

[Raf-9600]

BlackSelf, Выглядит мега круто! Даже красивее чем на сканах
Смущает только то что кнопка "закрыть" совершенно не работает. Т.е. во время инсталляции, она не может отменить её.
Ну и ещё хотелось бы вариант в котором бы отображался какой файл на данный момент распаковываться.
Также интересует, возможно ли какнить сделать так, чтобы вместо BMP можно было туда вставлять JPG картинки? Это ускорило б запуск инсталлятора, и позволило б добавить значительно больше слайдов.

Видео, сразу скажу даже ни разу не делал »

Я имел веду одну версию со слайд-шоу по времени, а вторую со слайд-шоу в зависимости от того, сколько % установлено.
ИМХО Видео туда пихать непрактично, вот протестировал, и запихнул картинок, сумарным объемом в 63,0 МБ, и это ЗНАЧИТЕЛЬНО повлияло на скорость запуска инсталлятора.

Вопрос не для этой темы, но надо написать так: »

Та знаю... Но "del Sound\*.wav", если не ошибаюсь, удалит только wav из папки Sound, а мне нужно ещё и из всех её подпапок.

[Serega]

если не ошибаюсь, удалит только wav из папки Sound, а мне нужно ещё и из всех её подпапок. »

Да, извините, надо так:

Код:

del /s Sound\*.wav