Получить изображение формы в виде Bitmap и поместить его в буфер обмена

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// Copy form1 as bitmap into the clipboard 
// Kopiert Form1 als Bitmap in die Zwischenablage 
procedure TForm1.Button1Click(Sender: TObject);
var
imgWindow: TBitmap;
begin
imgWindow := GetFormImage;
try
Clipboard.Assign(imgWindow);
finally
imgWindow.Free;
end;
end;
// Save the bitmap to a file 
// Das Bitmap in einer Datei speichern: 
procedure TForm1.Button2Click(Sender: TObject);
var
imgWindow: TBitmap;
begin
imgWindow := TBitmap.Create;
try
imgWindow := Form1.GetFormImage;
imgWindow.SaveToFile('c:\FormImage.bmp');
finally
imgWindow.Free;
end;
end;

Далее: Получить или занести текст в буфер без использования VCL »»