Перехват и скриншот

← →
Der Nechk@ssoff © (2006-05-02 17:15) [0]

Здраствуйте!Как осуществить такую вещь: юзер сворачивает прогу и жмет "Y" на что прога делает скриншот и выводит его на Timage?
Спасибо!

← →
Virgo_Style © (2006-05-02 17:54) [1]

сворачивание - встроено
горячая клавиша - см. RegisterHotKey (если мне не изменяет)
скриншот - поищи чуток, куча таких вопросов тут недавно была

← →
Der Nechk@ssoff © (2006-05-03 12:49) [2]

Ну сворачивать-это понято
RegisterHotKey-вробе розобрался.
А вот про скриншот-глухо.Помогите плз!

> Der Nechk@ssoff © (03.05.06 12:49) [2]

Может сгодится. А про скриншоты тут было ищи?

procedure TForm1.FormCreate(Sender: TObject); var ScreenDC: HDC; //Переменная типа HDC Canvas: TCanvas; //Переменная типа Canvas begin ScreenDC:= GetDC(0); //Получаем доступ к экрану Canvas:= TCanvas.Create(); //Создаем TCanvas Canvas.Handle:= ScreenDC; //Присваивает в TCanvas экран //Устанавливаю размер окна в размеры экрана Width:=Screen.Width; //Ширина окна:= Ширина экрана Height:= Screen.Height; //Копирую содержимое экрана в компонент Image1 Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),Canvas, Rect(0,0,Screen.Width,Screen.Height)); //Освобождаю переменную ScreenDC ReleaseDC(0,ScreenDC); //Удаляю Canvas Canvas.Free; end;

Перехват и скриншот Найти похожие ветки