[Setup]
AppName=11
AppVersion=1.1
DefaultDirName={pf}\11
[Code]
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint; external 'SetClassLongA@user32 stdcall';
procedure InitializeWizard;
begin
//WizardForm.BorderStyle:= bsNone; //Скрываем границы инсталлятора
SetClassLong(WizardForm.Handle, (-26), GetWindowLong(WizardForm.Handle, (-27)) or $00020000); //Чтобы отрисовалась тень от окна инсталлятора
end;