Скачать: CL | DM;

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

← →
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-вробе розобрался.
А вот про скриншот-глухо.Помогите плз!

---

← →
balepa ©   (2006-05-03 13:36) [3]

> 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c