[Dodakaedr]

только вот что странно, Dodakaedr, с твоим кодом запускается только черная рамка »

Действительно странно, но у меня все нормально работает.

[El Sanchez]

Какой самый простой способ добавление всплывчатой картинки и с затуханием »

diman_21Ru, сплэш для битмапов, в том числе и c premultiplied alpha.

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

Код:

[Setup]
AppName=test
AppVerName=test
DefaultDirName={tmp}
CreateAppDir=no
Uninstallable=no
CreateUninstallRegKey=no
BitmapResource=splash:compiler:WizModernImage.bmp

[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl

[code]
#define A = (Defined UNICODE) ? "W" : "A"
const
    AC_SRC_OVER = $0;
    AC_SRC_ALPHA = $1;
    ULW_ALPHA = $2;
    SM_CXSCREEN = 0;
    SM_CYSCREEN = 1;
    WS_EX_LAYERED = $80000;
    GWL_EXSTYLE = (-20);
    WM_CLOSE = $10;

type
    BLENDFUNCTION = record
        BlendOp: Byte;
        BlendFlags: Byte;
        SourceConstantAlpha: Byte;
        AlphaFormat: Byte;
    end;

    TIMERPARAM = record     // user defined
        bmp: TBitmap;
        bf: BLENDFUNCTION;
        dwStart: DWORD;
        dwFadeIn: DWORD;
        dwNormal: DWORD;
        dwFadeOut: DWORD;
    end;

// Window Functions
function UpdateLayeredWindow(hwnd: HWND; hdcDst: THandle; pptDst, psize: TPoint; hdcSrc: THandle; pptSrc: TPoint; crKey: DWORD; pblend: BLENDFUNCTION; dwFlags: DWORD): BOOL; external 'UpdateLayeredWindow@user32.dll stdcall delayload';

// Configuration Reference
function GetSystemMetrics(nIndex: Integer): Integer; external 'GetSystemMetrics@user32.dll stdcall';

// Large Integer Functions
function MulDiv(nNumber, nNumerator, nDenominator: Integer): Integer; external 'MulDiv@kernel32.dll stdcall';

// Window Class Functions
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';

// Time Functions
function GetSystemTimeAdjustment(var lpTimeAdjustment, lpTimeIncrement, lpTimeAdjustmentDisabled: DWORD): BOOL; external 'GetSystemTimeAdjustment@kernel32.dll stdcall';
function GetTickCount: DWORD; external 'GetTickCount@kernel32.dll stdcall';

// Timer Functions
function SetTimer(hWnd: HWND; var nIDEvent: TIMERPARAM; uElapse: UINT; lpTimerFunc: Longint): UINT_PTR; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: HWND; var uIDEvent: TIMERPARAM): BOOL; external 'KillTimer@user32.dll stdcall';


/////////////////////////////////////////////////////////////////////////////////////////
procedure SplashTimerProc(hwnd: HWND; uMsg: UINT; var wParam: TIMERPARAM; dwTime: DWORD);
var
    dwCurrentTime: DWORD;
    ptSize, ptSrc, ptDst: TPoint;
begin
    { get coords }
    ptDst.x := (GetSystemMetrics(SM_CXSCREEN) - wParam.bmp.Width) shr 1;
    ptDst.y := (GetSystemMetrics(SM_CYSCREEN) - wParam.bmp.Height) shr 1;
    ptSize.x := wParam.bmp.Width;
    ptSize.y := wParam.bmp.Height;

    { current time }
    dwCurrentTime := dwTime - wParam.dwStart;

    { kill timer }
    if dwCurrentTime > wParam.dwFadeIn + wParam.dwNormal + wParam.dwFadeOut then
    begin
        KillTimer(hwnd, wParam);
        SendMessage(hwnd, WM_CLOSE, 0, 0);
    end;

    { fade in }
    if dwCurrentTime < wParam.dwFadeIn then
    begin
        wParam.bf.SourceConstantAlpha := MulDiv($FF, dwCurrentTime, wParam.dwFadeIn + 1);
        UpdateLayeredWindow(hwnd, 0, ptDst, ptSize, wParam.bmp.Canvas.Handle, ptSrc, 0, wParam.bf, ULW_ALPHA);
    end;

    { normal }
    if (dwCurrentTime > wParam.dwFadeIn) and (dwCurrentTime < wParam.dwFadeIn + wParam.dwNormal) then
    begin
        wParam.bf.SourceConstantAlpha := $FF;
        UpdateLayeredWindow(hwnd, 0, ptDst, ptSize, wParam.bmp.Canvas.Handle, ptSrc, 0, wParam.bf, ULW_ALPHA);
    end;

    { fade out }
    if dwCurrentTime > wParam.dwFadeIn + wParam.dwNormal then
    begin
        wParam.bf.SourceConstantAlpha := $FF - MulDiv($FF, dwCurrentTime - wParam.dwFadeIn - wParam.dwNormal, wParam.dwFadeOut + 1);
        UpdateLayeredWindow(hwnd, 0, ptDst, ptSize, wParam.bmp.Canvas.Handle, ptSrc, 0, wParam.bf, ULW_ALPHA);
    end;
