» Inno Setup (создание инсталяционных пакетов)

CTpaHNICK

Цитата:

Привет всем! Как сделать прозрачным эту панель? (Пример ниже)

ОООООО... что я вижу. Не ушто скачал мой установщик для тестирования с кринкелс и решил сделать как я. Поверь тут тебе врятли ответят. Потому что я сам допирал (додумывался) как это сделать. Поверь это геморойно. Код не дам. Это не Descctrl.dll, если ты думал все просто то ошибся.

Здравствуйте!

Как в инно-сетап-скрипте правильно прописать следующие строки:

[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security]
"VBAWarnings" =dword:00000002
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Documents\TrustRecords]
"file:///D:/HOME/SerJo/Documents/Database8.accdb" =hex:d1,02,be,9d,f0,33,cb,01,00,a0,11,87,21,00,00,00,78,c2,45,01,ff,ff,ff,7f
"file:///d:/HOME/SerJo/Desktop/Database8.accdb" =hex:d1,02,be,9d,f0,33,cb,01,00,a0,11,87,21,00,00,00,7f,c2,45,01,ff,ff,ff,7f
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations]
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations\Location2]
"Path" = "C: \\Program Files \\Microsoft Office \\Office14 \\ACCWIZ \\"
"Description" = "Layout Access by default: databases of masters"

Спасибо всем!

AleSasha

Цитата:

Здравствуйте!

Как в инно-сетап-скрипте правильно прописать следующие строки:

[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security]
"VBAWarnings" =dword:00000002
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Documents\TrustRecords]
"file:///D:/HOME/SerJo/Documents/Database8.accdb" =hex:d1,02,be,9d,f0,33,cb,01,00,a0,11,87,21,00,00,00,78,c2,45,01,ff,ff,ff,7f
"file:///d:/HOME/SerJo/Desktop/Database8.accdb" =hex:d1,02,be,9d,f0,33,cb,01,00,a0,11,87,21,00,00,00,7f,c2,45,01,ff,ff,ff,7f
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations]
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted Locations\Location2]
"Path" = "C: \\Program Files \\Microsoft Office \\Office14 \\ACCWIZ \\"
"Description" = "Layout Access by default: databases of masters"

Спасибо всем!

Converter - конвертирует reg-файлы в формат *.iss (формат скриптов Inno Setup).

http://rusfolder.com/16817015

люди подскажите.как сделать растяжение wizard small image на деинсталляторе с сокрытием лейбелов?

Добавлено:
как сделать,чтобы кликабельное лого отображалось в деинсталляторе
вот скрипт на отображение лого в инсталляторе


Код:
[Files]
Source: logo.bmp; Flags: dontcopy
[code]
procedure InitializeWizard;
//Лого
var BtnImage: TBitmapImage;
begin
RedesignWizardForm;
ExtractTemporaryFile('logo.bmp');
BtnImage:= TBitmapImage.Create(WizardForm);
BtnImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
BtnImage.SetBounds(20, 315, 154, 42); {первые 2 параметра - координаты левогого верхнего угла по горизонтали и вертикали, дальше ширина и высота, до которой растянуть}
BtnImage.Parent:= WizardForm;
BtnImage.Stretch:= True;

Ghbdtn

мне кто нибудь ответит на мой вопрос

как сделать растяжение wizard small image на деинсталляторе с сокрытием лейбелов?

как сделать,чтобы кликабельное лого отображалось в деинсталляторе
вот скрипт на отображение лого в инсталляторе

[code]
[Files]
Source: logo.bmp; Flags: dontcopy
[code]
procedure InitializeWizard;
//Лого
var BtnImage: TBitmapImage;
begin
RedesignWizardForm;
ExtractTemporaryFile('logo.bmp');
BtnImage:= TBitmapImage.Create(WizardForm);
BtnImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
BtnImage.SetBounds(20, 315, 154, 42); {первые 2 параметра - координаты левогого верхнего угла по горизонтали и вертикали, дальше ширина и высота, до которой растянуть}
BtnImage.Parent:= WizardForm;
BtnImage.Stretch:= True;
[/code]

