Прямой доступ к пикселям рабочего стола?

[VintProg]

Как получить прямой доступ к пикселям рабочего стола, чтобы внезапно можно было изменять пиксели рабочего стола, или даже экрана, помогите пожалуйста.

[Пепел Феникса]

var DC:HDC;
begin
 DC:=GetDC(0);
//используем контекст
 ReleaseDC(DC,0);//не помню надо ли, но пишу на всяк
end;

[VintProg]

 type
 TRGB = record
   b, g, r: byte;
end;

ARGB = array[0..1] of TRGB;
 PARGB = ^ARGB;

var
  Form1: TForm1;
  Table_Canvas : TCanvas;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 p: PARGB;
 x, y: integer;

begin

for y := 0 to Table_Canvas.Brush.Bitmap.Height - 1 do

begin
   p := Table_Canvas.Brush.Bitmap.scanline[y];

   for x := 0 to Table_Canvas.Brush.Bitmap.width - 1 do

   begin
     p[x].r := random(256);
     p[x].g := random(256);
     p[x].b := random(256);
   end;

  Table_Canvas.Pixels[Random(100),10];


end;



end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Table_Canvas := TCanvas.Create;
  Table_Canvas.Handle := GetDc(0);

end;

end.

Не че не выходит!

[Пепел Феникса]

а ты на таймер поставь и не трогай ничего
экран то перерисовывается.
(на вид код верный, разве что у нас формат пикселя точер 24бита?)

[VintProg]

а ты на таймер поставь и не трогай ничего
экран то перерисовывается.

Вообще ошибка, не че не перерисовывается!