Изменение кода Inno Setup для отображения видеофона с относительным путем и закрытием при щелчке

Delphi , Программа и Интерфейс , Инсталяция

Изменение кода Inno Setup для отображения видеофона с относительным путем и закрытием при щелчке

При создании установщика с помощью Inno Setup часто возникает необходимость отображать видеофайл в качестве фона установщика. Однако, по умолчанию, путь к видеофайлу задается абсолютным, что может привести к проблемам при распространении установщика на других компьютерах. В этой статье мы рассмотрим, как изменить код Inno Setup для отображения видеофона с относительным путем и закрытия при щелчке.

Изменение пути к видеофайлу на относительный

Для отображения видеофона с относительным путем, вам нужно изменить путь к видеофайлу в коде Inno Setup. Вместо абсолютного пути, например, d:\Video.avi, используйте одну из следующих констант:

• {tmp}: для временной папки текущего пользователя. Например, ExpandConstant('{tmp}\Video.avi').
• {src}: для папки с исходными файлами установщика. Например, ExpandConstant('{src}\Video.avi').

Также, вам нужно извлечь временный файл перед отображением видеофона. Добавьте следующий код в раздел [Files] своего скрипта Inno Setup:

[Files]
Source: "Video.avi"; DestDir: "{tmp}"; Flags: deleteafterinstall

Затем, измените путь к видеофайлу в коде отображения видеофона на относительный путь, как показано ниже:

if DSInitializeVideoFile(ExpandConstant('{tmp}\Video.avi'), VideoForm.Handle, Width, Height, @OnMediaPlayerEvent)
then
begin
  VideoForm.ClientWidth := Width;
  VideoForm.ClientHeight := Height;
  VideoForm.ShowModal;
end;

Закрытие видеофона при щелчке

Для закрытия видеофона при щелчке по форме, добавьте обработчик события OnClick для формы VideoForm и закройте форму в этом обработчике:

procedure OnVideoFormClick(Sender: TObject);
begin
  VideoForm.Close;
end;

Также, не забудьте добавить обработчик события OnClick для формы VideoForm в методе InitializeWizard:

procedure InitializeWizard;
begin
  VideoForm := CreateCustomForm;
  ...
  VideoForm.OnClick := @OnVideoFormClick;
  ...
end;

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

Пример кода

Ниже приведен полный пример кода Inno Setup с измененным путем к видеофайлу и закрытием при щелчке:

[Setup]
AppName=Media Player Project
AppVersion=1.0
DefaultDirName={pf}\Media Player Project

[Files]
Source: "MediaPlayer.dll"; Flags: dontcopy
Source: "Video.avi"; DestDir: "{tmp}"; Flags: deleteafterinstall

[Code]
const
  EC_COMPLETE = $01;

type
  TDirectShowEventProc = procedure(EventCode, Param1, Param2: Integer);

function DSPlayMediaFile: Boolean;
  external 'DSPlayMediaFile@files:mediaplayer.dll stdcall';
function DSStopMediaPlay: Boolean;
  external 'DSStopMediaPlay@files:mediaplayer.dll stdcall';
function DSInitializeVideoFile(FileName: WideString; WindowHandle: HWND;
  var Width, Height: Integer; CallbackProc: TDirectShowEventProc): Boolean;
  external 'DSInitializeVideoFile@files:mediaplayer.dll stdcall';

var
  VideoForm: TSetupForm;

procedure OnMediaPlayerEvent(EventCode, Param1, Param2: Integer);
begin
  if EventCode = EC_COMPLETE then
    VideoForm.Close;
end;

procedure OnVideoFormShow(Sender: TObject);
begin
  DSPlayMediaFile;
end;

procedure OnVideoFormClose(Sender: TObject; var Action: TCloseAction);
begin
  DSStopMediaPlay;
end;

procedure OnVideoFormClick(Sender: TObject);
begin
  VideoForm.Close;
end;

procedure InitializeWizard;
begin
  VideoForm := CreateCustomForm;
  VideoForm.Caption := 'Popup Video Window';
  VideoForm.BorderStyle := bsNone;
  VideoForm.FormStyle := fsStayOnTop;
  VideoForm.Position := poScreenCenter;
  VideoForm.OnShow := @OnVideoFormShow;
  VideoForm.OnClose := @OnVideoFormClose;
  VideoForm.OnClick := @OnVideoFormClick;

  if DSInitializeVideoFile(ExpandConstant('{tmp}\Video.avi'), VideoForm.Handle, Width, Height, @OnMediaPlayerEvent)
  then
  begin
    VideoForm.ClientWidth := Width;
    VideoForm.ClientHeight := Height;
    VideoForm.ShowModal;
  end;
end;

procedure DeinitializeSetup;
begin
  DSStopMediaPlay;
end;

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

Создано по материалам из источника по ссылке.

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Инсталяция ::