[dracosha]

Народ подскажите пожалуйста как в секции [Run] заморозить птичку на чекбоксе (т.е. как бы применить флаг fixed)?

[nik1967]

Dinvin4ester, держи. Заодно перелопатил всё, что связано с IsDone - где ты такую версию древнюю откопал? Используй с теми файлами, что в архиве, я там многое обновил.
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
dracosha, насколько мне не изменяет мой склероз, то

Код:

название_чекбокса.enabled:= false;

[saurn]

dracosha

Код:

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

[Files]
Source: compiler:license.txt; DestDir: {app};

[Run]
Filename: {app}\license.txt; Flags: postinstall shellexec;

[Code]
procedure CurPageChanged(CurPageID: Integer);
begin
    case CurPageID of
        wpFinished: WizardForm.RunList.ItemEnabled[0] := False;
    end;
end;

[Dinvin4ester]

nik1967,
Огромное вам спасибо. Мне один человек скинул этот исдан.

[Dodakaedr]

Подскажите как при использовании BorderStyle := bsDialog; добавить свою иконку?

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

Код:

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

[Files]
Source: "Icon Entry_3.ico"; DestDir: {tmp}; Flags: dontcopy

[Code]
function InitializeSetup(): Boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\Icon Entry_3.ico')) then ExtractTemporaryFile('Icon Entry_3.ico');
  Result := True;
end;

procedure NewIcon;
var
Icon: TNewIcon;
begin
Icon := TNewIcon.Create;
Icon.LoadFromFile(ExpandConstant('{tmp}\Icon Entry_3.ico'));
Icon.Width := 48;
Icon.Height := 48;
WizardForm.Icon.Handle := Icon.Handle;
end;

procedure InitializeWizard();
begin
NewIcon;
  with WizardForm do
  begin
    ClientHeight:=100;
    ClientWidth:=200;
    BorderStyle := bsDialog;
    Caption := 'xxx'
  end;
end;

[saurn]

Dodakaedr, без изменения BorderStyle и BorderIcons. Иконка в ресурсах. Ненужные кнопки - свернуть и развернуть - отключены.

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

Код:

#ifndef IS_ENHANCED
  #error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
PrivilegesRequired=none
IconResource=setup_icon:_IS_SETUP_ICON.ico
OutputDir=...


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


const
    IMAGE_ICON     = 1;

    GWL_STYLE      = -16;

    WS_MINIMIZEBOX = $20000;
    WS_MAXIMIZEBOX = $10000;


function LoadImage( hInst: UINT; ImageName: String; ImageType: UINT; X, Y: Integer; Flags: UINT ): THandle; external 'LoadImage{#A}@user32.dll stdcall';
function SetWindowLong( Wnd: HWnd; Index: Integer; NewLong: Longint ): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
function GetWindowLong( hWnd: HWND; nIndex: Integer ): Longint; external 'GetWindowLong{#A}@user32.dll stdcall';


procedure InitializeWizard();
var
    hIcon: THandle;
begin
    SetWindowLong( WizardForm.handle, GWL_STYLE, GetWindowLong( WizardForm.handle, GWL_STYLE ) and ( not WS_MINIMIZEBOX ) and ( not WS_MAXIMIZEBOX ) );

    hIcon := LoadImage( HInstance, '_IS_SETUP_ICON', IMAGE_ICON, 16, 16, 0 );
    WizardForm.Icon.Handle := hIcon;
end;

В архиве скрипт и иконка

[Dodakaedr]

В архиве скрипт и иконка »

Спасибо! А как указать свое имя иконки? Меняю здесь

Код:

IconResource=setup_icon:My_icon.ico

и здесь

Код:

hIcon := LoadImage( HInstance, 'My_icon', IMAGE_ICON, 48, 48, 0 );

Не срабатывает.

[saurn]

Dodakaedr, стормозил спросонья)
Если нужно изменить имя иконки, меняйте его в секции Setup

Код:

IconResource=setup_icon:My_icon.ico

setup_icon - имя ресурса, его менять не нужно. My_icon.ico - имя иконки(можно указывать так же полный путь к файлу иконки, если он не рядом со скриптом)вот его и меняйте.

А в функции LoadImage должно быть указано имя ресурса( по типу _IS_имяресурса, но не имя иконки, то есть:

Код:

hIcon := LoadImage( HInstance, '_IS_SETUP_ICON', IMAGE_ICON, 48, 48, 0 );

P.S
Имя ресурса можно указать любое, например moya_iconka. Только не забудьте указать имя ресурса в функии, в данном случае _IS_MOYA_ICONKA

[diman_21Ru]

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

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

глянул в помощь: инно не умеет писать произвольные строки в текстовый файл?
пока выкрутился SetIniString, но может есть функция типа WriteLN()