[R.i.m.s.k.y.]

gvshil, на тематические вопросы отвечаю в темах
сам прибиваю также, через taskkill

[Gugle]

Доброго времени суток!
Подскажите как можно проверить создана Panel или нет?

Что то типа:

Код:

[*code]
VAR
  panel: TPanel;

....

PROCEDURE Test();
BEGIN
  if (panel = null) then begin
    panel := TPanel.Create(WizardForm);
  end;
END;

[YURSHAT]

Подскажите как можно проверить создана Panel или нет? »

А не проще ли создавать панель если удовлетворяется условие для ее создания? То есть ""если мое условие удовлетворяется - panel := TPanel.Create(WizardForm)... и т.д.""

А так, какой смысл создавать элемент, который не используется?

[Gugle]

Нет не проще. Панелька может создаваться при выполнении нескольких не взаимосвязанных условиях.

[R.i.m.s.k.y.]

Gugle, я в таких случаях делаю проще:
1. объявляю глобальную переменную типа integer, к примеру var panelka_goooogle : integer;
2. в InitializeSetup присваиваю ей -1 panelka_goooogle := -1// переменная неопределена
3. в процедуре где создается твоя панелька делаю уже panelka_goooogle := 1 если панелька дропается или еще какие уловия panelka_goooogle := 0, 2, 3...
4. где нужна проверка на панельку if (panelka_goooogle = 1) then... )[/off]

[Serega]

А не проще ли создавать панель если удовлетворяется условие для ее создания? »

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

Подскажите как можно проверить создана Panel или нет? »

Всё просто:

читать дальше »

Код:

var
  panel: TPanel;

procedure InitializeWizard;
begin
  panel := nil; // укажем, что объект ещё не создан...
end;

procedure Test;
begin
  if panel = nil then
    begin
      panel := TPanel.Create(WizardForm);
      // и т.д. и т.п.
    end;
end;

[Serega]

как в BeforeInstall записать 2 параметра? »

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

в справке говорится, что через запятую, но у меня это не работает »

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

с этой проблемой столкнулся, когда объединял эти 2 кода »

Решается она просто:

читать дальше »

Код:

[Files]
Source: "{src}\*.exe"; DestDir: {app}; BeforeInstall: AddInfo('Откиньтесь на спинку кресла и наслаждайтесь!')
Source: "{src}\*.dll"; DestDir: {app}; BeforeInstall: AddInfo('Не забудьте зарегистрироваться')
Source: E:\Program\Inno Setup 5.3.8 Ext\*; DestDir: {app}; BeforeInstall: AddInfo(''); Flags: nocompression recursesubdirs createallsubdirs

[Code]
var
  FilesMemo: TMemo;

procedure AddInfo(s: string);
var
  AFile: string;
begin
  AFile := ExpandConstant(CurrentFilename);
  if ExtractFileExt(AFile) = '' then
    FilesMemo.Lines.Add('CreateFolder: ' + RemoveBackslash(AFile))
  else
    FilesMemo.Lines.Add('Extract: ' + AFile);
  if s <> '' then
    WizardForm.StatusLabel.Caption := s;
end;

procedure InitializeWizard();
begin
  FilesMemo := TMemo.Create(WizardForm);
  with FilesMemo do
    begin
      SetBounds(ScaleX(0), ScaleY(80), ScaleX(418), ScaleY(120));
      WordWrap := False;
      Parent := WizardForm.InstallingPage;
      ScrollBars := ssVertical;
      ReadOnly := True;
      Clear;
    end;
end;

[Johny777]

Serega,
спасибо,
.................................................................................................... ............................
и ещё вопрос

как сделать, чтобы созданный мной сроллбокс в расширенной версии инно, в дизайнере
чтобы он прокручивался колесом мыши.
VertScrollBar.Tracking := True; не помогает
подозреваю, что не хватает какой-то функции

[TROY Diamond]

можно через код...

Старый вопрос... а как?

