Советы по Delphi


         

Как получить снимок экрана (типа screen-capture программ)?


Решение 1

Используйте стандартный Windows API:

используйте hWnd := GetDesktopWindow для получения дескриптора 'рабочего стола';
используйте hDC := GetDC (hWnd) для получения HDC (дескриптора контекста экрана) ;
и не забывайте освобождать (уничтожать дескриптор) hDC после выполнения задачи.

Используя TCanvas.Handle в качестве HDC, можно при помощи WinAPI реализовать функции рисования, или, если это возможно, можно присвоить HDC свойству Handle непосредственно при создании TCanvas.

Решение 2

В D1 (по идее должно работать и в D2) попробуйте это:

Разместите на форме TPaintBox и TButton.

procedure TForm1.Button1Click(Sender: TObject);

var
DeskTop : TCanvas ;
begin
DeskTop := TCanvas.Create ;trywith DeskTop doHandle := GetWindowDC (GetDesktopWindow) ;
with PaintBox1.Canvas doCopyRect (Rect (0, 0, 200, 200),DeskTop,Rect (0, 0, 200, 200))
finallyDeskTop.Free
endend;

Это скопирует верхнюю левую область рабочего стола в верхнюю левую область вашего TPaintBox. [000121]



Содержание  Назад  Вперед