Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для kindza811

Новый участник


Сообщения: 19
Благодарности: 1

Профиль | Отправить PM | Цитировать


лого не отображается,хотя сделал всё по скрипту
[code][Setup]
AppName=Logo
AppVerName=Logo
DefaultDirName=C:\Logo

[Files]
Source: Button.bmp; Flags: dontcopy

Код: Выделить весь код
 
procedure LogoOnClick(Sender: TObject); 
var ResCode: Integer; 
begin 
  ShellExec('', 'http://www.forum.ru-board.com', '' , '', SW_SHOW, ewNoWait, ResCode) 
end; 
 
procedure InitializeWizard(); 
var 
  BtnPanel: TPanel; 
  BtnImage: TBitmapImage; 
begin 
  ExtractTemporaryFile('Button.bmp') 
     
  BtnPanel:=TPanel.Create(WizardForm) 
  with BtnPanel do begin 
    Left:=20 
    Top:=325 
    Width:=132 
    Height:=27 
    Cursor:=crHand 
    OnClick:=@logoOnClick 
    Parent:=WizardForm 
  end 
  BtnImage:=TBitmapImage.Create(WizardForm) 
  with BtnImage do begin 
    AutoSize:=True; 
    Enabled:=False; 
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Button.bmp') 
    Parent:=BtnPanel 
  end 
end;

-------
R.G.Torrent-Games


Отправлено: 17:14, 25-08-2011 | #2853