[Bond01]

GrizzlyMK, какой то странный скрипт, разве это inno?

[GrizzlyMK]

Если-б был он не Inno то я бы обратился в другой форум ))

[kro44i]

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

Подскажите скрипт, чтобы был один установочный файл (Setup.exe+.arc).»

[Merlin_jr]

Приветствую.

Подскажите как средствами Inno Setup

1. определить версию ЕХЕ-файла лежащего в каталоге назначения
2. вытащить первую строку из текстового файла и сравнить её значение с "эталоном".

[Serega]

Подскажите как средствами Inno Setup »

Пример скрипта

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
function GetFileVersion(const FileName: string): string;
// выводит версию файла в виде строки
var
  Version: string;
begin
  Result:= 'не определена.';
  if GetVersionNumbersString(FileName, Version) then
  Result:= Version;
end;

function SelectFileName: string;
// получим имя выбранного пользователем файла
var
  FileName: string;
begin
  FileName:= '';
  GetOpenFileName('Выберите файл для обработки...',
                  FileName,
                  ExtractFilePath(ExpandConstant('srcexe')),
                  'Текстовый документ (*.txt)|*.txt|Все файлы|*.*',
                  'txt');
  Result:= FileName;
end;

function ReadFileName(const FileName, SearchString: string): string;
// получим искомую строку
var
  S: TArrayOfString;
  i: Integer;
begin
  Result:= '';
  if not FileExists(FileName) then Exit; // если файла нет, выходим
  LoadStringsFromFile(FileName, S); // загружаем файл
  for i:= 0 to GetArrayLength(S)-1 do // пробежимся по строкам
    if Pos(SearchString, S[i]) > 0 then
      begin
        Result:= S[i];
        Exit;
      end;
end;

function InitializeSetup(): Boolean;
var
  Search, FileName: string;
begin
  // получение версии файла
  FileName:= ExpandConstant('{pf}\Inno Setup 5\Examples\MyProg.exe');
  MsgBox('Версия ' + ExtractFileName(FileName) + ' - ' + GetFileVersion(FileName), mbInformation, MB_OK);

  // обработка текстового файла
  Search:= ReadFileName(SelectFileName, 'карандаш');
  if Search <> '' then
    MsgBox(Search, mbInformation, MB_OK);
end;

Пример текстового файла

Код:

fast батут
begin go easter черный
mother happy транквилизатор сигнализация green суспензия diablo rocet
карандаш пистолет автомат
kaspersky fusion черенок
столб application

[svensoft]

Вчера посредством inno сделал своей милой электронный подарок. Если кому интересно данное произведение, вот тут можно взять (ссылка актуальна 3 дня)

[BooSla]

Подскажите, пожалуйста, как отключить сообщение о завершении деинсталляции (в секции [messages] оно называется UninstalledAll). То, которое "Программа %1 была успешно удалена с Вашего компьютера". Спасибо!

[Vengeance]

Код:

[Setup]
SourceDir=.
OutputDir=Setup
AppName=Half-Life Games
AppVerName=Half-Life Games
AppVersion=Half-Life Games
DefaultDirName={pf}\C \Games\Half-Life
DefaultGroupName=Half-Life Games
AllowNoIcons=yes
OutputBaseFilename=setup
WindowVisible=no
WindowShowCaption=no
WindowResizable=no
Compression=lzma/normal
DiskSpanning=yes
DiskSliceSize=2100000000
SlicesPerDisk=1

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

[Types]
Name: "full";   Description: "Полная установка"
Name: "custom"; Description: "Выборочная установка"; Flags: iscustom

[Components]
Name: g0; Description: Half-Life; Types: full custom; Flags: disablenouninstallwarning checkablealone
Name: g1; Description: Ricochet; Types: full custom; Flags: disablenouninstallwarning checkablealone

[Files]

Source: "C:\Documents and Settings\Админ\Мои документы\Downloads\s\zepsa\*"; DestDir: "{app}\half-life"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: g0

Source: "C:\Documents and Settings\Админ\Мои документы\Downloads\s\ricochet\*"; DestDir: "{app}\half-life\ricochet"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: g1

[Icons]
Name: "{group}\{cm:UninstallProgram,Half-Life Games}"; Filename: "{uninstallexe}"

[UninstallDelete]
Type: filesandordirs; Name: "{app}"

Как сделать чтобы компонент g0 нельзя было удалять? А то просто без g0, g1 файлы не запустятся. ?

[Merlin_jr]

Цитата Merlin_jr: Подскажите как средствами Inno Setup » Пример скрипта Пример текстового файла

С версией все получилось, а вот с текстом из файла не совсем понятно забыл уже программирование

Уточню из файла следующей структуры:

Код:

15V44

надо вытащить только текст, что в начале.

UPD
Как правильно полностью завершить работу инсталлятора по событию. Точнее какой функцией или оператором.

[Habetdin]

Vengeance,

Как сделать чтобы компонент g0 нельзя было удалять? »

Код:

[Components]
Name: g0; Description: Half-Life; Flags: fixed disablenouninstallwarning; Types: custom full