end;

/////////////////////////////////////////////////////
function GetBitmapBitCount(const bmp: TBitmap): WORD;
var
    MemStream: TMemoryStream;
    szBuffer: String;
begin
    Result := -1;
    MemStream := TMemoryStream.Create;
    try
        bmp.SaveToStream(MemStream);
        MemStream.Position := $1C; // biBitCount member of BITMAPINFOHEADER struct offset
        szBuffer := StringOfChar(#0, 1);
        if MemStream.Read(szBuffer, 1) = 1 then
            Result := Ord(szBuffer[1]);
    finally
        MemStream.Free;
    end;
end;

/////////////////////////////////////////////////////////////////
procedure ShowSplash(const dwFadeIn, dwNormal, dwFadeOut: DWORD);
// dwFadeIn..: fade in stage in ms
// dwNormal..: normal stage in ms
// dwFadeOut : fade out stage in ms
var
    lpTimeAdjustment, lpTimeIncrement, lpTimeAdjustmentDisabled: DWORD;
    tp: TIMERPARAM;
begin
    if WizardSilent then Exit;

    { load bitmap }
    tp.bmp := TBitmap.Create;
    TBitmap(tp.bmp).LoadFromResourceName(HInstance, '_IS_SPLASH');

    { get bitmap bit count }
    case GetBitmapBitCount(tp.bmp) of
        -1: begin
            tp.bmp.Free;
            Exit;
        end;
        32: tp.bf.AlphaFormat := AC_SRC_ALPHA;
    end;

    { create splash form }
    with TForm.Create(nil) do
    begin
        BorderStyle := bsNone;
        FormStyle := fsStayOnTop;
        Position := poScreenCenter;

        { set dimensions }
        Width := tp.bmp.Width;
        Height := tp.bmp.Height;

        { set layered exstyle }
        SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);

        { get minimal timer interval }
        GetSystemTimeAdjustment(lpTimeAdjustment, lpTimeIncrement, lpTimeAdjustmentDisabled);

        { fill user defined struct }
        tp.bf.BlendOp := AC_SRC_OVER;
        tp.dwStart := GetTickCount;
        tp.dwFadeIn := dwFadeIn;
        tp.dwNormal := dwNormal;
        tp.dwFadeOut := dwFadeOut;

        { start timer }
        SetTimer(Handle, tp, lpTimeIncrement div 10000, CallbackAddr('SplashTimerProc'));

        { show form }
        ShowModal;

        { cleanup }
        tp.bmp.Free;
        Free;
    end;
end;

//////////////////////////////////
function InitializeSetup: Boolean;
begin
    ShowSplash(1000, 2000, 1000);
    Result := True;
end;

И так этот замечательный код (написанный на Delphi) позволяет вам вызвать ЛЮБУЮ функцию из вашего скрипта! »

VoLT, во-первых, тестовый скрипт ведет к AV, во-вторых, никакой это не callback.

[ROMKA-1977]

Подскажите возможно ли сделать кнопу закрытия окна инсталятора (верхний правый угол) не активной ?

[saurn]

Подскажите возможно ли сделать кнопу закрытия окна инсталятора (верхний правый угол) не активной ? »

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=...


[Code]
#define A = (Defined UNICODE) ? "W" : "A"


const
    GCL_STYLE = - 26;
    CS_NOCLOSE = $0200;


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


procedure InitializeWizard();
begin
    SetClassLong( WizardForm.Handle, GCL_STYLE, ( GetClassLong( WizardForm.Handle, GCL_STYLE ) or CS_NOCLOSE ) );
end;

[saneksanek]

Здравствуйте,возможно-ли в данный код добавить функцию,чтобы автоматом не выбирались компоненты над которыми работает код.
Пробовал flags "dontinheritcheck" но его нельзя совмещать с "exclusive"

Код:

