Курсовая работа: Мониторинг ОС

else

begin

CombineRgn(Result, Result, rectRgn, RGN_OR);

DeleteObject(rectRgn);

end;

i_left := -1;

end;

end;

if i_left >= 0 then

begin

rectRgn := CreateRectRgn(i_left, i, i_width, i + 1);

if Result = 0 then

Result := rectRgn

else

begin

CombineRgn(Result, Result, rectRgn, RGN_OR);

DeleteObject(rectRgn);

end;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

WindowRgn: HRGN;

begin

BorderStyle := bsNone;

ClientWidth := Image1.Picture.Bitmap.Width;

ClientHeight := Image1.Picture.Bitmap.Height;

windowRgn := CreateRgnFromBitmap(Image1.Picture.Bitmap);