Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » [архив] Inno Setup .:[все вопросы]:.

Закрытая тема
Настройки темы
[архив] Inno Setup .:[все вопросы]:.

Новый участник


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

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


Изменения
Автор: volk1234
Дата: 27-08-2009
Описание: перевел в архив
Лимит страниц.
Тема закрыта.
продолжаем тут:

Inno Setup. Обсуждение установщика

Скрипты Inno Setup. Помощь и советы



Полезные ресурсы:
Официальный сайт| Inno Setup 5.2.3 RU
Русская справка |Зеракало 1| Зеракало 2
ISTool 5.30 |Русификатор
Русификатор ISTool |Зеркало 1|Зеркало 2
Inno Setup Script Generator |Зеркало 1
Unpaker 2.1 от 21.04.2009 - распаковывает инсталляторы, созданные с помощью Inno Setup, начиная с версии 2.0.18 по 5.2.4.
InnoUnpaker 2.6b3 [от valeron87]- можнет просмотривать содержание CompiledCode.bin
Unpaker 0.23 - расширенная китайская версия 2008-08-08 ( модификация)
Unpacker 0.24 | Зеркало 1 | Зеркало 2 - Inno Setup Unpacker (innounp plus) - расширенная версия распаковщика инсталляторов Inno Setup начиная с версии 2.0.8 по 5.3.0 Beta. Поддерживаются версии Unicode. Русифицирована. Последний релиз: 0.24 [23.05.2009]
Набор Restools
Restools - расширенная версия Inno Setup от китайских разработчиков, добавляет вашему инсталлятору новые возможности по оформлению, а также более удобный редактор скриптов (требуется наличие установленного Preprocessor'а).
Последние версии разработок от Restools:
InnoCompiler090319_English - в него входят файлы: Compil32.exe и Templates.dat;
Inno_ISCmplr_Setup090302 - в него входят файлы, лучше из папки InnoSetup_FullVCL: setup.e32, ISCmplr.dls, ISCmplr.dll и SetupLdr.e32.
InnoCompiler090319_Russian - Русский перевод (80%) от tem000 - NEW !

QuickStart Pack - Inno Setup + Preprocessor (последняя версия ispack-5.2.4-dev)
"Всё в одном" от unikum111
читать дальше »

Цитата unikum111:
В сборку входят следующие компоненты:
Inno Setup compiler 5.2.2 русская версия;
ISTool 5.2.1 русская версия;
Inno Script Generator английская версия;
Inno Setup Unpacker Explorer 1.0 аглийская версия;
Примечание: в Inno Setup Unpacker Explorer 1.0 заменён innounp.exe на тестовую версию 2.0, так что распаковывает инсталляторы вплоть до версии 5.2.2.
Есть возможность выбора компонентов.
Скачать: ifolder, RapidShare, iBox (Размер: 5.34 Mb).»



Полезные мелочи для Inno Setup:

- Converter v.0.1.2 - конвертор REG- файлов в формат скриптов Inno от Serega_ -новая версия
- Как убрать страницу приветствия (wpWelcome) в мастере установки приложения:
- Примеры скриптов на паскале
- Inno Setup Addon 0.07 For Total Commander
- Параметры командной строки инсталляторов InnoSetup:

Код: Выделить весь код
/SP-
Отключает страницу "Эта программа установит... Вы хотите продолжить?" инсталятора. 
Выполнится только если DisableStartupPrompt секции [Setup] равна yes. 

/SILENT, /VERYSILENT  
Установка в ускоренном или очень ускоренном режиме. При установке в ускоренном режиме 
окно мастера и фоновое окно мастера не отображаются, отображается только окно прогресса. 
При очень ускоренной установке окно прогресса тоже не отображается. Остальная установка 
проходит как обычно - отображаются сообщения об ошибках в ходе установки, страница 
приветствия (если ее отображение не отменено директивой DisableStartupPrompt или 
параметром '/SP-' командной строки).

Если после установки необходима перезагрузка, команды '/NORESTART' не дано и установка 
проходит в ускоренном режиме, появится сообщение "Перезагрузить компьютер?". Если режим 
установки очень ускоренный, система перезагрузится не спрашивая.

/LOG 
Указывает инсталятору создать log-файл в папке TEMP для подробного отчета о действиях 
и событиях в секции [Run], предпринятых в ходе установки. Применяется при отслеживании 
ошибок. Например, если вы подозреваете, что файл не был удален, хотя должен был, 
log-файл сообщит, что файл былдействительно пропущен и почему. 

log-файлу присваивается уникальное имя на базе текущей даты. (Существующие файлы не 
перезаписываются и не дополняются). 
Информация, содержащаяся в log-файле, техническая и поэтому не может быть понята 
пользователем. 

/LOG="filename" 
Параметр похож на /LOG, но в отличие от него позволяет указать фиксированный
путь/имя файла для log-файла. Если файл с указанным именем уже существует, он будет 
заменен. Если файл не может быть создан, установка прервется и выдаст сообщение 
об ошибке.

/NOCANCEL  
Не дает пользователю прервать установку, отключая кнопку Отменить и игнорируя клики на 
кнопке Закрыть. Используется в комбинации с '/SILENT' или '/VERYSILENT'. 

/NORESTART 
Указывает инсталятору не перезагружать компьютер даже если это необходимо. 

/RESTARTEXITCODE=exit code  
Задает инсталятору код, который он должен возвратить, если необходима перезагрузка. 
Используется с '/NORESTART'.
См. также Коды выхода инсталятора. (кому интерестно, могу выложить или же доступно в хелпе)

/LOADINF="filename" 
Указывает инсталятору загрузить параметры установки из указанного файла после проверки 
командной строки. Этот файл может быть подготовлен с помощью '/SAVEINF='command.
Не забудьте ставить кавычки при использовании имен, содержащих пробелы. 

/SAVEINF="filename" 
Указывает инсталятору сохранять параметры установки в указанный файл.
Не забудьте ставить кавычки при использовании имен, содержащих пробелы. 

/LANG=language 
Задает используемый язык. language задает имя языка, заданного в параметре секции 
[Languages]. При использовании параметра /LANG появляется диалог Выбор языка установки.

/DIR="x:\dirname" 
Меняет имя папки, заданное по умолчанию, на странице Выбор папки назначения. 
Должен быть задан полный путь. 

/GROUP="folder name" 
Меняет имя папки на странице Выбор папки меню Пуск. Если директива 
DisableProgramGroupPage секции [Setup] равна yes, этот параметр командной строки 
игнорируется. 

/NOICONS 
Указывает инсталятору проверять, выбрана ли команда Не создавать значков на странице 
Выбор папки меню Пуск. 

/COMPONENTS="comma separated list of component names" 
Меняет выбраные по умолчанию компоненты. В этом случае параметр командной строки 
указывает инсталятору менять тип установки на Выборочный. 

/PASSWORD=password  Задает пароль. Если не указана директива Password секции [Setup], 
этот параметр игнорируется. Если введен неправильный пароль, параметр 
также игнорируется.

Отправлено: 21:42, 17-03-2005

 

Новый участник


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

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


Serega_, ))) Я так и сделал... поля ввода для 111 и 222 отдельные т.е. когда инсталяция завершена в ini файле отображается следующее
1. Если создаю ini:
Data Source = 111
Initial Catalog = 222

