我有一个 Inno 脚本,可以在 wpInstalling 页面内添加图像,现在我正在尝试放置几张图像来制作幻灯片,但我无法编写所需的文本
这是我拥有的文本,我想制作幻灯片。这可能吗?我知道我必须添加 InnoCallback.dll,但我想获取该方法。
[Files]
Source: "C:\Program Files (x86)\Codejock Software\ISSkin\VCL\Par1.bmp"; DestDir: {tmp}; Flags: dontcopy
Source: "C:\Program Files (x86)\Codejock Software\ISSkin\VCL\Par2.bmp"; DestDir: {tmp}; Flags: dontcopy
Source: "C:\Program Files (x86)\Codejock Software\ISSkin\VCL\Par3.bmp"; DestDir: {tmp}; Flags: dontcopy
[Code]
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('Par1.bmp');
ExtractTemporaryFile('Par2.bmp');
ExtractTemporaryFile('Par3.bmp');
Result := True;
end;
procedure CurPageChanged(CurPageID: Integer);
var
BmpFile1, BmpFile2, BmpFile3: TBitmapImage;
begin
if CurPageID = wpInstalling then begin
BmpFile1:= TBitmapImage.Create(WizardForm);
BmpFile1.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Par1.bmp'));
BmpFile1.Width:= ScaleX(678);
BmpFile1.Height:= ScaleY(250);
BmpFile1.Stretch := True;
BmpFile1.Left := WizardForm.ProgressGauge.Left + ScaleX(0);
BmpFile1.Top := WizardForm.ProgressGauge.Top + ScaleY(25);
BmpFile1.Parent:= WizardForm.InstallingPage;
BmpFile2:= TBitmapImage.Create(WizardForm);
BmpFile2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Par2.bmp'));
BmpFile2.Width:= ScaleX(678);
BmpFile2.Height:= ScaleY(250);
BmpFile2.Stretch := True;
BmpFile2.Left := WizardForm.ProgressGauge.Left + ScaleX(0);
BmpFile2.Top := WizardForm.ProgressGauge.Top + ScaleY(25);
BmpFile2.Parent:= WizardForm.InstallingPage;
BmpFile3:= TBitmapImage.Create(WizardForm);
BmpFile3.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Par3.bmp'));
BmpFile3.Width:= ScaleX(678);
BmpFile3.Height:= ScaleY(250);
BmpFile3.Stretch := True;
BmpFile3.Left := WizardForm.ProgressGauge.Left + ScaleX(0);
BmpFile3.Top := WizardForm.ProgressGauge.Top + ScaleY(25);
BmpFile3.Parent:= WizardForm.InstallingPage;
end;
end;