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

LordSP · Отправлено: **17:15, 30-03-2011** | #**1191**

Или хотя бы подскажите как сделать разделитель граф,при вводе серийного номера?

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

LordSP,

LicenseScroll

LordSP · Отправлено: **18:11, 30-03-2011** | #**1193**

nik1967

Все также,кнопка далее не активна пока не установишь чебокс,а не после прокрутки скролла.

R3Pa4eK · Отправлено: **18:59, 30-03-2011** | #**1194**

Как к MsgBox добавить не только кнопку ОК , а и кнопочку "Отмена"?

Gnom_aka_Lexander · Отправлено: **19:30, 30-03-2011** | #**1195**

R3Pa4eK,

Код:

mbConfirmation, MB_YESNO)

если тебе это о чемто говорит.

R3Pa4eK · Отправлено: **19:41, 30-03-2011** | #**1196**

Цитата Лександер:

если тебе это о чемто говорит. »

Конечно говорит, спасибо! Только я чуть-чуть переделал и сделал вот так: MsgBox(Capt, mbConfirmation, MB_OKCancel); . Теперь мне надо реализовать такое: что-бы при нажатии на кнопку "Отмена" удалялась папка {app} и закрывался инсталл. Поможешь?

Gnom_aka_Lexander · Отправлено: **19:53, 30-03-2011** | #**1197**

R3Pa4eK,

Код:

 if MsgBox(Capt, mbConfirmation, MB_OKCANCEL)= IDCANCEL then - нужное тебе действие

- чего хоть сложного?
В моем ренегаде реализовано так:

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var 
    ResultCode:integer;
