| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перехват и скриншот [D7, XP]
Der Nechk@ssoff © (2006-05-02 17:15:00)Здраствуйте!Как осуществить такую вещь: юзер сворачивает прогу и жмет "Y" на что прога делает скриншот и выводит его на Timage?
Спасибо!
balepa (2006-05-03 13:36:00) [1]
> 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;
Der Nechk@ssoff (2006-05-03 12:49:00) [2]Ну сворачивать-это понято
RegisterHotKey-вробе розобрался.
А вот про скриншот-глухо.Помогите плз!
Virgo_Style (2006-05-02 17:54:00) [3]сворачивание - встроено
горячая клавиша - см. RegisterHotKey (если мне не изменяет)
скриншот - поищи чуток, куча таких вопросов тут недавно была
| |