Как "тихо" запустить определённый exe-шник, копируемый в папку установки, сразу же после его успешного копирования и потом закрыть его "автоматом", или после распаковки всех файлов приложения, НО ДО ЗАВЕРШЕНИЯ УСТАНОВКИ?

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

Пробовал в секции Run - сначала запустить этот файл, а потом, убить его с помощью батника, в котором прописано "taskkill /f /im MyProg.exe" - НЕ получается, прога запускается и висит, батник не запускается, пока прогу НЕ закроешь, а мне ведь и НАДО ЕЁ закрыть!!!
Если поставить флаг "nowait", то он действительно НЕ ждёт и не даёт файлу даже запуститься...

читать дальше »

Почему-то НЕ работает флаг "runhidden", он не скрывает окно приложения и даже НЕ сворачивает с флагом "runminimized".
Этот флаг работает только для скрытия консольных окон что ли? Их он скрывает без проблем.
Помогите, пожалуйста!!! Может через секцию Code как-то можно сделать?

Пробовал так, тоже не получилось:

читать дальше »

Код:

function RunTask(FileName: string; bFullpath: Boolean): Boolean;
  external 'RunTask@{app}\ISTask.dll stdcall delayload;

function KillTask(ExeFileName: string): Integer;
  external 'KillTask@{app}\ISTask.dll stdcall delayload';

procedure CurStepChanged(CurStep: TSetupStep);
var
ResultCode:Integer;
begin
if CurStep = ssPostInstall then
begin
Exec(ExpandConstant('{app}\MyProg.exe'), '', ExpandConstant('{app}'), SW_Hide, ewWaitUntilTerminated, ResultCode);
  begin
    if RunTask('MyProg.exe', false) then
      KillTask('MyProg.exe');
    UnloadDll(ExpandConstant('{app}\ISTask.dll'));
  end;
end;

И так: Exec('taskkill', '/f /im MyProg.exe', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);

А также можно ли, чтобы данные в реестр вносились "в самом начале" или же "2 раза" или "по частям". Нужно, чтобы выбранный путь установки (папка назначения), внеслись в реестр ДО завершения установки.

[TROY Diamond]

Serega

Вы как-то делали "фейковый" индикатор процесса, по типу IE. Есть ли сейчас какие-нибудь варианты и наработки?
Нужна индикация процесса во время установки дополнительного ПО - установка долгая минут 15...
Можете ли Вы "доработать" Ваш индикатор, "под секцию Code", а не "под Run"?

читать дальше »

Код:

function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';

const
  PBM_SETMARQUEE = $040A;
  GWL_STYLE      = -16;
  PBS_MARQUEE    = $08;

var
  AnimatePb: TNewProgressBar;

procedure CreateAnimatePb;
begin
  AnimatePb := TNewProgressBar.Create(WizardForm);
  with AnimatePb do
    begin
      Parent := WizardForm.InstallingPage;
      SetBounds(WizardForm.ProgressGauge.Left, WizardForm.ProgressGauge.Top + WizardForm.ProgressGauge.Height + ScaleY(-21),
                WizardForm.ProgressGauge.Width, WizardForm.ProgressGauge.Height);
      SetWindowLong (AnimatePb.Handle, GWL_STYLE, (GetWindowLong (AnimatePb.Handle, GWL_STYLE) or PBS_MARQUEE));
      SendMessage(AnimatePb.Handle, PBM_SETMARQUEE, 1, 20);
    end;
end;

procedure AnimatePbMsg(const msg: string);
begin
  if AnimatePb = nil then
    CreateAnimatePb;
  WizardForm.FilenameLabel.Caption := msg;
end;

procedure AnimatePbFree;
begin
  if AnimatePb <> nil then
    begin
      AnimatePb.Free;
      AnimatePb := nil;
    end;
end;

И действительно он НЕ работает на некоторых темах (скорее всего из-за того что они не подписанные/не официальные)... Работает на "стандартной" во всех ОС и на "Классической" - но бегунок двигается намного медленнее...