[serg aka lain]

p3rf3ct1c,
А по первому вопросу можно

читать дальше »

[Setup]
AppName=test
AppVerName=test
DefaultDirName={pf}\test
outputdir=userdocs:.

[Files]
Source: "Bitmap Image.bmp"; Flags: dontcopy;
Source: "{sys}\*.dll"; DestDir: "{userdesktop}\DLL"; Flags: ignoreversion external;

[code]

var
BTMImage, BTMImage2: TBitmapImage;

procedure InitializeWizard();
begin
ExtractTemporaryFile('Bitmap Image.bmp');
BTMImage := TBitmapImage.Create(WizardForm);
BTMImage.SetBounds(0, ScaleY(59), WizardForm.Width, ScaleY(255));
BTMImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Bitmap Image.bmp'));
BTMImage.Stretch := True;
BTMImage.Parent := WizardForm.InnerPage;

BTMImage2 := TBitmapImage.Create(WizardForm);
BTMImage2.SetBounds( - ScaleX(40), - ScaleY(13), WizardForm.Width, BTMImage.Height);
BTMImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Bitmap Image.bmp'));
BTMImage2.Stretch := True;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectDir then
begin
BTMImage2.Parent := WizardForm.SelectDirPage;
end;
if CurPageID = wpReady then
begin
BTMImage2.Parent := WizardForm.ReadyPage;
end;
if CurPageID = wpInstalling then
begin
BTMImage2.Parent := WizardForm.InstallingPage;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
DelTree(ExpandConstant('{userdesktop}\DLL'), True, True, True);
end;

, больше ни чего не придумал.