Leserg, В этой версии ISVideo.dll, процедура/функция скрытия и показа видео нет, просто не подумал про это! Но если вы хотите скрыть видео, то создайте TPanel и задайте Handle панели в DXVideoInit(Панель.Handle,...), и потом в NextButtonClick
сделайте скрытие панели, то есть панель.hide;, а показать панель.show;
P.S.: DXVideoClose(WizardForm.Handle); - Закрывает окно без ошибок
P.S.S: xvidcore.dll и xvidvfw.dll - Они нужны для ISVideoInit, для DXVideoInit - они не нужны
Мини пример:
[SOURCE="iss"]Var
Panel1: TPanel;
Pnl: Integer;
procedure InitializeWizard;
begin
ExtractTemporaryFile('Video.avi');
Panel1:= TPanel.Create(WizardForm);
Panel1.SetBounds(0,0,497,313);
Panel1.Parent:= WizardForm;
Panel1.Show;
Pnl:= DXVideoInit(Panel1.Handle, ExpandConstant('{tmp}\Video.avi'), ScaleX(0), ScaleY(0), ScaleX(497), ScaleY(313));
DXVideoVolume(Pnl, 100);
DXVideoSpeed(Pnl, 0, True);
DXVideoSetPos(Pnl, 0);
end;
function NextButtonClick(CurPage: Integer): Boolean;
begin
Result:=True;
if CurPage = wpWelcome then
begin
#ifdef DXVideo
DXVideoPause(Pnl);
Panel1.Hide;
#endif
Result:=True;
end;
end;
[/SOURCE]
сделайте скрытие панели, то есть панель.hide;, а показать панель.show;
P.S.: DXVideoClose(WizardForm.Handle); - Закрывает окно без ошибок
P.S.S: xvidcore.dll и xvidvfw.dll - Они нужны для ISVideoInit, для DXVideoInit - они не нужны
Мини пример:
[SOURCE="iss"]Var
Panel1: TPanel;
Pnl: Integer;
procedure InitializeWizard;
begin
ExtractTemporaryFile('Video.avi');
Panel1:= TPanel.Create(WizardForm);
Panel1.SetBounds(0,0,497,313);
Panel1.Parent:= WizardForm;
Panel1.Show;
Pnl:= DXVideoInit(Panel1.Handle, ExpandConstant('{tmp}\Video.avi'), ScaleX(0), ScaleY(0), ScaleX(497), ScaleY(313));
DXVideoVolume(Pnl, 100);
DXVideoSpeed(Pnl, 0, True);
DXVideoSetPos(Pnl, 0);
end;
function NextButtonClick(CurPage: Integer): Boolean;
begin
Result:=True;
if CurPage = wpWelcome then
begin
#ifdef DXVideo
DXVideoPause(Pnl);
Panel1.Hide;
#endif
Result:=True;
end;
end;
[/SOURCE]
Последнее редактирование: