[Code] 
 const 
 TransparentPercent = 50; // процент прозрачности 
 function SetLayeredWindowAttributes(hwnd: HWND; crKey: TColor; bAlpha: BYTE; dwFlags: DWORD): Boolean; external 'SetLayeredWindowAttributes@user32.dll stdcall'; 
 function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall'; 
 function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall'; 

 Procedure InitializeWizard(); 
 begin 
 SetWindowLong(WizardForm.Handle,(-20),GetWindowLong(WizardForm.Handle,(-20)) or $80000); 
 SetLayeredWindowAttributes(WizardForm.Handle, 0,(255 * TransparentPercent) / 100, 2); 
 end;