Помогите, плиз, с кодом. Нужно проверить, если версия файла {sys}\file.dll ниже 6.0.3888.0 , то нужно разрешить запуск

Код: [Run]
Filename: sеtup.exe

Такой вопрос:
Вот тут http://forum.ru-board.com/topic.cgi?forum=5&topic=30413&start=2274&limit=1&m=1#1

есть код для бэкапа файлов. Так вот, я так понял, что в указанном по ссылке примере
делается бекап файлов из одной указанной папки и все они бекапятся в другую указанную папку.
А как сделать чтобы бекапились 2 файла из одной папки и один из другой?

В частности у меня есть file1 и file2, лежащие в папке {app}\base
и файл file3, лежащий в папке {app}\base\strings
Мне нужно чтобы эти три файла бекапились в одну папку и при удалении возвращались на место. (Это будет русификатор)
Как модифицировать указанный по ссылке код, чтобы выполнить то, что мне надо?

Просто в секции
MyFiles:=
перечислены просто файлы. но есть и секция
BackDir:=ExpandConstant('{app}'+'\Backup\');

и
MyDir:=ExpandConstant('{app}'+'\Game\Bin\');

Т.е. я так понимаю, что вместо файлов пути к ним не пропишешь... Потому что предусмотрено взятие и возвращение всех файлов из 1 единственной папки, а мне нужно из разных...
Или я не так понимаю?

boss911

Цитата:

Нужно проверить, если версия файла {sys}\file.dll ниже 6.0.3888.0 , то нужно разрешить запуск

Один из [more=вариантов]

Код:
[Run]
Filename: sеtup.exe; Check: IsRunMyFile

[Code]
function CompareVersion(const FileName, VerString: string): Integer;
{ Данная функция сравнивает версию файла FileName с указанной версией в VerString.
Возвращаемые значения:
-2: если не смогли прочитать версию файла;
-1: FileName > VerString;
0: FileName = VerString;
1: FileName < VerString; }
var
Version: string;
n, count: Integer;
VerMS, VerLS: Cardinal;
fMS1, fLS1, fMS2, fLS2: Extended;
begin
Result := -2;
if FileExists(FileName) and GetVersionNumbers(FileName, VerMS, VerLS) then
begin
fMS1 := StrToFloat(IntToStr(VerMS shr 16) + '.' + IntToStr(VerMS and $FFFF));
fLS1 := StrToFloat(IntToStr(VerLS shr 16) + '.' + IntToStr(VerLS and $FFFF));
n := 1;
count := 0;
Version := VerString;
while Version <> '' do
begin
while (n < Length(Version)) and (Version[n] <> '.') do
n := n + 1;
case count of
1:begin
fMS2 := StrToFloat(Copy(Version, 1, n-1));
Delete(Version, 1, n);
n := 1;
end;
3:begin
fLS2 := StrToFloat(Copy(Version, 1, n));
Delete(Version, 1, n);
end;
end;
count := count + 1;
if n < Length(Version) then
n := n + 1;
end;
case fMS1 = fMS2 of
True:
case fLS1 = fLS2 of
True : Result := 0;
False:
case fLS1 > fLS2 of
True : Result := -1;
False: Result := 1;
end;
end;
False:
case fMS1 > fMS2 of
True : Result := -1;
False: Result := 1;
end;
end;
end;
end;

function IsRunMyFile: Boolean;
begin
Result := CompareVersion(ExpandConstant('{sys}\file.dll'), '6.0.3888.0') = 1;
end;

Serega0675

Ребят, подскажите, как убрать верхнюю картинку в CustomPage?
У меня создается 2 страницы
Options2:=CreateCustomPage(wpLicense, 'Первая страница опций установки', '');
Options:=CreateCustomPage(wpLicense, 'Вторая страница опций установки', '');
в первой странице мне нужно убрать верхнюю картинку, во второй она должна остаться.



Добавлено:
Вопрос снимается, сделал.

Народ, не совсем по теме, сори. Кто-то знает, где раздобыть русский перевод для беты ISStudio. В инете проскакивают скрины с русским переводом для беты, а вот качнуть нет где. От релиза перевод не катит.

boss911 работа над этим русификатором идет в во взаимодействии с автором. ссылку на ресурс, на котором работают локализаторы я давал в приватном общении. тут не дам, дабы не сочли за рекламу.

Всем доброго времени суток. У меня снова вопросы по перекраске:
1) Можно ли сменить цвет рамке окошка вверху (там где заголовок написан)
2) Можно ли белому полю (см. скрин) сменить цвет?

