Текущий архив: 2006.05.21;
Скачать: 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 вся ветка
Текущий архив: 2006.05.21;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.04 c
