[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;