[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;

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