begin
 if CurStep = ssDone then
 if FileExists('{#AppExe}') then \\ - проверка на наличие файла
  if MsgBox('{#SetupSetting("AppName")}' +' успешно ' +  ' установлена!' + #10#10#13 + 'Запустить ' + '{#SetupSetting("AppName")}' + '?' , mbInformation, MB_OKCANCEL) = IDOK then
   Exec(ExpandConstant('{#AppExe}'), '', '', SW_SHOW, ewNoWait, ResultCode); \\нужное действие на нажатие заявленной кнопки.
  end;
end;

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

Цитата LordSP:

Все также,кнопка далее не активна пока не установишь чебокс,а не после прокрутки скролла. »

Цитата:

неактивными кнопку "далее" и чебокс "принять..."

Как то уж определись, что тебе надо.
Ну а переделать скрипт, который я выкладывал, не судьба?

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

Цитата LordSP:

Все также,кнопка далее не активна пока не установишь чебокс »

Ну вообще-то для этого и есть страница с Лицензией, если он не согласен, то не сможет установить программу, т.е. моё мнение - RadioButton'ы должны быть всегда.

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
LicenseFile=compiler:License.txt
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: compiler:Libraries\InnoCallback.dll; Flags: dontcopy

[Code]
type
  TTextMetric = record
    tmHeight: Longint;
    tmAscent: Longint;
    tmDescent: Longint;
    tmInternalLeading: Longint;
    tmExternalLeading: Longint;
    tmAveCharWidth: Longint;
    tmMaxCharWidth: Longint;
    tmWeight: Longint;
    tmOverhang: Longint;
    tmDigitizedAspectX: Longint;
    tmDigitizedAspectY: Longint;
    tmFirstChar: Char;
    tmLastChar: Char;
    tmDefaultChar: Char;
    tmBreakChar: Char;
    tmItalic: Byte;
    tmUnderlined: Byte;
    tmStruckOut: Byte;
    tmPitchAndFamily: Byte;
    tmCharSet: Byte;
  end;

  Pointer = procedure(Sender: TObject);

function GetDC(hWnd: HWND): LongWord; external 'GetDC@user32.dll stdcall';
function SelectObject(DC: LongWord; p2: LongWord): LongWord; external 'SelectObject@gdi32.dll stdcall';
function GetWindowRect(hWnd: HWND; var lpRect: TRect): BOOL; external 'GetWindowRect@user32.dll stdcall';
function GetTextMetrics(DC: LongWord; var TM: TTextMetric): BOOL; external 'GetTextMetricsA@gdi32.dll stdcall';
function ReleaseDC(hWnd: HWND; hDC: LongWord): Integer; external 'ReleaseDC@user32.dll stdcall';
function WrapTimerProc(callback: Pointer; paramcount: Integer): LongWord; external 'wrapcallback@files:InnoCallback.dll stdcall';
function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

const
  EM_GETRECT             = $00B2;
  EM_GETFIRSTVISIBLELINE = $00CE;

var
  TimerID: LongWord;
  IsReadLicense: Boolean;

function GetFirstVisibleLine(const Memo: TMemo): Integer;
begin
  Result := SendMessage(Memo.Handle, EM_GETFIRSTVISIBLELINE, 0, 0);
end;

function GetCountVisibleLines(const Memo: TMemo): Integer;
var
  OldFont: LongWord;
  Hand: THandle;
  TM: TTextMetric;
  Rect: TRect;
begin
  Hand := GetDC(Memo.Handle);
  try
    OldFont := SelectObject(Hand, Memo.Font.Handle);
    GetTextMetrics(Hand, TM);
    GetWindowRect(Memo.Handle, Rect);
    Result := ((Rect.Bottom - Rect.Top) div (TM.tmHeight + TM.tmExternalLeading));
  finally
    ReleaseDC(Memo.Handle, SelectObject(Hand, OldFont));
  end;
end;

function GetLastVisibleLine(const Memo: TMemo): Boolean;
begin
  Result := (GetFirstVisibleLine(Memo) + GetCountVisibleLines(Memo)) >= (Memo.Lines.Count-1);
end;

procedure TimerProc(Sender: TObject);
begin
  if not IsReadLicense and GetLastVisibleLine(WizardForm.LicenseMemo) then
    begin
      WizardForm.LicenseAcceptedRadio.Enabled := True;
//      WizardForm.LicenseAcceptedRadio.Checked := True;
      IsReadLicense := True;
    end;
end;

procedure InitializeWizard();
begin
  TimerID := 0;
  IsReadLicense := False;
  WizardForm.LicenseAcceptedRadio.Enabled := False;
//  WizardForm.LicenseAcceptedRadio.Hide;
//  WizardForm.LicenseNotAcceptedRadio.Hide;
//  WizardForm.LicenseMemo.Height :=   WizardForm.LicenseMemo.Height + ScaleY(35);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpLicense:
      if not IsReadLicense then
        TimerID := SetTimer(0, 0, 50, WrapTimerProc(@TimerProc, 0));
  else
    if TimerID > 0 then
      begin
        KillTimer(0, TimerID);
        TimerID := 0;
      end;
  end;
end;

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

P.S.
nik1967, этот пример из сборника скриптов, не совсем корректен, т.к. не определяет, прокрутил ли пользователь скролбар до конца.
Ну и по хорошему ещё сюда нужно прикрутить хинт или лэйбл какой-нибудь сделать, чтоб если пользователь резко прокрутил скролбар, то значит не читал и об этом написать ему, что мол читать надо вдумчиво...

newmangor · Отправлено: **08:32, 31-03-2011** | #**1200**

Доброго все времени суток ! Помогите с вопросом ! факи читал нефига не понял !

[Tasks]
Name: additional; Description: "Дополнительное ПО";
Name: additional\dx; Description: "Обновить DirectX"; Flags: unchecked
Name: additional\vcr86; Description: "Обновить библиотеки С++ х86"; Flags: unchecked;
Name: additional\vcr64; Description: "Обновить библиотеки С++ х64"; Flags: unchecked;

[Run]
Filename: {src}\Redist\vcredist_x86.exe; Flags: nowait; Tasks: additional\vcr86; Parameters: /q;
Filename: {src}\Redist\vcredist_x64.exe; Flags: nowait; Tasks: additional\vcr64; Parameters: /q;
Filename: {src}\Redist\DirectX\dxsetup.exe; Flags: nowait; Tasks: additional\dx; Parameters: /silent;

Вопрос заключается в следующем:
Как сделать, чтобы файлы в секции [Run] запускались по очереди? Т.е. инсталляция второго файла начиналась только после того, как инсталляция первого файла закончилась или отменилась, желательно на данном примере !

Спасибо Огромное !!!