как можно в tbitmap каринку формы вставить?

[TLabel]

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

у нас в школе, вообще, отсутствует предмет "русский язык"
Я научился читать только по книгам программистов на русском языке.

зечас я писал под диктофку оца.

[Sibedir]

Не скриншот, но тоже вариант

var
  bm: TBitmap;
begin
  bm := TBitmap.Create;
  try
    bm.Height := ClientHeight;
    bm.Width := ClientWidth;
    PaintTo (bm.Canvas, -1, -1);
    bm.SaveToFile (<имя файла>);
  finally
    bm.Free;
  end;
end;

[TLabel]

спасибо всем

********************

var
Desktopcanvas :TCanvas ;
BitMap :TBitMap;
begin
DesktopCanvas:=TCanvas.Create;
DesktopCanvas.Handle:=GetDC(Hwnd_De sktop);
BitMap := TBitMap.Create;
BitMap.Width := Screen.Width;
BitMap.Height:=Screen.Height;
Bitmap.Canvas.CopyRect(Bitmap.Canva s.ClipRect,
DesktopCanvas, DesktopCanvas.ClipRect);
bitmap.SaveToFile('c:\windows\scree n.bmp');
image1.Picture.LoadFromFile('c:\win dows\screen.bmp');
end;

помогло!

*********************************** **********************

var
ScreenDC:HDC;
Canvas:TCanvas;
Image1:TImage;
begin
ScreenDC := GetDC(0);
Canvas:=TCanvas.Create();
Canvas.Handle:=ScreenDC;
Image1 := TImage.Create(nil);
Image1.Width := Screen.Width;
Image1.Height := Screen.Height;
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height));
ReleaseDC(0,ScreenDC);
Canvas.Free;
end;

ошибки при компиляции

*********************************** ****

var
DC : HDC;
Bmp : TBitmap;
begin
Bmp := TBitmap.Create;
try
DC := GetDC( 0 );
Bmp.SetSize( 100, 100 );
BitBlt( Bmp.Canvas.Handle, 0, 0, 100, 100, DC, 0, 0, SRCCOPY );
Bmp.SaveToFile( 'c:\test.bmp' );
ReleaseDC( 0, DC );
finally
Bmp.Free;
end;
end;

этот код тоже не компилируется

*********************************** *******

var
bm: TBitmap;
begin
bm := TBitmap.Create;
try
bm.Height := ClientHeight;
bm.Width := ClientWidth;
PaintTo (bm.Canvas, -1, -1);
bm.SaveToFile (<имя файла>);
finally
bm.Free;
end;
end;

без ошыбок