[Types]
Name: viborochnaya; Description: Выборочная установка; Flags: iscustom
[Components]
Name: AB;Description: Группы A и B;Flags: exclusive
Name: AB\A; Description: Группа A
Name: AB\A\A1; Description: Компонент 1;Flags: exclusive
Name: AB\A\A2; Description: Компонент 2;Flags: exclusive
Name: AB\A\A3; Description: Компонент 3;Flags: exclusive
Name: AB\A\A4; Description: Компонент 4;Flags: exclusive
Name: AB\B; Description: Группа B
Name: AB\B\B1; Description: Компонент 1;Flags: exclusive
Name: AB\B\B2; Description: Компонент 2;Flags: exclusive
Name: AB\B\B3; Description: Компонент 2;Flags: exclusive
Name: AB\B\B4; Description: Компонент 4;Flags: exclusive

[_Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Check: Check1
Source: compiler:Examples\MyProg.chm; DestDir: {app}; Check: Check2

[_Code]
function Check1: Boolean;
begin
  Result:=WizardForm.ComponentsList.ItemEnabled[1] and WizardForm.ComponentsList.Checked[0]
  begin
  Result:=WizardForm.ComponentsList.ItemEnabled[2] and WizardForm.ComponentsList.Checked[0]
  end
end;

function Check2: Boolean;
begin
  Result:=WizardForm.ComponentsList.ItemEnabled[4] and WizardForm.ComponentsList.Checked[3]
  begin
  Result:=WizardForm.ComponentsList.ItemEnabled[5] and WizardForm.ComponentsList.Checked[3]
  end
end;

procedure OnClickCheck(Sender: TObject);
begin
  if WizardForm.ComponentsList.Checked[1] = True then
  begin
    WizardForm.ComponentsList.ItemEnabled[6]:=False
    WizardForm.ComponentsList.ItemEnabled[7]:=False
    WizardForm.ComponentsList.ItemEnabled[8]:=False
    WizardForm.ComponentsList.ItemEnabled[9]:=False
    WizardForm.ComponentsList.ItemEnabled[10]:=False
  end else
  begin
    WizardForm.ComponentsList.ItemEnabled[6]:=True
    WizardForm.ComponentsList.ItemEnabled[7]:=True
    WizardForm.ComponentsList.ItemEnabled[8]:=True
    WizardForm.ComponentsList.ItemEnabled[9]:=True
    WizardForm.ComponentsList.ItemEnabled[10]:=True
  end
  if WizardForm.ComponentsList.Checked[6] = True then
  begin
    WizardForm.ComponentsList.ItemEnabled[1]:=False
    WizardForm.ComponentsList.ItemEnabled[2]:=False
    WizardForm.ComponentsList.ItemEnabled[3]:=False
    WizardForm.ComponentsList.ItemEnabled[4]:=False
    WizardForm.ComponentsList.ItemEnabled[5]:=False
  end else
  begin
    WizardForm.ComponentsList.ItemEnabled[1]:=True
    WizardForm.ComponentsList.ItemEnabled[2]:=True
    WizardForm.ComponentsList.ItemEnabled[3]:=True
    WizardForm.ComponentsList.ItemEnabled[4]:=True
    WizardForm.ComponentsList.ItemEnabled[5]:=True
  end
end;

procedure InitializeWizard();
begin
  WizardForm.ComponentsList.Checked[1]:=True
  WizardForm.ComponentsList.Checked[6]:=True
  WizardForm.ComponentsList.OnClickCheck:=@OnClickCheck
end;

[Dodakaedr]

чтобы автоматом не выбирались компоненты над которыми работает код »

Что-то ничего не понял... Как это?

[saneksanek]

Dodakaedr, Данный код блокирует другие компоненты при выборе того или иного компонента,в данном случае если выбрать группу А закроется группа Б и на оборот,на те компоненты которые подключены к коду выбираются автоматом.
Из-за этого выходит так что стоят галки в компонентах и А и Б а мне это не нужна так как все эти файлы не совместимы с друг-другом.

[ispolin]

Забыл..что нужно написать, чтобы было не ниже Seven sp1
MinVersion: xxxxxx

[Dodakaedr]

Из-за этого выходит так что стоят галки в компонентах и А и Б а мне это не нужна так как все эти файлы не совместимы с друг-другом. »

Может так сойдет?...

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

Код:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Types]
Name: viborochnaya; Description: Выборочная установка; Flags: iscustom

