Скрин активного окна

[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.Client Rect);
Result.Canvas.Lock;
try
Result.Canvas.CopyRect(Rect(0,0,Res ult.Width,Resul t.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;

[Valio]

Учитывая чудность алгоритма чутка подкоректируй размер тут:

Result.Height := AForm.ClientHeight;

Result.Canvas.CopyRect(Rect(0,0,Res ult.Width,Resul t.Height),
AForm.Canvas,AForm.ClientRect);

Что касается путей сохранения, то юзай ParamStr или ExeName + группу функций для работы с путями типа ExtractFilePath.

[GrabbeR]

разобрался, все пашет как нужно, спасибо!
может кому понадобится:

var
Bm : TBitmap;
WinRect : TRect;
hWinDC : THandle;
begin
Bm := TBitmap.Create;
Bm.Width := Self.Width;
Bm.Height := Self.Height;
hWinDC := GetWindowDC(Self.Handle);
BitBlt(Bm.Canvas.Handle,0,0,Bm.Widt h,Bm.Height,hWinDC,0,0,SRCCOPY);
ReleaseDC(Self.Handle, hWinDC);
Bm.SaveToFile('file1.bmp');
Bm.Free;
end;

[GunSmoker]

Код заключай в BB-тег CODE (кнопка на панели редактирования сообщения), пока модераторы по лбу не дали.