Скрипты Inno Setup. Помощь и советы [часть 6]

audiofeel · Конфигурация компьютера

помогите добавить к имени (mytext.txt) и пароль , пробовал дублировать ошибок нет но и результата тоже нет - одно имя.

Код:

 [.....Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program

[...Code]
var
EditPage: TWizardPage;
MyEdit, MyEdit1: TEdit;

procedure MyEditOnChange(Sender: TObject);
begin
  if MyEdit.Text = '' then
  WizardForm.NextButton.Enabled := False
  else
  WizardForm.NextButton.Enabled := True;
end;

procedure MyEdit1OnChange(Sender: TObject);
begin
  if MyEdit1.Text = '' then
  WizardForm.NextButton.Enabled := False
  else
  WizardForm.NextButton.Enabled := True;
end;

procedure CreateEditPage();
begin
  EditPage := CreateCustomPage(wpWelcome, 'Введите данные учетной записи ЦРУ', '');

  with TNewStaticText.Create(EditPage) do
  begin
    SetBounds(10,25,100,14);
    Caption := 'Введите свой ник:';
    Parent := EditPage.Surface;
  end;

  with TNewStaticText.Create(EditPage) do
  begin
    SetBounds(10,65,100,14);
    Caption := 'Введите пароль:';
    Parent := EditPage.Surface;
  end;

  MyEdit := TEdit.Create(EditPage);
  with MyEdit do
  begin
    SetBounds(10, 44, 350, 21);
    OnChange := @MyEditOnChange;
    Parent   := EditPage.Surface;
  end;

  MyEdit1 := TEdit.Create(EditPage);
  with MyEdit1 do
  begin
    SetBounds(10, 84, 350, 21);
    OnChange := @MyEdit1OnChange;
    Parent   := EditPage.Surface;
  end;
end;

procedure InitializeWizard();
begin
  CreateEditPage();
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
    ssPostInstall: SaveStringToFile(ExpandConstant('{app}')+'\durdom.ini', MyEdit.Text, true);
  end; 
  case CurStep of
    ssPostInstall: SaveStringToFile(ExpandConstant('{app}')+'\durdom.ini', MyEdit1.Text, true);
  end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
  if (CurPageID = EditPage.ID) and (MyEdit.Text = '') and (MyEdit1.Text = '')then
  WizardForm.NextButton.Enabled := False;
end;

saurn · Конфигурация компьютера

audiofeel,

Цитата Nightwishh:

Спасибо за помощь! а посмотрите я для GroupEdit я правильно сделал? »

Мне не за что, пример не мой.
Пару мелочей пропустили. Так будет правильно:

Цитата neorom:

Да хочу, но чтоби проценти возрастали при возрастании процес бара, а не получаэться. »

А откуда, по вашему, берутся эти цифры? Проценты пересчитываются с текущей позиции прогресс-бара, начиная с начальной точки и заканчивая конечной, кстати тут вам об этом уже говорили, это касается обоих примеров. Разница в тех примерах только в способе реализации. И не важно, какой из примеров вы будете использовать, в свой скрипт вставлять все придется руками, самому. Программы, которая прочитает наши мысли и все сделает за нас еще не придумали.

neorom · Отправлено: **18:57, 09-04-2013** | #**133**

Прошу, кто панимаєт , удалите из єтого скрипта всьо лишниэ, лишить надо только процедуру отображения процентов, без процес бара(шрифт, розмещения, цвет - оставить)

Nightwishh · Конфигурация компьютера

И последний вопрос по поваду GroupEdit.

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
OutputDir=.

[ Code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

const
  MAX_PATH = 260;
  MAX_PATH_LEN = 55;

var
  PathLabel: TLabel;

function PathCompactPathEx(pszOut: String; pszSrc: String; cchMax: UINT; dwFlags: DWORD): BOOL; external 'PathCompactPathEx{#A}@shlwapi.dll stdcall';

function ShortPath(Input: String; Length: Integer): String;
begin
  Result := StringOfChar(#32, 260);
  PathCompactPathEx(Result, Input, Length, 0);
end;

procedure GroupEditOnChange(Sender: TObject);
begin
  PathLabel.Caption := ShortPath(#32 + TEdit(Sender).Text, 55);
end;

procedure InitializeWizard();
begin
  PathLabel := TLabel.Create(nil);
  with PathLabel do
  begin
    Parent:= WizardForm.SelectProgramGroupPage;
    Caption := ShortPath(#32 + WizardForm.GroupEdit.Text, 55);
    Transparent := True;
    Font.Size := 9;
    Left := WizardForm.GroupEdit.Left;
    Top := WizardForm.GroupEdit.Top + Round((WizardForm.GroupEdit.Height - Height) div 2);
  end;
  WizardForm.GroupEdit.OnChange := @GroupEditOnChange;
  WizardForm.GroupEdit.Hide;
end;

[Icons]
Name: {group}\1; Filename: {app}\fjhjk.exe; WorkingDir: {app}; Flags: createonlyiffileexists

1)Как сделать неактивным PathLabel чекбоксом NoIconsCheck?
2)И можно ли убрать

Код:

 #ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

, у меня версия компилятора Ansi? Спасибо!

habib2302 · Конфигурация компьютера

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

saurn · Конфигурация компьютера

Цитата Nightwishh:

Как сделать неактивным PathLabel чекбоксом NoIconsCheck? »

Можно. Вставьте в свой скрипт:

Код:

procedure NoIconsOnClick(Sender: TObject);
begin
  PathLabel.Enabled := not TCheckBox(Sender).Checked;
  WizardForm.GroupBrowseButton.Enabled := PathLabel.Enabled;
end;

procedure InitializeWizard();
begin
  WizardForm.NoIconsCheck.OnClick := @NoIconsOnClick;
end;

Цитата Nightwishh:

И можно ли убрать »

Nightwishh · Конфигурация компьютера

saurn, Спасибо всё понял, пошёл собирать.

habib2302 · Конфигурация компьютера

мне кто нибудь ответит на мое сообщение???

insombia · Отправлено: **22:57, 09-04-2013** | #**139**

habib2302 в смысле старую версию?

habib2302 · Конфигурация компьютера

insombia, ну или ранее установленную программу
я просто хочу сделать так,чтобы нельзя повторно установить программу.а если повторно установить,то программа (экзешник) удалял ранее установленную програму