[pritoreanic]

habib2302 »

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

Код:

procedure InitializeUninstallProgressForm();
begin
  with TBitmapImage.Create(nil) do
begin
   Parent := UninstallProgressForm;
   Bitmap.LoadFromResourceName(HInstance, '_IS_logo');
   Stretch:= true;
   SetBounds(ScaleX(20), ScaleY(315), ScaleX(154), ScaleY(42));
  end;
end;

begin
 FileCopy(ExpandConstant('{app}\WizardSmallImage.bmp'), ExpandConstant('{app}\WizardSmallImage.bmp'), False);
with UninstallProgressForm.WizardSmallBitmapImage do
  begin
   Bitmap.LoadFromFile(ExpandConstant('{app}\WizardSmallImage.bmp'));
  end;
end.