[Uragan66]

Sotonisto, так уже пробовал

Скрытый текст

[code]

Код:

procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean);external 'iswin7_add_glass@files:iswin7.dll stdcall';
procedure iswin7_add_button(Handle:HWND);external 'iswin7_add_button@files:iswin7.dll stdcall';
procedure iswin7_free;external 'iswin7_free@files:iswin7.dll stdcall';

// функция проверки того, сработает iswin7, или нет
function GlassEnabled:Boolean;external 'GlassEnabled@files:dwmEnabled.dll stdcall';


// Сделал отдельную процедуру создания лого,чтоб удобно было - вызываем и указываем размеры
procedure LogoImage(ImgLeft,ImgTop,ImgWidth,ImgHeight:Integer);
var BtnPanel:TPanel;
begin
ExtractTemporaryFile('gnom.bmp');
//-----------start----------LOGO-----------//
     BtnPanel:=TPanel.Create(WizardForm)
     BtnPanel.SetBounds(ImgLeft,ImgTop,ImgWidth,ImgHeight);
     BtnPanel.Cursor:=crHand
     BtnPanel.ParentColor := True;
     //BtnPanel.OnClick:=@logoOnClick
     BtnPanel.Parent:=WizardForm



 with TBitmapImage.Create(WizardForm) do
  begin
    Parent := BtnPanel;
    SetBounds(0,0,BtnPanel.Width,BtnPanel.Height);
    // Собственно, применение
    if GlassEnabled then BackColor := BtnPanel.Color else BackColor := clNone;
    
    ReplaceColor := clBlack; // это обязательно
    ReplaceWithColor := clNone;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\gnom.bmp'));
  end;
end;

procedure LogoOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://www.google.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard16();
begin
    if GlassEnabled then WizardForm.WelcomeLabel2.Caption:='Включено' else  WizardForm.WelcomeLabel2.Caption:='Выключено';
  // Необходимо добавлять каждую кнопку расположенную на стекле
  // до инициализации стекла для того что бы не было дыр ))
  iswin7_add_button(WizardForm.BackButton.Handle);
  iswin7_add_button(WizardForm.NextButton.Handle);
  iswin7_add_button(WizardForm.CancelButton.Handle);
  // Параметр True не трогать он для htuos ))
  iswin7_add_glass(WizardForm.Handle, 0, 0, 0, 47, True);

// Вызываем лого, и говорим ему координаты.
 LogoImage(ScaleX(618),ScaleY(0),ScaleX(69),ScaleY(50));
end;

procedure DeinitializeSetup11();
begin
  iswin7_free;
end;

, не работает, может не в том месте кода вставляю ?