Программа скриншотит саму себя

[DimOn4Ik]

Такое возможно сделать? что-бы программа делала скриншот самой себя?

[AlterProger]

Тебе Кнопку для печати создать нужно что-ли?

[Alex Cones]

Такое возможно сделать? что-бы программа делала скриншот самой себя?

А почему нет? Делаем скрин экрана, делаем CopyRect и все.

[DimOn4Ik]

Сообщение от AlterProger

Тебе Кнопку для печати создать нужно что-ли?

нет просто чтоб программа сделала скрин по размеру своего окна )

[raxp]

...такое подойдет?

bmp.Assign(self.GetFormImage);

[MadReason]

procedure CaptureScreen(form:Tform; var csBitMap: TImage);
var
 Desktop: HWND;
 DesktopDC: HDC;
 FWidth, FHeight, FLeft, FTop: Integer;
 AImage: TBitmap;
 WindowRect: TRect;
 AFormat: Word;
 AData, APalette : THandle;
begin
 Desktop := GetDesktopWindow;
 AImage := TBitmap.Create;

 FWidth := form.Width;
 FHeight := form.Height-2;
 FLeft := form.Left;
 FTop := form.Top+2;

 DesktopDC := GetWindowDC(Desktop);
 try
   AImage.Width := FWidth;
   AImage.Height := FHeight;
   BitBlt(AImage.Canvas.Handle, 0, 0, FWidth, FHeight,
     DesktopDC, FLeft, FTop, SRCCOPY);
 finally
   ReleaseDC(Desktop, DesktopDC);
   csBitMap.Picture.Assign(AImage);
   AImage.Free;
 end;
end;

//использование
procedure TForm1.Button1Click(Sender: TObject);
begin
CaptureScreen(form1,image1);
end;