[Johny777]

ради интереса портировал отсюда http://delphiguru.xm6.ru/lessons/18-...na-delphi.html создание круглой формы. Кому надо забирайте!

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[code]
type
  HRGN = LongWord;
  HGDIOBJ = LongWord;
  
function GetWindowRgn(hWnd: HWND; hRgn: HRGN): Integer; external 'GetWindowRgn@user32.dll stdcall';
function DeleteObject(p1: HGDIOBJ): BOOL; external 'DeleteObject@gdi32.dll stdcall';
function CreateRoundRectRgn(X1, Y1, X2, Y2, X3, Y3: Integer): HRgn; external 'CreateRoundRectRgn@gdi32.dll stdcall';
function SetWindowRgn(hWnd: HWND; hRgn: HRGN; bRedraw: BOOL): Integer; external 'SetWindowRgn@user32.dll stdcall';

procedure InitializeWizard;
var
  FormRgn: hRgn;
begin
  WizardForm.Brush.Style := bsSolid; //bsclear;
  GetWindowRgn(WizardForm.Handle, FormRgn);
  DeleteObject(FormRgn);
  WizardForm.Height := 500;
  WizardForm.Width := WizardForm.Height;
  FormRgn := CreateRoundRectRgn(1, 1, WizardForm.Width - 1,WizardForm.height - 1, WizardForm.width, WizardForm.height);
  SetWindowRgn(WizardForm.Handle, FormRgn, TRUE);
end;