PrintScreen - Общие вопросы Delphi

SERG1980 · 23.08.2007, 16:08

Как програмно сделать снимок экрана и занести его в имидж

Квэнди · 23.08.2007, 16:24

procedure ScreenShot(Bild: TBitMap);
var
c: TCanvas;
r: TRect;
begin
c := TCanvas.Create;
c.Handle := GetWindowDC(GetDesktopWindow);
try
r := Rect(0, 0, Screen.Width, Screen.Height);
Bild.Width := Screen.Width;
Bild.Height := Screen.Height;
Bild.Canvas.CopyRect(r, c, r);
finally
ReleaseDC(0, c.Handle);
c.Free;
end;
end;

SERG1980 · 23.08.2007, 16:55

Спасибо Квэнди!

23.08.2007, 16:08	#1
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	PrintScreen Как програмно сделать снимок экрана и занести его в имидж

23.08.2007, 16:24	#2
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	procedure ScreenShot(Bild: TBitMap); var c: TCanvas; r: TRect; begin c := TCanvas.Create; c.Handle := GetWindowDC(GetDesktopWindow); try r := Rect(0, 0, Screen.Width, Screen.Height); Bild.Width := Screen.Width; Bild.Height := Screen.Height; Bild.Canvas.CopyRect(r, c, r); finally ReleaseDC(0, c.Handle); c.Free; end; end; ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
PrintScreen активной формы	Dj_smart	Общие вопросы Delphi	3	22.04.2008 16:25

23.08.2007, 16:55	#3
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	Спасибо Квэнди!