[El Sanchez]

как разрешить ввод только цифр в Edit1 на кастомной странице? »

Nullkree,

Скрытый текст

Код:

[Code]
#define A = (Defined UNICODE) ? "W" : "A"
const
  GWL_STYLE = (-16);
  ES_NUMBER = $00002000;

function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLong{#A}@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';

///////////////////////////
procedure InitializeWizard;
begin
  SetWindowLong(WizardForm.DirEdit.Handle, GWL_STYLE, GetWindowLong(WizardForm.DirEdit.Handle, GWL_STYLE) or ES_NUMBER);
end;

[eromunald]

День добрый. Есть такой Inno Download Plugin (Mitrich Software). Для скачивания файла используются:

function isxdl_DownloadFiles(hWnd: Integer): Integer;
external 'isxdl_DownloadFiles@files:isxdl.dll stdcall';

При скачивании появляется прогресс бар со статистикой по скачиваемому файлу. Может быть кто-нибудь сталкивался с подобной проблемой и знает как ее решить: необходимо скрыть прогресс бар процесса скачивания файла(-ов). Буду признателен за помощь!

Код:

procedure DownloadFiles(IDE, ISS: Boolean);
var
  hWnd: Integer;
  URL, FileName: String;
begin

  isxdl_SetOption('label', 'Downloading extra files');
  isxdl_SetOption('description', 'Please wait while Setup is downloading extra files to your computer.');

  try
    FileName := ExpandConstant('{tmp}\WizModernSmallImage-IS.bmp');
    if not FileExists(FileName) then
      ExtractTemporaryFile(ExtractFileName(FileName));
    isxdl_SetOption('smallwizardimage', FileName);
  except
  end;
  //turn off isxdl resume so it won't leave partially downloaded files behind
  //resuming wouldn't help anyway since we're going to download to {tmp}
  isxdl_SetOption('resume', 'false');

  hWnd := StrToInt(ExpandConstant('{wizardhwnd}'));

[Iska]

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

Зачем?

[eromunald]

Зачем? »

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

[El Sanchez]

При скачивании появляется прогресс бар со статистикой по скачиваемому файлу. Может быть кто-нибудь сталкивался с подобной проблемой и знает как ее решить: необходимо скрыть прогресс бар процесса скачивания файла(-ов). »

eromunald, idpShowDetails(False) или к форме и к ее элементам обращайтесь через переменную IDPForm (IDP Help - Types - TIdpForm). Все это после вызова idpDownloadAfter.

[OldGamer]

Здравствуйте!

Помогите, пожалуйста, решить проблемы:

1) В окне выбора языков, если нажать "Отмена" - ошибка (см. вложение) [решено]
2) Нужно, чтобы название языков установки было написано по англ./рус. (см. вложение), например Russian / Русский и т.д.
3) Как-нибудь к моему скрипту возможно "прикрутить" определение оставшегося времени до конца установки? [решено]

https://cloud.mail.ru/public/FD46/7renqfK7P

[leonov_0fficial@vk]

Здравствуйте, я впервые общаюсь с данной программой и при первой же компиляции мне выдаёт ошибку: "Line 51: Column: 76 Unknown Type 'TItemArea' ", - помогите пожалуйста. (Версия программы - 5.5.9(u)).

Сам код:

Скрытый текст

Код:

type
  TComponentDesc = record
    Description: String;
    ImageName: String;
    Index: Integer;
  end;

var
  CompDescs: array of TComponentDesc;
  CompDescPanel, CompDescImgPanel: TPanel;
  CompDescText: array[1..2] of TLabel;
  CompIndex, LastIndex: Integer;
  CompDescImg: TBitmapImage;

procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var
  i: Integer;
begin
  if Index = LastIndex then Exit;
  CompIndex := -1;
  for i := 0 to GetArrayLength(CompDescs) -1 do
  begin
    if (CompDescs[i].Index = Index) then
    begin
      CompIndex := i;
      Break;
    end;
  end;
  if (CompIndex >= 0) and (Area = iaItem) then
  begin
    if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then
      ExtractTemporaryFile(CompDescs[CompIndex].ImageName);
    CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);
    CompDescImg.Show;

    CompDescText[2].Caption := CompDescs[CompIndex].Description;
    CompDescText[2].Enabled := True;
  end else
  begin
    CompDescText[2].Caption := CustomMessage('ComponentsInfo');
    CompDescText[2].Enabled := False;
    CompDescImg.Hide;
  end;
  LastIndex := Index;