2. Если изменяю ini:
ConStr=Provider=***;Data Source=***;Initial Catalog=***

Data Source = 111
Initial Catalog = 222
Как видно inno setup при записи все время пытается записать параметры в отдельные строки. а при изменении не изменяет уже существующие параметры а добавляет те же но во все те же отдельные строки. Т.е. key для ini может быть только один (тот что первый (ConStr)). Мне набросал знакомый код по разбиению строки на отдельные параметры и дальнейшей ее сборки обратно в строку. только вот у меня не получается ее реализовать в [code].
Заранее извиняюсь за обьем сообщения может еще кто что посоветует? ))
читать дальше »

Код: Выделить весь код
unit FrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button3: TButton;
    Edit6: TEdit;
    Button4: TButton;
    Edit7: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    FIntegrSecurity : String;
    FPersistSecInfo : String;
    FInitialCatalog : String;
    FDataSource     : String;
    FProvider       : String;

    procedure ParseStr(const AStr: String; var AProvider, AIntegrSecurity,
      APersistSecInfo, AInitialCatalog, ADataSource: String);
//    procedure CombineStr(var AStr: String; const AProvider, AIntegrSecurity,
//      APersistSecInfo, AInitialCatalog, ADataSource: String);
    procedure CombineStr(var AStr: String; const AProvider,
      AInitialCatalog, ADataSource: String);

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  SIntegrSecurity = 'Integrated Security';
  SPersistSecInfo = 'Persist Security Info';
  SInitialCatalog = 'Initial Catalog';
  SDataSource     = 'Data Source';
  SProvider       = 'Provider';
  SDelim          = ';';
  SEqual          = '=';


procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
  S: String;
begin
  Ini := TIniFile.Create('c:\a.ini');
  try
    S := Ini.ReadString('CONNECT', 'ConStr', '');
    Edit6.Text := S;
  finally
    if Assigned(Ini) then Ini.Free;
  end;
end;

{
procedure TForm1.CombineStr(var AStr: String; const AProvider,
  AIntegrSecurity, APersistSecInfo, AInitialCatalog, ADataSource: String);
begin
  AStr := Format('%s=%s;%s=%s;%s=%s;%s=%s;%s=%s', [SProvider, AProvider,
    SIntegrSecurity, AIntegrSecurity, SPersistSecInfo, APersistSecInfo,
    SInitialCatalog, AInitialCatalog, SDataSource, ADataSource]);
end;
}

procedure TForm1.CombineStr(var AStr: String; const AProvider,
      AInitialCatalog, ADataSource: String);
begin
  AStr := Format('%s=%s;%s=%s;%s=%s', [SProvider, AProvider,
    SInitialCatalog, AInitialCatalog, SDataSource, ADataSource]);
end;

procedure TForm1.ParseStr(const AStr: String; var AProvider,
  AIntegrSecurity, APersistSecInfo, AInitialCatalog, ADataSource: String);
  procedure ExtractParamAndValue(const Str: String; var Param, Value: String);
  var
    I: Integer;
  begin
    Param := ''; Value := '';
    I := Pos(SEqual, Str);
    if (I > 0) and (I < Length(Str)) then
    begin
      Param := copy(Str, 1, I - 1);
      Value := copy(Str, I + 1, MAXINT);
    end;
  end;

var
  I: Integer;
  S, S1, S2: String;
begin
  S := AStr;
  repeat
    I := Pos(SDelim, S);
    if I > 0 then
    begin
      ExtractParamAndValue(copy(S, 1, I - 1), S1, S2);
      S := copy(S, I + 1, MAXINT);
    end
    else
    begin
      ExtractParamAndValue(S, S1, S2);
      S := '';
    end;

    if S1 = SProvider       then FProvider       := S2 else
    if S1 = SIntegrSecurity then AIntegrSecurity := S2 else
    if S1 = SPersistSecInfo then APersistSecInfo := S2 else
    if S1 = SInitialCatalog then AInitialCatalog := S2 else
    if S1 = SDataSource     then ADataSource     := S2;

  until I <= 0
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ParseStr(Edit6.Text, FProvider, FIntegrSecurity, FPersistSecInfo,
    FInitialCatalog, FDataSource);
  Edit1.Text := FProvider;
  Edit2.Text := FIntegrSecurity;
  Edit3.Text := FPersistSecInfo;
  Edit4.Text := FInitialCatalog;
  Edit5.Text := FDataSource;

end;

procedure TForm1.Button4Click(Sender: TObject);
var
  S: String;
begin
  self.CombineStr(S, Edit1.Text, Edit5.Text, Edit4.Text);
  Edit7.Text := S;
end;

end.

Последний раз редактировалось volk1234, 27-03-2009 в 16:55. Причина: добавил теги code, more


Отправлено: 10:34, 19-03-2009 | #501



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


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

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


Цитата MrLD:
Заранее извиняюсь за обьем сообщения »
используйте тег [more]
Цитата MrLD:
inno setup при записи все время пытается записать параметры в отдельные строки »
так вобще-то это правильно ведь инишник никогда не пишется в одну строку, одним словом неправильный у вас инишник...
Цитата MrLD:
Мне набросал знакомый код »
интересный код, только для Делфи, в общем надо подумать...

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.


Отправлено: 10:55, 19-03-2009 | #502


Новый участник


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

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


