[Habetdin]

TEKTON, по аналогии с примером из поста #501 - #include не обязан быть в секциях, будь то [code] или [files] ;[

[TEKTON]

Ок.
Сейчас прописал в самом верху скрипта до секции [Setup]

Код:

 #include "SYSTEST\SystemTest.iss"

[Setup]
...

Вылетает ошибка
Файл: C:\Documents and Settings\Desktop\INSTAL\SYSTEST\SystemTest.iss
Строка 76:
Column 37:
[ISPP] Undeclared identifier: "Processor".

Не хватает ему чего то.
Где его это взять и как подключить ?

[Habetdin]

[ISPP] Undeclared identifier: "Processor". »

Ему не хватает строк типа этого:

Код:

#define System "Система"
#define Processor "Процессор"
#define VideoCard "Видеоадаптер"
#define Audio "Звуковая карта"
#define RamMemory "Объём памяти"
#define PageFile "Файл подкачки"

P.S.: 4 поста, начиная с #152

[TEKTON]

Смотрел я уже ту шляпу.
Парень бился бился с ошибками, потом ему втюхали какую то get_hw_caps.dll.
На этом всё и кончилось...

Можете нормальный пример сделать из двух скриптов?
Чтоб один подключался ко второму.

p.s. Я тоже рою нет, но пока чёткого и конкретного ответа не нашёл.

[Fanat1990]

Парень бился бился с ошибками, потом ему втюхали какую то get_hw_caps.dll. »

это не какая-то get_hw_caps.dll! Авторы этой dll GSC Game World. Она используется в инсталлах сталкера, для проверки требований....

[YURSHAT]

Вылетает ошибка »

Потому как сначала нужно указать мин. требования, а потом уже скрипт подключать.

Код:

#define System "Система"
#define Processor "Процессор"
#define VideoCard "Видеоадаптер"
#define Audio "Звуковая карта"
#define RamMemory "Объём памяти"
#define PageFile "Файл подкачки"

#include "SYSTEST\SystemTest.iss"

[Setup]
....

[Yury_Prizrak]

первый вообще не понял (код-кусок для наглядности предоставь(если смогу понять - помогу), а то какие-то конфиги, формы...) »

Попробую более подробно. В устанавливаемой программе есть xml файл, который пользователь может менять в момент установки:

Код:

var
  IsInit: Boolean;
  ZXBPage: TWizardPage;
  DBPage:  TWizardPage;


procedure InitializeWizard;
begin
  //  страничка подключения к базе данных
  DBPage := Db_CreatePage(wpSelectDir);
  //  страничка подключения
  ZXBPage := ZXB_CreatePage(DBPage.ID);

  IsInit := False;
end;


//  Инициализация страничек с настройками из конфигурационного файла.
procedure CurPageChanged(CurPageID: Integer);
var
  ConfigPath: String;
  XMLDoc, XMLNodeList, XMLNode, XMLAttributes, XMLAttrib: Variant;
  i: Integer;
begin
  //  проверка инициализированности параметров, для последующих заходов на страницы
  if IsInit then
    Exit;
  //  проверка ID страничек с параметрами
  if (not (CurPageID = DBPage.ID)) and (not (CurPageID = ZXBPage.ID)) then
    Exit;

  ConfigPath := ExpandConstant('{app}\111.exe.config');
  //  проверка наличия конфигурационного файла
  if not FileExists( ConfigPath ) then
  begin
    IsInit := True;
    Exit;
  end;

  //  загрузка конфигурационного файла
  XMLDoc := CreateOleObject('MSXML2.DOMDocument');
  XMLDoc.async := False;
  XMLDoc.resolveExternals := False;
  XMLDoc.load( ConfigPath );
  if XMLDoc.parseError.errorCode <> 0 then
    RaiseException('Error on line ' + IntToStr(XMLDoc.parseError.line) + ', position ' + IntToStr(XMLDoc.parseError.linepos) + ': ' + XMLDoc.parseError.reason);

  //  страничка подключения к базе данных
  //  поле 'Строка подключения к базе данных:'
  XMLNode := XMLDoc.selectSingleNode('//connectionStrings/add[@name="BankDb"]');
  if not VarIsEmpty(XMLNode) then
  begin
    XMLAttributes := XMLNode.attributes;
    XMLAttrib := XMLAttributes.getNamedItem('connectionString');
    ConnectionStringEdit.Text := XMLAttrib.text;
  end;

  IsInit := True;
end;


//  ConfigChange.
//  Изменение настроек в конфигурационном файле.
procedure ConfigChange();
var
  ConfigPath: String;
  XMLDoc, XMLNodeList, XMLNode, XMLAttributes, XMLAttrib: Variant;
  i: Integer;