Всем привет! Скачал версию: Inno ISCmplr Setup 5.5.1 build 120726,
теперь проблема с файлом Default.isl

Кто нашёл решение этой проблемы, пожалуйста помогите.

Добавлено:
Проблема решена. Выложил нужные файлы, качайте кому надо.

Распакуйте в папку с компилятором с заменой файлов.

Ссылка

[more] Здравствуйте господа, скопилось несколько вопросов, пробывал разобраться сам, но не выходит.
1) Как поменять цвет Bevel- ей ?
2) В оригинальном скрипте ISUtils меня интересуют две строчки (они получаются после компиляции, в окне мастера):

Код:
Warning: Line 33, Column 68: [Hint] Variable 'CORECOUNT' never used
Warning: Line 33, Column 68: [Hint] Variable 'OPSYSTEMBIT' never used

Apelsinn
[more]1) Цвет bevel'а поменять нельзя. Можно нарисовать линию через canvas или же создать label с нижними пробелами (будет почти похоже на bevel и можно будет изменить цвет).
2) В этой строчке ничего страшного. Компилятор говорит вам, что объявляенные переменные нигде не используются. Если они вам не нужны, можете удалить 'CORECOUNT' и 'OPSYSTEMBIT' из var.
3) Вот так:
Код: WizardForm.ComponentsList.ItemFontStyle[0] := [fsItalic];

InnoCompiler121216(7zip).zip
Китайсы наконец-то ожили

Mailchik Спасибо, очень помогли.

Господа, подскажите как прописать свою новую, созданную страницу в procedure CurPageChanged(CurPageID: Integer); К примеру название страницы: ISCustomPage1. В procedure InitializeWizard страница будет как:
Код: Parent := ISCustomPage1.Surface;

Apelsinn,
[more=Как-то так]
Код: [Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[_code]
var
ISCustomPage1: TWizardPage;

procedure InitializeWizard();
begin
ISCustomPage1:= CreateCustomPage(wpWelcome, '', '');
end;

Procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
ISCustomPage1.ID: WizardForm.PageNameLabel.Caption:= 'Страница для примера';
end;
end;

Цитата:

А как её в Курпейдже прописать?

ISCustomPage1.ID

Gnom3, а чего ты решил мой ответ продублировать?

nik1967
когда писал, твоего еще не было у меня, извиняюсь

nik1967
Gnom3
Спасибо большое

Всем привет!

Y меня проблема...

Не могy перенести текст на новy строкy

см. скриншот:
http://i53.fastpic.ru/big/2012/1219/e3/8bb813294796a4c33eb7583a3d65d6e3.png


Код: Caption:='!ВНИМАНИЕ!\n %n \% Клиент распакуется:';

для переноса строки в коде - +chr(13)+chr(10)+ - в то место, где нужен перенос.

Gnom3
спасибо.

Gnom3
А не проще #13#10?

R3Pa4eK
пока не знаю. писать может и короче, но мне еще никто не разъяснил, что использовать корректнее. наитивно более правильно именно chr(int) использовать, вот пусть гуру скажут.