[GrabbeR]

Парни, функция пашет, но есть два но:
- заглавие окна не захватывает
- сохраняет в указанное место, а не в каталог с программой

как решить?
спасибо

Код:

function GetFormExImage(const AForm : TForm) : TBitmap;
begin
Result := nil;
if AForm = nil then Exit;
Result := TBitmap.Create;
Result.Height := AForm.ClientHeight;
Result.Width := AForm.ClientWidth;
Result.Canvas.Brush := AForm.Brush;
Result.Canvas.FillRect(AForm.ClientRect);
Result.Canvas.Lock;
try
Result.Canvas.CopyRect(Rect(0,0,Result.Width,Result.Height),
AForm.Canvas,AForm.ClientRect);
finally
Result.Canvas.UnLock;
end;
end;

//-------------------------

procedure TForm1.Button2Click(Sender: TObject);
var
ABitmap : TBitmap;
begin
ABitmap := GetFormExImage(Self);
if ABitmap <> nil then begin
ABitmap.SaveToFile("C:\Screen.bmp");
ABitmap.Free;
end;
end;

Админ: Пользуемся тегами для оформления кода!