静默安装网上找到了
[code]
procedure InitializeWizard();
begin
WizardForm.BorderStyle:=bsNone;
end;
function ShouldSkipPage(PageID: Integer): Boolean;
begin
Result := True
end;
procedure CurPageChanged(CurPageID: Integer);
var
indexpageid3:Integer;
begin
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;
end;
