[Code]
//关键代码静默安装
procedure InitializeWizard();
begin
//不显示边框,这样就能达到不会闪两下了
WizardForm.BorderStyle:=bsNone;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
//因为安装过程界面隐藏不了,所以设置窗口宽高为0
WizardForm.ClientWidth := ScaleX(0)
WizardForm.ClientHeight := ScaleY(0)
if CurPageID = wpWelcome then
WizardForm.NextButton.OnClick(WizardForm);
if CurPageID >= wpInstalling then
WizardForm.Visible := False
else
WizardForm.Visible := True;
// WizardForm.NextButton.OnClick(WizardForm);
end;
function ShouldSkipPage(PageID: Integer): Boolean;
begin
result := true;
end;
原文地址:https://www.cnblogs.com/yuzhould/p/11844566.html
时间: 2024-10-20 13:00:06