Переворот рабочего стола

Code:

procedure TForm1.FormCreate(Sender: TObject);

var

B: TBitmap;

Desktop: TDesktopCanvas;

QP: TQuickPixel;

X, Y: Integer;

EndCopyIndex: Integer;

Temp: TColor;

begin

Left:= 0;

Top:= 0;

Width:= Screen.Width;

Height:= Screen.Height;

B:= nil;

Desktop:= nil;

try

   Desktop:= TDesktopCanvas.Create;

   B:= TBitmap.Create;

   B.Width:= Screen.Width;

   B.Height:= Screen.Height;

   B.Canvas.CopyRect(Rect(0, 0, B.Width, B.Height),

   Desktop, Rect(0, 0, B.Width, B.Height));

   B.PixelFormat:= pf24bit;

   QP:= TQuickPixel.Create(B);

   try

     for Y:= 0 to (QP.Height div 2)-1 do

     begin

       EndCopyIndex:= (QP.Height-1)-Y;

       for X:= 0 to QP.Width-1 do

       begin

         Temp:= QP.Pixel[X, Y];

         QP.Pixel[X, Y]:= QP.Pixel[X, EndCopyIndex];

         QP.Pixel[X, EndCopyIndex]:= Temp;

       end;

     end;

   finally

     QP.Free;

   end;

   with Image1.Picture.Bitmap do

   begin

     Width:= Image1.Width;

     Height:= Image1.Height;

     Canvas.CopyRect(Rect(0, 0, Width, Height), B.Canvas,

     Rect(0, 0, Width, Height));

   end;

finally

   B.Free;

   Desktop.Free;

end;

end;

Code:

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms, Dialogs, ExtCtrls, DesktopCanvas, QuickPixel;