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

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

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


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

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


Помогите приделать к этому скрипту

http://rghost.ru/4468505

вот это

Код: Выделить весь код
[Files] 
Source: C:\BitmapImage2.bmp; DestDir: {tmp}; Flags: dontcopy 

Code] 
procedure InitializeWizard(); 
var b:string; 
begin 
ExtractTemporaryFile('BitmapImage2.bmp') 
b:=ExpandConstant('{tmp}\BitmapImage2.bmp') 
with WizardForm do 
begin 
WizardBitmapImage.Width:=WizardForm.ClientWidth; 
WelcomeLabel1.Visible:=False; 
WelcomeLabel2.Visible:=False; 
WizardBitmapImage2.Bitmap.LoadFromFile(b); 
WizardBitmapImage2.Width:=WizardForm.ClientWidth; 
FinishedLabel.Visible:=False; 
FinishedHeadingLabel.Visible:=False; 
end; 
end;

чтоб получилось так:


Последний раз редактировалось my-94, 21-02-2011 в 11:25.


Отправлено: 11:06, 21-02-2011 | #826