Я уже писал что инишник не правельный... а в программу лезть запретили чтоб поменять интерпретацию ((( вот так (( Если чего разберешь дай знать )) очень надеюсь... а то работа встала... сам уже 4-й день бьюсь...

Отправлено: 11:47, 19-03-2009 | #503


Ветеран


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

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


MrLD, а вы этот код на делфи проверяли на работоспасобность? А то я собрал, накидал на форму кнопки и едиты, а он не пашет, главно и не ругается, т.е вообще ничего не происходит... Если не сложно скиньте полный исходник посмотреть, можно в PM...

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.


Отправлено: 11:51, 19-03-2009 | #504


Новый участник


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

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


там надо создать ini и внести в него секцию [Connect] и запись в виде строки которую я приводил в пример.

[Connect]
ConStr=Provider=***;Data Source=***;Initial Catalog=***



и путь прописать к инишнику

Цитата MrLD:
procedure TForm1.Button1Click(Sender: TObject);
var
Ini: TIniFile;
S: String;
begin
Ini := TIniFile.Create('c:\a.ini');
try
S := Ini.ReadString('CONNECT', 'ConStr', '');
Edit6.Text := S;
finally
if Assigned(Ini) then Ini.Free;
end;
end; »

Отправлено: 11:58, 19-03-2009 | #505


Ветеран


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

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


MrLD, ну, что обрадовать вас?
читать дальше »
Код: Выделить весь код
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DisableProgramGroupPage=yes
CreateUninstallRegKey=no
DisableDirPage=yes
CreateAppDir=no
Uninstallable=no
DisableFinishedPage=yes
DisableReadyPage=yes
OutputBaseFilename=My Program
OutputDir=.

Code]
const
  SIntegrSecurity = 'Integrated Security';
  SPersistSecInfo = 'Persist Security Info';
  SInitialCatalog = 'Initial Catalog';
  SDataSource = 'Data Source';
  SProvider = 'Provider';
  SDelim = ';';
  SEqual = '=';

var
  Form: TForm;
  lbl1, lbl2, lbl3, lbl4, lbl5, lbl6, lbl7: TLabel;
  btn1, btn2, btn3, btn4: TButton;
  edt1, edt2, edt3, edt4, edt5, edt6, edt7: TEdit;
  FIntegrSecurity, FPersistSecInfo, FInitialCatalog,
  FDataSource, FProvider : String;

procedure btn2Click(Sender: TObject);
begin
  Form.Close;
end;

procedure btn1Click(Sender: TObject);
var
  S: String;
begin
  S:= GetIniString('CONNECT', 'ConStr', '', 'c:\a.ini');
  edt6.Text:= S;
end;

procedure CombineStr(var AStr: String; const AProvider,
  AInitialCatalog, ADataSource: String);
begin
  AStr:= Format('%s=%s;%s=%s;%s=%s', [SProvider, AProvider,
         SInitialCatalog, AInitialCatalog, SDataSource, ADataSource]);
end;

procedure ExtractParamAndValue(const Str: String; var Param, Value: String);
var
  I: Integer;
begin
  Param:= '';
  Value:= '';
  I:= Pos(SEqual, Str);
  if (I > 0) and (I < Length(Str)) then
  begin
    Param:= copy(Str, 1, I - 1);
    Value:= copy(Str, I + 1, MAXINT);
  end;
end;

procedure ParseStr(const AStr: String; var AProvider,
     AIntegrSecurity, APersistSecInfo, AInitialCatalog, ADataSource: String);
var
  I: Integer;
  S, S1, S2: String;
begin
  S:= AStr;
  repeat
    I:= Pos(SDelim, S);
    if I > 0 then
    begin
      ExtractParamAndValue(copy(S, 1, I - 1), S1, S2);
      S:= copy(S, I + 1, MAXINT);
    end else
  begin
    ExtractParamAndValue(S, S1, S2);
    S:= '';
  end;

  if S1 = SProvider then FProvider:= S2 else
  if S1 = SIntegrSecurity then AIntegrSecurity:= S2 else
  if S1 = SPersistSecInfo then APersistSecInfo:= S2 else
  if S1 = SInitialCatalog then AInitialCatalog:= S2 else
  if S1 = SDataSource then ADataSource:= S2;

  until I <= 0
end;

procedure btn3Click(Sender: TObject);
begin
  ParseStr(edt6.Text, FProvider, FIntegrSecurity, FPersistSecInfo,
           FInitialCatalog, FDataSource);
  edt1.Text:= FProvider;
  edt2.Text:= FIntegrSecurity;
  edt3.Text:= FPersistSecInfo;
  edt4.Text:= FInitialCatalog;
  edt5.Text:= FDataSource;
end;

procedure btn4Click(Sender: TObject);
var
  S: String;
begin
  CombineStr(S, edt1.Text, edt5.Text, edt4.Text);
  edt7.Text:= S;
end;

procedure CreateComponents;
begin
  Form:= TForm.Create(Application);
  try
    Form.ClientWidth:= 345;
    Form.ClientHeight:= 300;
    Form.Caption:= 'Пример';
    Form.Position:= poScreenCenter;
    Form.Color:= clBtnFace;
    Form.Font.Color:= clWindowText;
    Form.Font.Height:= -11;
    Form.Font.Name:= 'MS Sans Serif';
    Form.Font.Style:= [];
    Form.PixelsPerInch:= 96;

      //lbl1
      lbl1:= TLabel.Create(Form);
      lbl1.Parent:= Form;
      lbl1.Left:= 24;
      lbl1.Top:= 8;
      lbl1.Width:= 86;
      lbl1.Height:= 13;
      lbl1.Caption:= 'Секция [Connect]';

    //lbl2
    lbl2:= TLabel.Create(Form);
    lbl2.Parent:= Form;
    lbl2.Left:= 24;
    lbl2.Top:= 48;
    lbl2.Width:= 39;
    lbl2.Height:= 13;
    lbl2.Caption:= 'Provider';

      //lbl3
      lbl3:= TLabel.Create(Form);
      lbl3.Parent:= Form;
      lbl3.Left:= 24;
      lbl3.Top:= 88;
      lbl3.Width:= 60;
      lbl3.Height:= 13;
      lbl3.Caption:= 'Data Source';

    //lbl4
    lbl4:= TLabel.Create(Form);
    lbl4.Parent:= Form;
    lbl4.Left:= 24;
    lbl4.Top:= 128;
    lbl4.Width:= 63;
    lbl4.Height:= 13;
    lbl4.Caption:= 'Initial Catalog';

      //lbl5
      lbl5:= TLabel.Create(Form);
      lbl5.Parent:= Form;
      lbl5.Left:= 24;
      lbl5.Top:= 168;
      lbl5.Width:= 68;
      lbl5.Height:= 13;
      lbl5.Caption:= 'Integr Security';

    //lbl6
    lbl6:= TLabel.Create(Form);
    lbl6.Parent:= Form;
    lbl6.Left:= 24;
    lbl6.Top:= 208;
    lbl6.Width:= 71;
    lbl6.Height:= 13;
    lbl6.Caption:= 'Persist SecInfo';

      //lbl7
      lbl7:= TLabel.Create(Form);
      lbl7.Parent:= Form;
      lbl7.Left:= 24;
      lbl7.Top:= 248;
      lbl7.Width:= 54;
      lbl7.Height:= 13;
      lbl7.Caption:= 'CombineStr';

    //btn1
    btn1:= TButton.Create(Form);
    btn1.Parent:= Form;
    btn1.Left:= 240;
    btn1.Top:= 64;
    btn1.Width:= 75;
    btn1.Height:= 22;
    btn1.Caption:= 'Читать';
    btn1.TabOrder:= 0;
    btn1.OnClick:= @btn1Click;
    btn1.Cursor:= crHand;
    btn1.ShowHint:=True;
    btn1.Hint:='Читать секцию [Connect] из файла';

      //btn2
      btn2:= TButton.Create(Form);
      btn2.Parent:= Form;
      btn2.Left:= 240;
      btn2.Top:= 176;
      btn2.Width:= 75;
      btn2.Height:= 22;
      btn2.Caption:= 'Закрыть';
      btn2.TabOrder:= 1;
      btn2.OnClick:= @btn2Click;
      btn2.Cursor:= crHand;
      btn2.ShowHint:=True;
      btn2.Hint:='Закрыть и продолжить установку';

    //btn3
    btn3:= TButton.Create(Form);
    btn3.Parent:= Form;
    btn3.Left:= 240;
    btn3.Top:= 96;
    btn3.Width:= 75;
    btn3.Height:= 22;
    btn3.Caption:= 'Разделить';
    btn3.TabOrder:= 2;
    btn3.OnClick:= @btn3Click;
    btn3.Cursor:= crHand;
    btn3.ShowHint:=True;
    btn3.Hint:='Разделить строку на данные';

      //btn4
      btn4:= TButton.Create(Form);
      btn4.Parent:= Form;
      btn4.Left:= 240;
      btn4.Top:= 128;
      btn4.Width:= 75;
      btn4.Height:= 22;
      btn4.Caption:= 'Объединить';
      btn4.TabOrder:= 3;
      btn4.OnClick:= @btn4Click;
      btn4.Cursor:= crHand;
      btn4.ShowHint:=True;
      btn4.Hint:='Объединить изменённые данные';

    //edt1
    edt1:= TEdit.Create(Form);
    edt1.Parent:= Form;
    edt1.Left:= 24;
    edt1.Top:= 64;
    edt1.Width:= 200;
    edt1.Height:= 21;
    edt1.TabOrder:= 4;

      //edt2
      edt2:= TEdit.Create(Form);
      edt2.Parent:= Form;
      edt2.Left:= 24;
      edt2.Top:= 184;
      edt2.Width:= 200;
      edt2.Height:= 21;
      edt2.TabOrder:= 5;

    //edt3
    edt3:= TEdit.Create(Form);
    edt3.Parent:= Form;
    edt3.Left:= 24;
    edt3.Top:= 224;
    edt3.Width:= 200;
    edt3.Height:= 21;
    edt3.TabOrder:= 6;

      //edt4
      edt4:= TEdit.Create(Form);
      edt4.Parent:= Form;
      edt4.Left:= 24;
      edt4.Top:= 144;
      edt4.Width:= 200;
      edt4.Height:= 21;
      edt4.TabOrder:= 7;

    //edt5
    edt5:= TEdit.Create(Form);
    edt5.Parent:= Form;
    edt5.Left:= 24;
    edt5.Top:= 104;
    edt5.Width:= 200;
    edt5.Height:= 21;
    edt5.TabOrder:= 8;

      //edt6
      edt6:= TEdit.Create(Form);
      edt6.Parent:= Form;
      edt6.Left:= 24;
      edt6.Top:= 24;
      edt6.Width:= 289;
      edt6.Height:= 21;
      edt6.TabOrder:= 9;

    //edt7
    edt7:= TEdit.Create(Form);
    edt7.Parent:= Form;
    edt7.Left:= 24;
    edt7.Top:= 264;
    edt7.Width:= 297;
    edt7.Height:= 21;
    edt7.TabOrder:= 10;

    Form.ShowModal;

  finally
    Form.Free;
  end;
end;

procedure InitializeWizard;
begin
  CreateComponents;
end;

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.


Отправлено: 21:33, 19-03-2009 | #506


Новый участник


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

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


Serega_, ((( не работает ((

Отправлено: 15:44, 20-03-2009 | #507


Новый участник


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

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


Serega_У тебя этот код работает?

Отправлено: 16:12, 20-03-2009 | #508


Ветеран


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

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


MrLD, естественно... иначе бы не давал.

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.


Отправлено: 16:15, 20-03-2009 | #509


Новый участник


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

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


Serega_, У тебя tool- зы какиенить установленны?? а то у меня inno Application не понимает ((

Отправлено: 16:33, 20-03-2009 | #510



Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » [архив] Inno Setup .:[все вопросы]:.

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Inno Setup. Прочие вопросы El Sanchez Автоматическая установка приложений 653 09-01-2023 20:13
Утилиты - [addon] Inno Setup CrOsP Наборы обновлений для Windows XP/2003/Windows 7 33 11-05-2011 16:03
Inno Setup 5.3.6 OSZone Software Новости программного обеспечения 0 15-11-2009 17:30
[Архив] Твики реестра .: [все вопросы] :. Vadikan Автоматическая установка Windows 2000/XP/2003 1431 26-01-2008 08:51
Inno Setup tradeukraine Вебмастеру 3 13-06-2006 20:39




 
Переход