[Components]
Name: AB;Description: Группы A и B;Flags: exclusive
Name: AB\A; Description: Группа A
Name: AB\A\A1; Description: Компонент 1;Flags: exclusive
Name: AB\A\A2; Description: Компонент 2;Flags: exclusive
Name: AB\A\A3; Description: Компонент 3;Flags: exclusive
Name: AB\A\A4; Description: Компонент 4;Flags: exclusive
Name: AB\B; Description: Группа B
Name: AB\B\B1; Description: Компонент 1;Flags: exclusive
Name: AB\B\B2; Description: Компонент 2;Flags: exclusive
Name: AB\B\B3; Description: Компонент 2;Flags: exclusive
Name: AB\B\B4; Description: Компонент 4;Flags: exclusive

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Check: Check1
Source: compiler:Examples\MyProg.chm; DestDir: {app}; Check: Check2

[Code]
function Check1: Boolean;
begin
  Result:=WizardForm.ComponentsList.ItemEnabled[1] and WizardForm.ComponentsList.Checked[0];
  begin
  Result:=WizardForm.ComponentsList.ItemEnabled[2] and WizardForm.ComponentsList.Checked[0];
  end;
end;

function Check2: Boolean;
begin
  Result:=WizardForm.ComponentsList.ItemEnabled[4] and WizardForm.ComponentsList.Checked[3];
  begin
  Result:=WizardForm.ComponentsList.ItemEnabled[5] and WizardForm.ComponentsList.Checked[3];
  end;
end;

procedure OnClickCheck(Sender: TObject);
begin
  if WizardForm.ComponentsList.Checked[1] = True then
  begin
    WizardForm.ComponentsList.ItemEnabled[6]:=False;
    WizardForm.ComponentsList.ItemEnabled[7]:=False;
    WizardForm.ComponentsList.ItemEnabled[8]:=False;
    WizardForm.ComponentsList.ItemEnabled[9]:=False;
    WizardForm.ComponentsList.ItemEnabled[10]:=False;
  end else
  begin
    WizardForm.ComponentsList.ItemEnabled[6]:=True;
    WizardForm.ComponentsList.ItemEnabled[7]:=True;
    WizardForm.ComponentsList.ItemEnabled[8]:=True;
    WizardForm.ComponentsList.ItemEnabled[9]:=True;
    WizardForm.ComponentsList.ItemEnabled[10]:=True;
  end;

  if WizardForm.ComponentsList.Checked[6] = True then
  begin
    WizardForm.ComponentsList.ItemEnabled[1]:=False;
    WizardForm.ComponentsList.ItemEnabled[2]:=False;
    WizardForm.ComponentsList.ItemEnabled[3]:=False;
    WizardForm.ComponentsList.ItemEnabled[4]:=False;
    WizardForm.ComponentsList.ItemEnabled[5]:=False;
  end else
  begin
    WizardForm.ComponentsList.ItemEnabled[1]:=True;
    WizardForm.ComponentsList.ItemEnabled[2]:=True;
    WizardForm.ComponentsList.ItemEnabled[3]:=True;
    WizardForm.ComponentsList.ItemEnabled[4]:=True;
    WizardForm.ComponentsList.ItemEnabled[5]:=True;
  end;
end;

procedure InitializeWizard();
begin
  WizardForm.ComponentsList.Checked[1]:=True;
  WizardForm.ComponentsList.ItemEnabled[6]:=False;
  WizardForm.ComponentsList.ItemEnabled[7]:=False;
  WizardForm.ComponentsList.ItemEnabled[8]:=False;
  WizardForm.ComponentsList.ItemEnabled[9]:=False;
  WizardForm.ComponentsList.ItemEnabled[10]:=False;
  WizardForm.ComponentsList.OnClickCheck:=@OnClickCheck;
end;

[Irenis]

Всем привет Подскажите пожалуйста команду, чтобы приложение автоматически установилось в папку "Мои документы". То есть я установила приложение с офсайта и оно у меня автоматически установилось по пути C:\Users\Ирина\Documents\TMClientProfile. А теперь мне нужно сделать установщик, который бы тоже автоматически устанавливал программу по тому же пути.

Ранее уже как то задавалась этим вопросом, но тогда мне нужно было, чтобы программа установилась в папку ProgramData. Оказалось, все очень просто:
Source: "C:\ProgramData\Firefly Studios\*"; DestDir: "{commonappdata}\Firefly Studios"; Flags: ignoreversion recursesubdirs createallsubdirs

В общем, может есть какой то код, чтоб приложение устанавливалось в папку "Мои документы" по умолчанию? Спасибо.