Скрипты Inno Setup. Помощь и советы [часть 3]

valyok666 · Конфигурация компьютера

да ну joner соединяет но потом приходиться потом переставлять всё местами(легче модулями пользоваться ИМХО

R.i.m.s.k.y. · Конфигурация компьютера

Цитата Neutron:

т.е получается достаточно экспортировать ветку реестра, поменять значения на свои и засунуть в скрипт? И всего то? »

и отрезать лишнее

45king · Отправлено: **02:41, 01-07-2011** | #**2134**

как на задний фон картинку поставить чтобы текст был поверх картинки как тут
http://radikal.ru/F/i044.radikal.ru/...d854e.jpg.html

TRMK · Отправлено: **03:33, 01-07-2011** | #**2135**

Господа, неужели никто так и не подскажет, возможен ли вариант, чтобы установщик можно было запустить всего несколько раз, а потом он выдавал сообщение, что он устал) и нужен другой? Ну или на крайний случай ограниченное время его службы, после чего он переставал бы работать или самоуничтожался. Если это нереально, просто скажите, что нет.

Gnom_aka_Lexander · Отправлено: **09:36, 01-07-2011** | #**2136**

TRMK, Впринцыпе можно, - делать, например запись в реестр, которая быдет говорить, инсталлу, сколько раз он уже был запущен и по достижении определенного количества запусков запретить дальнейшие запуски. чуть позже накидаю пример. но смысл - кто поумнее, будут искать эту запись и тупо удалять эту запись. Лаборатории дрВеба и Касперского пользуются похожим способом.

TRMK · Отправлено: **13:55, 01-07-2011** | #**2137**

Лександер, ок, жду. От тех кто поумнее и так не спастись.)

Rikill · Отправлено: **14:53, 01-07-2011** | #**2138**

Лександер, почему тебе не отправить пм?
45king, делаешь текст прозрачным, я ранее об этом писал, потом расширяешь боковую картинку

Код:

procedure InitializeWizard(); 
 begin 
 ExtractTemporaryFile('картинка.bmp'); //картинка
 WizardForm.WizardBitmapImage.Height:= ScaleX(260);// высота
 WizardForm.WizardBitmapImage.Width:= ScaleX(260); //ширина картинки
 end;

45king · Отправлено: **16:33, 01-07-2011** | #**2139**

Rikill, я чет не нашел код текст прозрачным можишь показать где писал

Rikill · Отправлено: **16:46, 01-07-2011** | #**2140**

Цитата Rikill:

No4noylis, читай форумы, гугли в конце концов, короче:
TNewStaticText не имеет свойство прозрачности , а статик текст во всём инсталляторе используется (по дефолту) , но есть альтернатива
Код:

Код:

procedure initializewizard();
var
label: TLabel;
begin
 Label := TLabel.Create(WizardForm);
 with Label do begin
 AutoSize:=False; //авторазмер
 SetBounds(ScaleX(100), ScaleY(219), ScaleX(200), ScaleY(17)); //размеры
 OnClick:= @LabelClick; //что делает текст при нажатии, если не нужно удалить
 Cursor:= CrHand; //курсор при наведении, если не нужно удалить
 Transparent:=True; //а вот и главное, прозрачность
 Font.Name:= 'Comic Sans MS' //шрифт если не нужно удалить
 Font.Size:= 8;//размер текста если не нужно удалить
 Font.Color:=$00FFFF; //цвет текста если не нужно удалить
 Font.Style:=[fsItalic]; //стиль текста italic это курсив fsbold это жирный и тд. если не нужно удалить
 Caption := 'наш текст';
 Parent := WizardForm; //где находится
 end;
end;

»