end;

procedure CompListMouseLeave(Sender: TObject);
begin
  CompDescImg.Hide;
  CompDescText[2].Caption := CustomMessage('ComponentsInfo');
  CompDescText[2].Enabled := False;
  LastIndex := -1;
end;

procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);
var
  i: Integer;
begin
  i := GetArrayLength(CompDescs);
  SetArrayLength(CompDescs, i + 1);
  CompDescs[i].Description := ADescription;
  CompDescs[i].ImageName := AImageName;
  CompDescs[i].Index := AIndex - 1
end;

procedure InitializeWizard();
begin
  WizardForm.SelectComponentsLabel.Hide;
  WizardForm.TypesCombo.Hide;
  WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(0), ScaleX(184), ScaleY(205)); //растягиваем окно компоненты
  WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;
  WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave;

  CompDescImgPanel := TPanel.Create(WizardForm);
  with CompDescImgPanel do
  begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120));   //растягиваем ширину и высотку превью
    BevelInner := bvLowered;
  end;

  CompDescText[1] := TLabel.Create(WizardForm);
  with CompDescText[1] do
  begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));   // описание компонентов относительно края превью
    AutoSize := False;
    WordWrap := True;
    Enabled := False;
    Caption := CustomMessage('ComponentsImgInfo');
  end;

  CompDescImg := TBitmapImage.Create(WizardForm);
  with CompDescImg do
  begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
    Stretch := True;
    Hide;
  end;

  CompDescPanel := TPanel.Create(WizardForm);
  with CompDescPanel do
  begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(192), ScaleY(125), ScaleX(225), ScaleY(80));
    BevelInner := bvLowered;
  end;

  CompDescText[2] := TLabel.Create(WizardForm);
  with CompDescText[2] do
  begin
    Parent := CompDescPanel;
    SetBounds(ScaleX(5), ScaleY(5), CompDescPanel.Width - ScaleX(10), CompDescPanel.Height - ScaleY(10));
    AutoSize := False;
    WordWrap := True;
    Enabled := False;
    Caption := CustomMessage('ComponentsInfo');
  end;
    AddCompDescription(1, CustomMessage ('Description1'), 'dust2.bmp');
    AddCompDescription(2, CustomMessage ('Description2'), 'cache.bmp');
    AddCompDescription(3, CustomMessage ('Description3'), 'inferno.bmp');
    AddCompDescription(4, CustomMessage ('Description4'), 'mirage.bmp');
    AddCompDescription(5, CustomMessage ('Description5'), 'cbble.bmp');
    AddCompDescription(6, CustomMessage ('Description6'), 'overpass.bmp');
    AddCompDescription(7, CustomMessage ('Description7'), 'italy.bmp');
    AddCompDescription(8, CustomMessage ('Description8'), 'train.bmp');
    AddCompDescription(9, CustomMessage ('Description9'), 'nuke.bmp');
end;

[pollipen]

парни подскажите как можно сделать что бы в папке при установки не проверялись файлы
Source: "C:\Users\Desktop\1\CommonFilesFolder\*"; DestDir: "{cf}"; Flags: что тут надо прописать

[boss911]

что бы в папке при установки не проверялись файлы »

Какую именно проверку нужно отключить, на что? Предположу, что вам нужен флаг overwritereadonly и/или ignoreversion.

[eromunald]

idpShowDetails(False) или к форме и к ее элементам обращайтесь через переменную IDPForm (IDP Help - Types - TIdpForm). Все это после вызова idpDownloadAfter. »

В принципе почти получилось, но во время скачивания файла ProgressBar не уходит и процесс скачивания файла еще виден, хотя были выставлены параметры idpShowDetails(False) и IDPForm.FileProgressBar.Visible := False Т.е. все скрыто кроме бара скачивания. Может есть другая возможность скрыть процесс скачивания файла или свернуть это окно.