[Serega]

Подскажите как испаравить. »

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

Код:

; Автор kombat 77 http://forum.ru-board.com/profile.cgi?action=show&member=kombat 77
[Setup]
AppName=Test
AppVerName=Test v 1.0
DefaultDirName={pf}\Test
OutputDir=userdocs:Test.
Uninstallable=False

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Icons]
Name: "{userdesktop}\notepad"; Filename: "{win}\notepad.exe";

[Files]
Source: FileName1; Flags: dontcopy
Source: FileName2; Flags: dontcopy

[Code]
function GetModuleHandle(lpModuleName: LongInt): LongInt;
 external 'GetModuleHandleA@kernel32.dll stdcall';

function ExtractIcon(hInst: LongInt; lpszExeFileName: PChar; nIconIndex: LongInt): LongInt;
 external 'ExtractIconA@shell32.dll stdcall';

function DrawIconEx(hdc: LongInt; xLeft, yTop: Integer; hIcon: LongInt; cxWidth, cyWidth: Integer; istepIfAniCur, hbrFlickerFreeDraw, diFlags: LongInt): LongInt;
 external 'DrawIconEx@user32.dll stdcall';

procedure InitializeWizard();
var
  Rect: TRect;
  HIcon: LongInt;
begin
  ExtractTemporaryFile('FileName1');
  HIcon := ExtractIcon(GetModuleHandle(0), ExpandConstant('{tmp}\FileName1'), 0);
  WizardForm.SelectDirBitmapImage.Hide;
  with TBitmapImage.Create(WizardForm) do
  begin
    SetBounds(WizardForm.SelectDirBitmapImage.Left, WizardForm.SelectDirBitmapImage.Top, ScaleX(32), ScaleY(32));
    with Bitmap do
    begin
      Width := ScaleX(32);
      Height := ScaleY(32);
      Rect.Right := ScaleX(32);
      Rect.Bottom := ScaleY(32);
      Rect.Left := ScaleX(0);
      Rect.Top := ScaleY(0);
      Canvas.Brush.Color := WizardForm.Color;
      Canvas.FillRect(Rect);
      DrawIconEx(Canvas.Handle, 0, 0, HIcon, 32, 32, 0, 0, 3);
    end;
    Parent := WizardForm.SelectDirPage;
  end;

  ExtractTemporaryFile('FileName2');
  HIcon := ExtractIcon(GetModuleHandle(0), ExpandConstant('{tmp}\FileName2'), 0);
  WizardForm.SelectGroupBitmapImage.Hide;
  with TBitmapImage.Create(WizardForm) do
  begin
    SetBounds(WizardForm.SelectGroupBitmapImage.Left, WizardForm.SelectGroupBitmapImage.Top, ScaleX(32), ScaleY(32));
    with Bitmap do
    begin
      Width := ScaleX(32);
      Height := ScaleY(32);
      Rect.Right := ScaleX(32);
      Rect.Bottom := ScaleY(32);
      Rect.Left := ScaleX(0);
      Rect.Top := ScaleY(0);
      Canvas.Brush.Color := WizardForm.Color;
      Canvas.FillRect(Rect);
      DrawIconEx(Canvas.Handle, 0, 0, HIcon, 32, 32, 0, 0, 3);
    end;
    Parent := WizardForm.SelectProgramGroupPage;
  end;
end;

Нет. Это ммб. В инно сделан setup_.exe »

мне кажется, это на Inno, а видео - это помоему сделано с помощью isFlash.dll от ExpeditoR'a.
Хотя я могу и ошибаться.