HRGN сохранение-загрузка?

[Comer_Jus]

Кто нибуть интерисовался существует
ли возможность сохратить регион в файл
и потом его загружать?

Звучит немного бредово но всётаки?

[B_N]

GetRegionData -> ExtCreateRegion

[Comer_Jus]

можно маленький примерчик?
а то что то не разберусь

имеется функция:

 Function BitmapToRgn(Image: TBitmap): HRGN;
  Var            TmpRgn : HRGN;
                    x,y : integer;
      ConsecutivePixels : integer;
           CurrentPixel : TColor;
            CreatedRgns : integer;
           CurrentColor : TColor;

 Begin
  CreatedRgns := 0;
  Result := CreateRectRgn(0, 0, Image.Width, Image.Height);
  Inc(CreatedRgns);

  If (Image.Width = 0) Or (Image.Height = 0) Then Exit;

  For y:=0 To Image.Height-1 Do
   Begin
    CurrentColor:=Image.Canvas.Pixels[0,y];
    ConsecutivePixels:=1;
    For x:=0 To Image.Width-1 Do
     Begin
      CurrentPixel:=Image.Canvas.Pixels[x,y];
      If CurrentColor=CurrentPixel Then Inc(ConsecutivePixels)
      Else
       Begin
        //Входим в новую зону
        if CurrentColor=clWhite Then
         Begin
          TmpRgn:=CreateRectRgn(x-ConsecutivePixels,y,x,y+1);
          CombineRgn(Result,Result,TmpRgn,RGN_DIFF);
          Inc(CreatedRgns);
          DeleteObject(TmpRgn);
         End;
         CurrentColor:=CurrentPixel;
         ConsecutivePixels:=1;
        End;
      End;

   If (CurrentColor=clWhite) And (ConsecutivePixels>0) Then
    Begin
     TmpRgn:=CreateRectRgn(x-ConsecutivePixels,y,x,y+1);
     CombineRgn(Result,Result,TmpRgn,RGN_DIFF);
     Inc(CreatedRgns);
     DeleteObject(TmpRgn);
    End;
   End;
 End;

[Comer_Jus]

Неужели ни кто не поможет?

[B_N]

Comer_Jus, Вы документацию по тем функциям, что я привёл смотрели? Какая нужна помощь для того, чтобы получить из функции массив - записать его в файл, прочитать из файла - передать в функцию...

[Comer_Jus]

всё спасибо!
именно это и хотел услышать