Form -> Bitmap

Как мога най-бързо да прехвърля дадена форма в bitmap изображение (ТBitmap обект)?

procedure TForm1.Button1Click(Sender: TObject);
var
Btmp:TBitmap;
begin

Btmp:=TBitmap.Create;
Btmp:=Form1.GetFormImage;

end;

10x, ще ми свърши работа :)

А как се прави screenshot на десктопа? Като с клавиша PrintScreen, но програмно?

трябват ти:
Scr: TBitmap;
dc: HDC;
w, h: integer;


w := Screen.Width;
h := Screen.Height;
Scr := TBitmap.Create;
Scr.Width := w;
Scr.Height := h;
dc:=GetDc(0);
BitBlt(Scr.canvas.handle, 0, 0, w, h, dc, 0, 0, SRCCOPY);

....... правиш каквото правиш с Scr.....

и накрая освобождаваш....


ReleaseDc(0, dc);
Scr.Free;

Мерси!