CreateImage(ImageNr,Width,Height)
           hDC  = StartDrawing(ImageOutput(ImageNr)) ;hDC    дескриптор целевого DC
           DeskDC = GetDC_(GetDesktopWindow_())  ;GetDC_(WindowID())       Get the output pointer  ;WIN32API  
  ;WIN32API  Функция BitBlt выполняет передачу битовых блоков данных о цвете, соответствующих прямоугольнику пикселей из  
  ;заданного исходного контекста устройства в целевой hDC контекст устройства.;Синтаксис:
  ;  HDC hdcDest, // дескриптор целевого DC                                 hDC  
  ;  int nXDest,  // x-коорд. левого верхнего угла целевого прямоугольника  0      (x координата куда ВЫВОЖУ на экран) 
  ;  int nYDest,  // y-коорд. левого верхнего угла целевого прямоугольника  0      (y координата куда ВЫВОЖУ на экран)   
  ;  int nWidth,  // ширина целевого прямоугольника                         Width   (ширина ХОТИМОГО скрина)    
  ;  int nHeight, // высота целевого прямоугольника                         Height  (высота ХОТИМОГО скрина)      
  ;  HDC hdcSrc,  // дескриптор исходного DC                                DeskDC             
  ;  int nXSrc,   // x-коорд. левого верхнего угла исходного прямоугольника (x координата старт точки СКРИНа Width*Height)                         
  ;  int nYSrc,   // y-коорд. левого верхнего угла исходного прямоугольника (y координата старт точки СКРИНа Width*Height)                        
  ;  DWORD dwRop  // код растровой операции                                 #SRCCOPY               
           BitBlt_(hDC,0,0,Width,Height,DeskDC,x,y,#SRCCOPY) ;WIN32API                  
           StopDrawing()           
           ReleaseDC_(GetDesktopWindow_(),DeskDC) ;Освобождает общий или оконный (не влияющий на класс или локальность)
            ;контекст устpойства, делая его доступным для дpугих пpикладных задач.
           SaveImage(ImageNr, "MY_SCREEN.jpeg", #PB_ImagePlugin_JPEG)
            
            
                                  *MemoryImage = EncodeImage(ImageNr, #PB_ImagePlugin_JPEG) ;
                                  ;Кодирует указанное изображение  и помещает его в созданный буфер памяти *MemoryImage^^^^

Structure tagRGBQUAD;цвет
  rgbBlue.b
  rgbGreen.b
  rgbRed.b
  rgbReserved.b
EndStructure



Structure tagBITMAPINFO;определяет измерения и сведения о цвете для DIB
  bmiHeader.BITMAPINFOHEADER 
  bmiColors.tagRGBQUAD[1]
EndStructure 
  
Procedure CreateBitmapInfoStruct(hBmp);типа создать структуру битмапа в памяти
 
   Protected bmp.BITMAP; 
   Protected pbmi.tagBITMAPINFO; 
   Protected cClrBits.w; 

    ;// Retrieve the bitmap's color format, width, and height. 
    If (Not GetObject_(hBmp, SizeOf(BITMAP),@bmp)) 

        MessageBox_(#Null, "GetObject error", "error", #MB_OK); 
	EndIf

    ;// Convert the color format To a count of bits. 
    cClrBits = (bmp\bmPlanes * bmp\bmBitsPixel); 
    If (cClrBits = 1) 
        cClrBits = 1; 
    ElseIf (cClrBits <= 4) 
        cClrBits = 4; 
    ElseIf (cClrBits <= 8) 
        cClrBits = 8; 
    ElseIf (cClrBits <= 16) 
        cClrBits = 16; 
    ElseIf (cClrBits <= 24) 
        cClrBits = 24; 
      Else 
        cClrBits = 32; 
    EndIf
    ;// Allocate memory For the BITMAPINFO Structure. (This Structure 
    ;// contains a BITMAPINFOHEADER Structure And an Array of RGBQUAD 
    ;// Data structures.) 

     If (cClrBits <> 24) 
         *pbmi.BITMAPINFOHEADER =  LocalAlloc_(LPTR, SizeOf(BITMAPINFOHEADER) + SizeOf(RGBQUAD) * (1<< cClrBits)); 

     ;// There is no RGBQUAD Array For the 24-bit-per-pixel format. 

     Else 
         *pbmi.BITMAPINFOHEADER = LocalAlloc_(LPTR, SizeOf(BITMAPINFOHEADER)); 

      ;// Initialize the fields in the BITMAPINFO Structure. 

      *pbmi\biSize= SizeOf(BITMAPINFOHEADER); 
      *pbmi\biWidth = bmp\bmWidth; 
      *pbmi\biHeight = bmp\bmHeight; 
      *pbmi\biPlanes = bmp\bmPlanes; 
      *pbmi\biBitCount = bmp\bmBitsPixel; 
     EndIf
  
  
    If (cClrBits < 24) 
        *pbmi\biClrUsed = (1<<cClrBits); 

    ;// If the bitmap is Not compressed, set the BI_RGB flag. 
    *pbmi\biCompression = #BI_RGB; 

    ;// Compute the number of bytes in the Array of color 
    ;// indices And store the result in biSizeImage. 
    ;// For Windows NT/2000, the width must be DWORD aligned unless 
    ;// the bitmap is RLE compressed. This example shows this. 
    ;// For Windows 95/98, the width must be WORD aligned unless the 
    ;// bitmap is RLE compressed.
    *pbmi\biSizeImage = ((*pbmi\biWidth * cClrBits +31) & ~31) /8 *pbmi\biHeight; 
    ;// Set biClrImportant To 0, indicating that all of the 
    ;// device colors are important. 
    *pbmi\biClrImportant = 0;
    EndIf
     Return pbmi;
EndProcedure

Procedure doSaveScreen(hdc,*rect.RECT,*fileName)

	Protected hdcMem;
	Protected hMyBitmap;
	Protected pBitmapInfo;
	Protected point.Point;

	hdcMem=CreateCompatibleDC_(hdc);
	hMyBitmap=CreateCompatibleBitmap_(hdc, *rect\right-*rect\left, *rect\bottom-*rect\top);
	

	SelectObject_(hdcMem, hMyBitmap);
	
	
	BitBlt_(hdcMem, 0, 0, *rect\right-*rect\left, *rect\bottom-*rect\top, hdc, *rect\left, *rect\top, #SRCCOPY);

	pBitmapInfo=CreateBitmapInfoStruct_(hMyBitmap);
	CreateBMPFile_(fileName, pBitmapInfo, hMyBitmap, hdcMem);

	DeleteDC_(hdcMem);
	DeleteObject_(hMyBitmap);
	LocalFree_(pBitmapInfo);

EndProcedure

Procedure SaveScreen(hwnd)
  Protected hdc
  Protected rect.rect
  hdc=CreateDC_("DISPLAY", #Null, #Null, #Null)
  rect\left=0
  rect\top=0
	rect\right=GetDeviceCaps_(hdc, #HORZRES);
	rect\bottom=GetDeviceCaps_(hdc, #VERTRES)
  doSaveScreen_(hdc, rect, "fullScreen.bmp");
	DeleteDC_(hdc);
  
EndProcedure