begin
  ConfigPath := ExpandConstant('{app}\CreditLaw.exe.config');
  //  проверка наличия конфигурационного файла
  if not FileExists( ConfigPath ) then
    Exit;

  XMLDoc := CreateOleObject('MSXML2.DOMDocument');
  XMLDoc.async := False;
  XMLDoc.resolveExternals := False;
  XMLDoc.load( ConfigPath );
  if XMLDoc.parseError.errorCode <> 0 then
    RaiseException('Error on line ' + IntToStr(XMLDoc.parseError.line) + ', position ' + IntToStr(XMLDoc.parseError.linepos) + ': ' + XMLDoc.parseError.reason);

  //  поле 'Строка подключения к базе данных:' в секции connectionStrings
  XMLNode := XMLDoc.selectSingleNode('//connectionStrings/add[@name="BankDb"]');
  if not VarIsEmpty(XMLNode) then
  begin
    XMLAttributes := XMLNode.attributes;
    XMLAttrib := XMLAttributes.getNamedItem('connectionString');
    XMLAttrib.text := ConnectionStringEdit.Text;
  end;

  XMLDoc.Save( ConfigPath );
end;

И вроде как все хорошо и здорово. Но возникла необходимость не давать пользователю менять эти данные(т.е. прятать страницы DBPage и ZXBPage) если программа уже была установлена. При этом первый вариант тоже должен оставатся(это я уже сообразил как реализовать)ю Но если я прячу страницы тогда я не могу пользоватся переменными этих страниц (ConnectionStringEdit.Text например) т.е. если страница спрятана, в эту переменную не подтягивается значение из файла а ставится по умолчанию. Есть вариант ввести дополнительные внутренние переменные в код InnoSetup и записывать значения в них а после перезаписи конфиг. файла считывать из них:

Код:

var
  IsInit: Boolean;
  ServiceString: String;
  //переменные для конфигурационного файла:
  ConnectBD: String;

procedure LoadConfigFileData();
var
  ConfigPath: String;
  XMLDoc, XMLNodeList, XMLNode, XMLAttributes, XMLAttrib: Variant;
  i: Integer;
begin
   //  загрузка конфигурационного файла
  XMLDoc := CreateOleObject('MSXML2.DOMDocument');
  XMLDoc.async := False;
  XMLDoc.resolveExternals := False;
  XMLDoc.load( ExpandConstant('{app}\Configuration\CvlServiceConfig.xml') );
  if XMLDoc.parseError.errorCode <> 0 then
    RaiseException('Error on line ' + IntToStr(XMLDoc.parseError.line) + ', position ' + IntToStr(XMLDoc.parseError.linepos) + ': ' + XMLDoc.parseError.reason);

  //  поле 'Строка подключения к базе данных:'
  XMLNode := XMLDoc.selectSingleNode('//DataBase');
  if not VarIsEmpty(XMLNode) then
  begin
    XMLAttributes := XMLNode.attributes;
    XMLAttrib := XMLAttributes.getNamedItem('ConnectionStringNoPass');
    ConnectBD := XMLAttrib.text;
  end;

   IsInit := False;

end;

procedure RecoveryConfigFile();
var
  ConfigPath: String;
  XMLDoc, XMLNodeList, XMLNode, XMLAttributes, XMLAttrib: Variant;
  i: Integer;
begin
  ConfigPath := ExpandConstant('{app}\Configuration\CvlServiceConfig.xml');
  //  проверка наличия конфигурационного файла
  if not FileExists( ConfigPath ) then
     Exit;

   //  загрузка конфигурационного файла
  XMLDoc := CreateOleObject('MSXML2.DOMDocument');
  XMLDoc.async := False;
  XMLDoc.resolveExternals := False;
  XMLDoc.load( ExpandConstant('{app}\Configuration\CvlServiceConfig.xml') );
  if XMLDoc.parseError.errorCode <> 0 then
    RaiseException('Error on line ' + IntToStr(XMLDoc.parseError.line) + ', position ' + IntToStr(XMLDoc.parseError.linepos) + ': ' + XMLDoc.parseError.reason);

   //  страничка подключения к базе данных
  //  поле 'Строка подключения к базе данных:'
  XMLNode := XMLDoc.selectSingleNode('//DataBase');
  if not VarIsEmpty(XMLNode) then
  begin
    XMLAttributes := XMLNode.attributes;
    XMLAttrib := XMLAttributes.getNamedItem('ConnectionStringNoPass');
    XMLAttrib.text := ConnectBD;
  end;
  XMLDoc.Save( ConfigPath );
end;

но есть одно но - у меня этих переменных штук этак дофига, и код становится очень нечитабельным и большим. Вот в этом и сложность

[Mafioza]

всем привет , скажите как мне сделать чтобы страница создания ярлыков появилась после установки игры или программы ???????????77

[Johny777]

Yury_Prizrak,
мне кажется тебе не хватает одной единственной логической переменной
сделай так
[code]
var
Installed: boolean;

function InitializeSetup(): Boolean;
begin
Installed := False;
проверяем есть ли ключ (код 2 страницы назад)
если есть Installed := True; и пошло по всему коду
end;

procedure InitializeWizard;
begin
if not Installed then создаём страницы. Короче всё, что должно делаться если не установлена
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if not Installed then тоже самое но для того что ты делаешь в переключении страниц
end;

итд

юзай else если надо

[alert30]

Mafioza, вроде в оригинальном компиляторе Inno Setup есть чекбокс "Создать ярлык на Рабочем столе"?