Имя пользователя:
Пароль:
 

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

Пользователь


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

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


Мне предложили сделать свои custom иформацию с помощью этого кода:

читать дальше »
ExtracttemporaryFile('Changelog.rtf')
LoadStringFromFile(ExpandConstant('{tmp}\Changelog.rtf'),S);
{ Creates custom wizard page }
ISCustomPage1 := CreateCustomPage(wpInfoBefore,'Изменения', 'Подробнее');

{ ISCustomPage1 }
with ISCustomPage1.Surface do
begin
Name := 'ISCustomPage1';
end;
{ RichEditViewer1 }
RichEditViewer1 := TRichEditViewer.Create(WizardForm);
with RichEditViewer1 do
begin
Name := 'RichEditViewer1';
Parent := ISCustomPage1.Surface;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(417);
Height := ScaleY(233);
RTFText :=S;
end;

//;adv_readme_2
ExtracttemporaryFile('ReleaseNotes.rtf')
LoadStringFromFile(ExpandConstant('{tmp}\ReleaseNotes.rtf'),V);
{ Creates custom wizard page }
ISCustomPage2 := CreateCustomPage(wpInfoBefore,'Oб игре', 'Информация');
{ ISCustomPage2 }
with ISCustomPage2.Surface do
begin
Name := 'ISCustomPage2';
end;
{ RichEditViewer2 }
RichEditViewer2 := TRichEditViewer.Create(WizardForm);
with RichEditViewer2 do
begin
Name := 'RichEditViewer2';
Parent := ISCustomPage2.Surface;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(417);
Height := ScaleY(233);
RTFText :=V;
end;


Он работает. Но есть два вопроса:
1. Текст можно менять (двигать\удалять) прямо в инсталляторе, чего естественно не хочется. Как запретить любое изменение, разрешив только просмотр?
2. Есть ли расширенная версия, где можно подключать что-нибудь посовершеннее, типа doc с 2003 офиса/ docx 2007?

Если есть решение ещё лучше, с нетерпением жду совета

Последний раз редактировалось leshcat, 12-07-2011 в 17:11.


Отправлено: 01:02, 12-07-2011 | #2315