[nik1967]

Почему НЕ компилируется этот скрипт, что здесь не так? »

Я же писал, что не проверял

Код:

[Setup]
AppId={{85D6A3ED-1BE1-42DC-9CBA-CDD181AA79A3}
AppName=My Program
AppVersion=1.5
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
AllowNoIcons=yes
ShowLanguageDialog=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: english; MessagesFile: compiler:Default.isl
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[CustomMessages]
english.DelMsg=This program or its other version has already been previously installed.%nDo you want to remove it first?
english.ErrorRem=Failure to remove.
english.ErrorRem2=Probably the uninstaller has been moved, deleted or renamed.

russian.DelMsg=Эта программа или другая её версия уже была ранее установлена.%nВы хотите предварительно удалить её?
russian.ErrorRem=Ошибка удаления.
russian.ErrorRem2=Вероятно, деинсталлятор был перемещён, удалён или переименован.

[Files]
Source: "C:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1

[Run]
Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,My Program}"; Flags: nowait postinstall skipifsilent

[Icons]
Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"
Name: "{group}\{cm:ProgramOnTheWeb,My Program}"; Filename: "http://www.example.com/"
Name: "{group}\{cm:UninstallProgram,My Program}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\My Program"; Filename: "{app}\MyProg.exe"; Tasks: quicklaunchicon

[_Code]
function InitializeSetup(): Boolean;
var
  ResultCode: Integer;
  ResultStr:string;
begin
Result:=True;
begin
  If RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{85D6A3ED-1BE1-42DC-9CBA-CDD181AA79A3}_is1', 'UninstallString', ResultStr)
then
 begin
  If ResultStr<>''
then
 begin
  ResultStr:=RemoveQuotes(ResultStr);
  if MsgBox(ExpandConstant('{cm:DelMsg}'), mbInformation, MB_YESNO) = idYes
then
  if not Exec(ResultStr, '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode)
then
  MsgBox(ExpandConstant('{cm:ErrorRem} ') + #13#13 + SysErrorMessage(ResultCode) + '.' + #13#13 + ExpandConstant('{cm:ErrorRem2}'), mbError, MB_OK);
end;
end;
end;
end;

[Akella2007]

Подскажите, как написать скрипт, для включения файлов в инсталлятор.

Суть такова.
В разных папках лежит много файлов.
Структура папок такова
\папка\346\
\папка\347\
\папка\348\
\папка\....\
\папка\362\

в каждой папке с номером лежит разное количество файлов вот с такими именами:
347-0001.sql
347-0002.sql
347-0003.sql

....
349-0001.sql
349-0002.sql
...
...
...
362-0001.sql
362-0002.sql
362-0003.sql
362-0004.sql
и т.д.

все эти файлы нужно "зашить" в инсталлятор. Это SQL-скрипты для обновления базы на клиентской стороне.
Количество папок может быть разное. Для одного клиента с 346 по 362, а для другого с 350 по 362. В зависимости от версии установленной программы.

В итоге все эти файлы будут при установке у клиента скопированы в одну папку, т.к. имена файлов разные, то проблем нет в этом плане.

Так вот, как мне скриптом собрать эти sql файлы и зашить в инсталлятор?

Сейчас сделано не очень красиво и много рутины:

Код:

#define verTo "347"
...
...
[Files]
Source: ..\..\Kvartal21\Update\{#verTo}\{#verTo}-0001.sql; DestDir: {userdocs}\Kvartal Pro\SQL
Source: ..\..\Kvartal21\Update\{#verTo}\{#verTo}-0002.sql; DestDir: {userdocs}\Kvartal Pro\SQL
Source: ..\..\Kvartal21\Update\{#verTo}\{#verTo}-0003.sql; DestDir: {userdocs}\Kvartal Pro\SQL
Source: ..\..\Kvartal21\Update\{#verTo}\{#verTo}-0004.sql; DestDir: {userdocs}\Kvartal Pro\SQL

и так я меняю для каждой папки #define verTo "347"
и потом смотрю какие файлы нужно раскомментировать или закоментировать.
А если папок около 10-15, то на это уходит много времени и приходится создавать отдельный инсталлятор для каждой папки, а хотелось бы один для всех.


Заранее благодарен

[R.i.m.s.k.y.]

Akella2007, ... э э э ...

Код:

#define verTo "347"
...
...
[Files]
Source: ..\..\Kvartal21\Update\{#verTo}\{#verTo}*.sql; DestDir: {userdocs}\Kvartal Pro\SQL; Flags: ignoreversion recursesubdirs createallsubdirs uninsrestartdelete overwritereadonly restartreplace
...

Инно понимает "маски" файлов, обрати внимание на запись в папке источника ...{#verTo}*.sql...

[Gnom_aka_Lexander]

R.i.m.s.k.y., выдели звездочку, а то и я-то не сразу понял

[wertulll]

Ребят что нужно удалить из этого скрипта чтобы остался только внешний вид инстала http://rghost.ru/24985741

[Dark_Delphin]

Всем привет)

Подскажите пожалуйста или дайте примерчик "Как сделать, что-бы картинка отображалась в компонентлисте? В jpg или PNG формате"?

Заранее спасибо.

[valyok666]

ntrx, botva2 тебе в помощь))

wertulll, ты бы сначало написал что оставить надо)

[wertulll]

valyok666, ну как обяснить я пока ещё в этих делах новичёк извеняюсь мне нужно чтобы в этом скрипте остался только код на внешний вид инсталятора чтобы он работал без arc.ini , unrar.dll и так далее. Я хочю его самим inno setup запаковать .

ну вод может так понятней будет

OutputBaseFilename=setup
Compression=lzma/ultra64
;DiskSliceSize=1566000000
;DiskSpanning=yes
;SlicesPerDisk=4
SolidCompression=yes

чтобы остались кнопки , папка , тени , картинка , шрифт ну вобщем только внешний вид без дополнительных файлов разпоковщиков

[valyok666]

wertulll, щас посмотрю)тоесть убрать ISDone и всё да?

[wertulll]

ну да